Userform'da kapat tuşunu deaktif

[gevezeosman]

Arkadaşlar,
userforum umda kapat tuşunu nasıl etkisin bırakabilirim,
ya da kaldırabilirim

 

[Mahir64]

VBA kod bölümünde Userform üzerinde kapat'a çift tıkyayın kod bölümü açılır
Soru : Kapat excel'i mi kapatıyor Userformu mu?

Userform için userform1.hide vb onu kaldırın

 

[gevezeosman]

sorum yanlıs anlasıldı galiba,
userform un "X" (standart kapat düğmesi) olmamasını istiyorum.
sadece bnm kapat makromdan kapatılabilsin

 

[Mahir64]

Çarpıyı pasifleştirmek için.

Private Sub UserForm_QueryClose(Cancel As Integer, Closemade As Integer)
If Closemode = vbFormControlMenu Then
MsgBox "Pasif Durumda. Butonları Kullanınız", , ("D İ K K A T !")
Cancel = True
End If
End Sub

 

[Mahir64]

Private Sub UserForm_QueryClose(Cancel As Integer, Closemade As Integer)
If Closemode = vbFormControlMenu Then
MsgBox "Pasif Durumda. Butonları Kullanınız", , ("D İ K K A T !")
Cancel = True
End If
End Sub

 

[gevezeosman]

tesekkurler, istedigim tam olarak buydu,
fakat kendi makrolarımı sonsuza soktu
çıkış alamadım

 

[Mahir64]

Merhaba

tesekkurler, istedigim tam olarak buydu,
fakat kendi makrolarımı sonsuza soktu
çıkış alamadım

Uyarlayıp kullanabilirseniz sonuç alırsınız. ben kullamıyorum. Özellikle açılışta form makzimize olduğunda çok işe yarıyor.

 

[gevezeosman]

bende o sekilde kullanıyordum,
fakat userforumda baska bir userform acmak için commandbuton var.
onda da "unload me" çalışmadı bu defa

 

[Mahir64]

Merhaba

unload me

Userform(1...).hide olarak değiştirin

 

[ynmcan]

Syn. Gevezeosman;
Aşağıdaki örnek dosyayı inceleyin.

 

[Mahir64]

sayın ynmcany

Güzel bir örnek teşekkür ederim. (Şahsım adına)

 

[Mahir64]

Ama hata veriyor.

 

[ynmcan]

Syn. Black Lord;
nerede hataveriyor?

 

[Mahir64]

Sayın ynmcany

ilginize teşekkür ederim.
Hata benden kaynaklanmış Kodlar çakışmış. Tekrar düzenledim sonuç harika

 

[gevezeosman]

tesekkurler sonuca ulaşabilim

 

[marimar]

teşekkürler...