userformun sağ üst köşesindeki "X" kapatma butonu nasıl iptal edilir.

[olymposss]

arkadaşlar bu konu daha önce işlendimi bilmiyorum ama aramalarımda bulamadım.

istediğim aslında inputbox a tanımladığım şifre değerlerinin "*" yıldız şeklinde görünmesiydi.ancak araştırmalarım sonucunda bunun çok ayrıntılı bir iş olduğunu gördüm(belki siz farklı düşünüyor olabilirsiniz.yapan varsa paylaşmanız mümkünmü?)
bu yüzden bir userforma textbox ekleyerek şifre giriş işlemi gerçekleştirdim.ancak sorun olarak karşıma userformdaki "X" kapatma düğmesi çıktı. bu düğme ile form kapatılınca programa giriş yapılabiliyor. açıkça ya inputbox a girilen şifre * görünecek ya da userformdaki X kapatma butonu iptal olacak.
bana yardımcı olabilirmisiniz.
şimdiden olacaklara ve hatta sadece okuyanlara bile teşekkür ederim. umarım başkalarınada yarar. teşekkürler aklınıza sağlık. :yardim:

 

[talatcd]

Sayın olmpyosss aşağıdaki kodu kod sayfasına yazarsan sorunun çözülür;


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

 

[excellium]

mavi çubuk da kaybolur mu?

 

[olymposss]

harika mükemmel

acayip güzel bişey olmuş elinize sağlık. ancak bi sorum olacak. bu formu alt+f4 ile kapatabiliyoruz. bu komut "x" işlevi gibimi yok sa tamamen formu kapatıyor mu.:roll:

 

[talatcd]

formu kapat butonu bırak ve buton yardımyıla çıkış yaparsan form daha güzel ve kullanılışlı olur.
Excellium mavi çubuğun yok olmasını bilmiyorum. bakayım yardımcı olmaya çalışırım.

 

[talatcd]

Bir buton ekleyerek aşağıdaki kodla programı kapatabilirsin

Private Sub CommandButton1_Click()
MsgBox "PROGRAM KAPATILIYOR"
ActiveWorkbook.Close True
End Sub

 

[Orion1]

Merhabalar.
Bir tane CommandButton Ekleyin ve CommandButon'a unload me yazın.
Aşağıdaki kodları da UserForm'un QueryClose olayına yazın .Command button dışıda UserForm kapatılamaz.

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

 

[Seyit Tiken]

mavi çubuk da kaybolur mu?

Başlığı olmayan UserForm. Ekli dosyaya bakın.

 

[Ali]

Başlıksız userform için ekteki örneği inceleyin.

 

[adventurk]

verdiğiniz tüm bilgiler için teşekkürler...

 

[marimar]

Merhaba arkadaşlar yeni bir konu açmak istemedim.
Ekteki dosyada olduğu gibi açılan userform1 deki listbox'a çift tıkladığım zaman
userform1 kapanıp userform2 açılıyor.
userform2 yi x işaretinden kapatınca tekrar userform1 açılıyor fakat userform2 alt tarafta açık kalıyor. Benim istediğim userform2 deki x işaretine basınca userform2 kapansın userform1 açılsın.
Yardımlarınız bekliyorum. Teşekkürler...

 

[İhsan Tank]

Merhaba arkadaşlar yeni bir konu açmak istemedim.
Ekteki dosyada olduğu gibi açılan userform1 deki listbox'a çift tıkladığım zaman
userform1 kapanıp userform2 açılıyor.
userform2 yi x işaretinden kapatınca tekrar userform1 açılıyor fakat userform2 alt tarafta açık kalıyor. Benim istediğim userform2 deki x işaretine basınca userform2 kapansın userform1 açılsın.
Yardımlarınız bekliyorum. Teşekkürler...

Merhaba
Userform2'nin kod bölümündeki kodu bununla değiştirin.

Private Sub UserForm_QueryClose(Cancel As Integer, CloseMode As Integer)
Unload UserForm2
UserForm1.Show
End Sub

 

[marimar]

Merhaba
Userform2'nin kod bölümündeki kodu bununla değiştirin.

Private Sub UserForm_QueryClose(Cancel As Integer, CloseMode As Integer)
Unload UserForm2
UserForm1.Show
End Sub

Öncelikle teşekkür ederim
Kodları değiştirdim ama fark eden birşey olmadı.
listbox'a tıklayınca userform1 kapanıyor userform2 açılıyor. Userform2 deki x ya basınca userform1 açılıyor fakat userform2 kapanmıyor, userform1 in altında duruyor...

 

[İhsan Tank]

Öncelikle teşekkür ederim
Kodları değiştirdim ama fark eden birşey olmadı.
listbox'a tıklayınca userform1 kapanıyor userform2 açılıyor. Userform2 deki x ya basınca userform1 açılıyor fakat userform2 kapanmıyor, userform1 in altında duruyor...

Merhaba
Bende açık kalmıyor

Private Sub UserForm_QueryClose(Cancel As Integer, CloseMode As Integer)
Unload UserForm2
UserForm1.Show 0
End Sub

Bu kodu kullanıyorum.

 

[sqrm]

başlıksız user form için örnek dosya indirilemiyor elinde olan var ise gönderebilir mi acaba?

 

[Korhan Ayhan]

Merhaba,

Bir userform oluşturun ve kod bölümüne 2. mesajdaki kodu uygulayın.

F5 ile formu açıp deneme yapın.

 

[sqrm]

Teşekkür ederim Korhan Ayhan.

 

[antalya7766]

Bir örnek dosya yükleyebilir misiniz?
Benim kullanmış olduğum excel de işlemi yapmıyor.

 

[saviola26]

Sayın olmpyosss aşağıdaki kodu kod sayfasına yazarsan sorunun çözülür;


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

Hocam bu kodu yapıştırca 64-Bit ile ilgili bir hata veriyor.

Tam olarak yapmak istediğim şey de şu aslında
1- Simge durumuna küçült düğmesi olsun.
2- Ekranı kapla düğmesi de olsun.
3- Kapat düğmesi ise formu kapatırken ilgili kitabı da kapatsın. Ya da hiç olmasın. ben CommandButton ile bu işlemi yaptırayım.

Teşekkür ederim.

 

[Mahmut Bayram]

Ekteki örneği deneyiniz.

Bir de şu linkteki dosyayı inceleyiniz.
http://www.cpearson.com/Zips/UserFormControl.zip