آموزش - غیر فعال کردن دکمه close در userform

[ali.b]

سلام
این کد دکمه یوزر فرم رو غیر فعال می کنه

Private Sub UserForm_QueryClose(Cancel As Integer, CloseMode As Integer)
    MsgBox ("please log in")
    Cancel = 1
End Sub

[hasa2]

بر خلاف کد بالا که عملکرد دکمه Close با نمایش پیغام جایگزین شده با استفاده از کد زیر کلا عملکرد دکمه غیرفعال میشه و با کلیک بر روی دکمه Close هیچ اتفاقی نمی افته.

Private Sub UserForm_QueryClose(Cancel As Integer, CloseMode As Integer)If CloseMode = vbformcotrolmenu Then
Cancel = True
End If
End Sub