Sayfa korumalımı?

[tamer42]

Merhabalar;

Bir Excel Sayfanın korumalı olup olmadığını vba kodla nasıl öğrenebilim.

Sheet1 >>>> korumalı ise ....... Msgbox ("Sheet1 korumalıdır !!!")

Sheet2 >>>> korumasız ise .......Msgbox ("Sheet2 korumasızdır !!!")


İyi Çalışmalar.

 

[Levent Menteşoğlu]

Aşağıdaki gibi bir kodla sayfanın korumalı olup olmadığı öğrenilebilir.

If Sheets("sheet1").ProtectContents Then
MsgBox "Sheet1 korumalıdır"
Else
MsgBox "Sheet1 korumasızdır"
End If

Yada sayfa korumasında hücrelere girilemediğini kabul ederek aşağıdaki gibi bir kodlamada kullanılabilir, burada örneğin A1 hücresine girişin mümkün olup olmadığı denetlenmektedir.

If Not Sheets("sheet1").Range("a1").AllowEdit Then
MsgBox "Sheet1 korumalıdır"
Else
MsgBox "Sheet1 korumasızdır"
End If

 

[tamer42]

Teşekkürler...