Userformu kapatma düğmesi hakkında

[klop01]

Arkadaşlar aşağıda UserFormun sağ üst köşesindeki kapatma(X) işaretini yok eden iki kod var. Bunları forumdan buldum ve ekteki dosyama uyguladım.

Private Declare PtrSafe Function GetWindowLongA Lib "user32" (ByVal hWnd As Long, ByVal nIndex As Long) As Long
Private Declare PtrSafe Function SetWindowLongA Lib "user32" (ByVal hWnd As Long, ByVal nIndex As Long, ByVal dwNewLong As Long) As Long
Private Declare PtrSafe 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

SORUM: UserFormun başlığını bir hücreden almak için Me.Caption = Sheets("Sayfa1").[A1] VE Label üzerine bir hücreden yazı yazdırmak için kullandığım Label1.Caption = Sayfa1.Cells(17, 14) kodlarını bu dosyaya nasıl ekleyebilirim.


Bu iki kod parçası Private Sub UserForm_Initialize() kısmına yazılıyor.
Bu iki kod parçasını yukarıdaki koda ekleyince bu kodlar işlemi yapıyor fakat kod diğer işlevini yani kapatma X kısmını yok etme işlevini yapmıyor.

http://s3.dosya.tc/server15/ymy7uo/USERFORM_CALISMASI.rar.html

 

[yanginci34]

Denermisiniz.
http://dosya.co/xpq5phcgn9ao/userform_X_düğmesi_yok_etme.xlsm.html

 

[klop01]

Sayın yanginci34,
İşlem gerçekleşiyor, teşekkür ederim yardımınıza, sağ olun.

 

[yanginci34]

Rica ederim dönüş yaptığınız için teşekkürler