آموزش - غیر فعال کردن دکمه 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