Çalışma sayfası korumalı ise eklediğim menü gözüksün ama pasif olsun

[hsayar]

Eğer Sayfada koruma varsa menü adı gözüksün ama tıklnamasın.

'*Satır Yüksekliği
Dim SatYuk_hcr As CommandBarControl
Set SatYuk_hcr = Application.CommandBars("Cell").Controls.Add
    With SatYuk_hcr
        .Caption = "Satır Y&üksekliği Cm"
        .OnAction = "satir"
        .FaceId = 2068
    End With
Set SatYuk_hcr = Nothing

 

[hsayar]

Sub TestPly2()
Dim AktSf As Worksheet
Set AktSf = ActiveSheet
    If AktSf.ProtectContents Then
        DegYap_hcr.Enabled = False
    MsgBox AktSf.Name & " korumalıdır"
    Else
'        DegYap_hcr.Enabled = True
    MsgBox AktSf.Name & " korumasızdır"
    End If

End Sub

gibi bir kod aldım ama çalışmama uyarlayamadım başka kodlarda denedim

 

[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

Hocam bulmasına buldum ama dosyam (xla)eklenti şeklinde bunun için clas module ihtiyacım var nasıl olmalı