Tam Ekran İçin Şifre

[mnz]

Merhaba,
Excel çalışma kitabımı ilk açılışta simge durumunda küçültüyorum. Tekrar Tam Ekran olabilmesi için şifre girilmesini istiyorum.
Çalışma kitabının hangi olayına yazmalıyım?

Saygılar.

    If InputBox("ŞİFREYİ GİRİNİZ") = "1" Then
    ActiveWindow.WindowState = xlMaximized
    Else
    MsgBox "HATALI ŞİFRE"
    ActiveWindow.WindowState = xlMinimized
    End If

 

[Haluk]

Açılışta yazdığınız kodun hemen altına yazıp, deneyin bence.

 

[mnz]

İlk açılışta tam ekran olmasını istemiyorum.
Bu kod ile kullanıcıların çalışma kitabının içeriğini görmelerini ve direk müdahale etmelerini engellemek istiyorum.

Saygılar.