Userform daki Close butonu

[TRUSA]

Arkadaslar Merhaba,

UserForm uzerinde sag ust kosede bulunan Close butonunu nasil pasif edecegiz ? Macro ile gizli bir worksheet uzerinde calisirken form eger o buton kullanilarak kapatilirsa worksheet hala calismaya devam ediyor.

Yardimlariniz icin tesekkurler.

 

[Levent Menteşoğlu]

Userforma aşağıdaki kodu kopyalayın.

Private Sub UserForm_QueryClose(Cancel As Integer, CloseMode As Integer)
If CloseMode = 0 Then Cancel = 1
End Sub

 

[Korhan Ayhan]

Selamlar,

Aşağıda 2 şekilde çözüm öneriyorum.

1- Bu kodlarda X işareti görünür fakat tıklanıldığında formu kapatmaz.

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

2- Bu kodlarda X işareti gizlenir.

Not: Bu kodları userformun kod bölümünün en üst satırına yerleştirmelisiniz.

Private Declare Function GetWindowLongA Lib "user32" (ByVal hWnd As Long, ByVal nIndex As Long) As Long
Private Declare Function SetWindowLongA Lib "user32" (ByVal hWnd As Long, ByVal nIndex As Long, ByVal dwNewLong As Long) As Long
Private Declare Function FindWindowA Lib "user32" (ByVal lpClassName As String, ByVal lpWindowName As String) As Long

Private Sub UserForm_Initialize()
Dim hWnd As Long
hWnd = FindWindowA("Thunder" & IIf(Application.Version Like "8*", "X", "D") & "Frame", Me.Caption)
SetWindowLongA hWnd, -16, GetWindowLongA(hWnd, -16) And &HFFF7FFFF
End Sub

 

[TRUSA]

Cost Control ve leventm,

Yardimlariniz icin cok tesekkurler.

 

[ilhanfire]

Userforma aşağıdaki kodu kopyalayın.

Private Sub UserForm_QueryClose(Cancel As Integer, CloseMode As Integer)
If CloseMode = 0 Then Cancel = 1
End Sub

çok işime yaradı teşekkürler