MsgBox'ları iptal etmek

[Spatz]

Selamlar,

Ekteki dökümanda bir örnek göreceksiniz. Burada checkbox1'i işaretlediğimde 2'yi de işaretliyor ve mesaj veriyor, şu yüzden işaretledim diye. Tamamen kullanıcıyı eğitmek için yazılmış bir makro. Lakin belli bir zaman sonra bu programı kullanan kişi mesajlardan sıkılabiliyor. Diyorum ki, bir şey yapsam (bir buton falan), seçimleri iptal etmesin ama mesajları iptal etsin.

Nasıl yaparım???

Thanks in advance.

 

[Korhan Ayhan]

Selamlar,

BOOLEAN bir değişken tanımlayarak bu işlemi rahatlıkla yapabilirsiniz.

Boş bir module aşağıdaki kodu uygulayın.

Option Explicit
Public Kontrol As Boolean

Kendi kodlarınızıda aşağıdaki şekilde değiştirin.

Private Sub CheckBox1_Click()
    If CheckBox1 = True Then
        CheckBox2 = True
        If Kontrol = False Then MsgBox ("Mesaj"), vbCritical, "uyarı"
    End If
End Sub
 
Private Sub CheckBox3_Click()
    If CheckBox3 = True And CheckBox2 = False Then
        CheckBox4 = True
        If Kontrol = False Then MsgBox ("seçim düzeltildi"), vbInformation, "bilgi"
    End If
End Sub
 
Private Sub CommandButton1_Click()
    Kontrol = True
End Sub
 
Private Sub ToggleButton1_Click()
    If ToggleButton1 = True Then
        ToggleButton1.Caption = "MESAJLAR AKTİF YAP"
        Kontrol = True
    Else
        ToggleButton1.Caption = "MESAJLAR PASİF YAP"
        Kontrol = False
    End If
End Sub

 

[Spatz]

Teşekkürler ama hiç "Booelan" dediğiniz şeyi kullanmadım.

Nasıl yapıyorum?

sonra mesajları tekrar açmak istediğimde ne yapmalıyım?

Teşekkürler.

 

[Korhan Ayhan]

Selamlar,

Üstteki mesajıma örnek dosya eklemiştitm. Mesajları tekrar açmak konusunu sonradan belirttiğiniz için sayfadaki CommanButton yerine ToggleButton kullanarak örnek dosyayı ve kodları güncelledim. İncelermisiniz.

 

[Spatz]

"If Kontrol = False Then" ibrasini görmemişim. Özür dilerim ve de tekrardan çok teşekkür ederim.

 

[mustafaine1]

kullanisli bir konu olmus korhan bey tesekkurler..