VBA 'da bir cümle yazılışı

[KONYA42]

VBa 'da "Eğer Sayfa korumalıysa" MsgBox() yazacağım.Mesajı biliyorum ama eğer sayfa korumalıysa komutu nasıl yazılır.Birde "eğer sayfa kilitli değilse" nasıl yazılır?Tşk .ederim.Notenetim araç çubuğundan commonbuttox ile korumalı olsa da mesajı gösteriyor.

 

[htsumer]

Eğer sayfa korumalıysa komutuna ilişkin komutu;
açılan çalışma kitabı içinmi sorgulayacaksınız yoksa başka çalışma kitabını açarkenmi?
Yani sorgunuzu hangi mantığa göre soracaksınız?
Sorunuzu detayıyla açıklayın.Hiç bir şey anlaşılmıyor.

 

[Korhan Ayhan]

Selamlar,

Sayfa koruması kontrolü için aşağıdaki kodu kullanabilirsiniz.

Sub SAYFA_KORUMA_KONTROL()
    If ActiveSheet.ProtectContents = True Then
    MsgBox "Sayfa korumalıdır !", vbCritical, "Dikkat !!!"
    Else
    MsgBox "Sayfa korumalı değildir !", vbInformation, "Dikkat !!!"
    End If
End Sub

Çalışma kitabı koruması kontrolü için aşağıdaki kodu kullanabilirsiniz.

Sub KİTAP_KORUMA_KONTROL()
    If ActiveWorkbook.ProtectStructure = True Then
    MsgBox "Çalışma kitabı korumalıdır !", vbCritical, "Dikkat !!!"
    Else
    MsgBox "Çalışma kitabı korumalı değildir !", vbInformation, "Dikkat !!!"
    End If
End Sub

 

[KONYA42]

Arkadaşlar,tşk ediyorum.Korhan beyin vermiş olduğu 1. cevap benim istediğim.İlginize tşk.