Eğer Çalışma Kitabı Yapısı Korunuyorsa!

[meslek5]

Merhaba değerli hocalarım.
Eğer Çalışma Kitabı Yapısını Koru aktif ise makrosu nasıl yazılır?

İf ...................?..................... = True Then

 

[Ömer]

Merhaba,

Deneyiniz.

Sub test()
    If ActiveWorkbook.ProtectStructure Then
        MsgBox "Koruma Var"
    End If
End Sub

 

[meslek5]

Merhaba,

Deneyiniz.

Sub test()
    If ActiveWorkbook.ProtectStructure Then
        MsgBox "Koruma Var"
    End If
End Sub

çok teşekkür ederim. Peki pasif ise yani Çalışma Kitabı Yapısını Koru aktif değil ise makrosu? (else olarak değil)