UserForm'da sağ üst köşede bulunan çarpı işaretinden formun kapatılmaması

[umax**]

Merhaba,
Çalışan bir UserForm'dan çıkmak isteyince mutlaka Çıkış butonuna basılarak çakılmasını istiyorum. Ancak sağ üst köşede bulunan x tıklanarak formdan ve dosyadan çıkılabilmekte. Ne şekilde etkisiz hale getirebilirim.

 

[Zeki Gürsoy]

Böyle deneyin.

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

 

[umax**]

çok teşekkür ediyorum sayın Zeki Gürsoy. Bir sorum daha olacaktı. UserForm çalışırken arka planda excel görünmesin diye Application.Visible = False satırını ekledim. Ancak değişiklik yapmak istediğimde ne şekilde yapabilirim. Alt+F11 yaptığımda macro ekranına geçiş olmuyor.

 

[Zeki Gürsoy]

Exceli tekrar görünür yapmak için aşağıdaki ile değiştirin.

Application.Visible = [B]True[/B]

 

[umax**]

sanırım tam olarak anlatamadım. tam olarak yapmak istediğim dosyayı açınca excel sayfası görünmeden doğrudan userfoprm görüntüleniyor. bir değişiklik yapmak istemem durumunda excel sayfasına tekrar geçişi ne şekilde yapabilirim.

 

[ECYavuz]

Aşağıdaki kodu bir düğme yapıp ona atayın.

Sub exceli_göster()
Application.Visible = True
End Sub