Userformlarla ilgili

[Sa.NaL]

Merhaba Benim uzman arkadaşlarımdan ricam şudur:
Ben bir useform oluşturuyorum o userformda textboxa sayı giriyorum ve komut butonu ile excel sayfama yazdırıyorum.İstiyorumki o userforma giren o sayıyı komut butonu ile girmemenin dışında o userform kapanamasın.yani userformun X sını exitini yok etmenin veye bunu kodlarla belirtmenin bir yolu varmı en kolayı şu userformun ayarlarından exiti X yı kaldırabiliyormuyuz.İlgileriniz için şimdiden çok tşk ederim.yardımlarınızı bekler kolaylıklar dilerim.

 

[Orion1]

Bir arkadaştan aldığım api.
Kim olduğunu şimdi hatırlamıyorum.
Aşağıdaki kodları Userformun General sayfasına yazın

Private Declare Function GetWindowLong Lib "user32" Alias "GetWindowLongA" ( _
                                                        ByVal hwnd As Long, _
                                                        ByVal nIndex As Long) As Long


Private Declare Function SetWindowLong Lib "user32" Alias "SetWindowLongA" ( _
                                                        ByVal hwnd As Long, _
                                                        ByVal nIndex As Long, _
                                                        ByVal dwNewLong As Long) As Long

Private Declare Function FindWindow Lib "user32.dll" Alias "FindWindowA" ( _
                                                        ByVal lpClassName As String, _
                                                        ByVal lpWindowName As String) As Long

Private Declare Function DrawMenuBar Lib "user32" (ByVal hwnd As Long) As Long

Private Const GWL_STYLE = (-16)
Private Const WS_SYSMENU = &H80000

Dim hwnd As Long
Dim gWnd As Long
[B]'aşağıdaki kodları Userform'un activite olayına yazın[/B]
Private Sub UserForm_Activate()
hwnd = FindWindow("ThunderDFrame", UserForm1.Caption)
  gWnd = GetWindowLong(hwnd, GWL_STYLE) And (Not WS_SYSMENU)
  SetWindowLong hwnd, GWL_STYLE, gWnd
  DrawMenuBar hwnd

End Sub

 

[hurkanpisirici]

Private Sub UserForm_QueryClose(Cancel As Integer, CloseMode As Integer)
If CloseMode <> 1 Then
Cancel = -1
MsgBox "Kapatmak i&#231;in Exel Tu&#351;unu kullan&#305;n&#305;z."
End If
End Sub

 

[hurkanpisirici]

ben cevap verirken evren hocam yeti&#351;mi&#351;

 

[N.Ziya Hiçdurmaz]

Yanıt

Bu şekil deneyiniz

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

 

[Orion1]

ben cevap verirken evren hocam yetişmiş

Olsun sizde yazın.
Alternatif olur.

 

[Sa.NaL]

Evren Hocam kusura bakmay&#305;n ama ben baya&#287;&#305; acemiyim.Bunlar&#305; nereye yazacaz da userformum exitden kapanamayacak vede kodlar baya&#287;&#305; kar&#305;&#351;&#305;k tam olarak hangi makronun i&#231;ine yazaca&#287;&#305;m makrom nas&#305;l ba&#351;layacakda end sub diye bitecek ve aras&#305;na ne yazaca&#287;&#305;mda exit &#231;al&#305;&#351;mayacak

 

[Orion1]

Evren Hocam kusura bakmayın ama ben bayağı acemiyim.Bunları nereye yazacaz da userformum exitden kapanamayacak vede kodlar bayağı karışık tam olarak hangi makronun içine yazacağım makrom nasıl başlayacakda end sub diye bitecek ve arasına ne yazacağımda exit çalışmayacak

Benim verdiğim kodları kopyalayıp userformun modülüne yapıştırın.

 

[Sa.NaL]

&#199;ok t&#351;k ederim herkeze ziya hocam durumu &#231;&#246;zd&#252;.

 

[Orion1]

Ekli dosyayı inceleyiniz.

 

[Sa.NaL]

&#199;ok t&#351;k ederim Evren Bey ilginiz i&#231;in bu tu&#351; kombinasyonunu dildi&#287;imiz gibi ayarlayacak kodlar varm&#305; elinizde neresini de&#287;i&#351;tirince olabiliyor acba mesela shift+F4 veya ba&#351;a bir tu&#351; yard&#305;mlar&#305;n&#305;z&#305; bekliyorum.birde t&#252;mm uzman arkada&#351;lar&#305;mdan ricam bana bu tazr &#246;rneklerin mevcut oldu&#287;u listeleme d&#252;zeltme kaydetme arama silme gibi makrolarla excel aras&#305;nda k&#246;pr&#252; kuraca&#287;&#305;m geli&#351;mi&#351; &#246;rneklerin bulndu&#287;u bir kitap tavsiye edebilirmisiniz?