Aktif Sayfa/kitap korumalı mı?

[hsayar]

Sub SfKorumaKnt
if sayfakoruması = True Then
Msgbox "korumalı sayfa"
end if
End sub

gibi bir kod lazım bana sayfalar ve kitaplar için duruma göre menüyü gözüken ama tıklnamayan hale getirecem.

 

[isfa5878]

merhaba

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

bir deneyin.

 

[hsayar]

teşekkür ederim çalışma kitabı için olanı varmı

 

[hsayar]

Private Sub Worksheet_Activate()
'Sub KorumaKOntrol()
Dim AktSf As Worksheet
Set AktSf = ActiveSheet
'MsgBox AktSf.Name
    If AktSf.ProtectContents Then
        MsgBox AktSf.Name & " Korumaladır"
        Application.CommandBars("Cell").Controls("Sütun &Genişliği Cm").Enabled = False
        Exit Sub
    Else
        MsgBox AktSf.Name & " Korumasızdır"
        Application.CommandBars("Cell").Controls("Sütun &Genişliği Cm").Enabled = True
    End If
End Sub

şeklinde kullanıyorum tekrar sağol