Excel 2007 de menü alt çubuklarının Caption,larını okuma

[kykbt]

Arkadaşlar merhaba
Excel 2007 de Menü Çubuğunda, Gözden Geçir sekmesindeki, "Sayfayı Koru" alt butonunun güncel durumunu görmek istiyorum.

Sub MenuBars_GetName()
'MsgBox CommandBars.ActiveMenuBar.Name & " " & CommandBars.ActiveMenuBar.Index
MsgBox Application.CommandBars("Ply").Controls(12).Id & " : " _
& Application.CommandBars("Ply").Controls(12).Caption
End Sub

Ancak çözemedim.. Yani sayfanın koruma durumunu caption,dan almak istiyorum.

 

[systran]

deep seek AI Cevabı:

Sub SayfayiKoruDurumunuKontrolEt()
    Dim cmdBar As CommandBar
    Dim ctrl As CommandBarControl
    
    ' Gözden Geçir sekmesindeki "Sayfayı Koru" butonunu bul
    Set cmdBar = Application.CommandBars("Worksheet Menu Bar")
    Set ctrl = cmdBar.FindControl(ID:=890)
    
    If Not ctrl Is Nothing Then
        If ctrl.Enabled Then
            MsgBox "Sayfayı Koru butonu ETKİN (Enable)."
        Else
            MsgBox "Sayfayı Koru butonu DEVRE DIŞI (Disable)."
        End If
    Else
        MsgBox "Sayfayı Koru butonu bulunamadı."
    End If
End Sub

 

[kykbt]

Hocam merhaba, ilginize teşekkür ederim.
Sizden aldığım desteği kendime uyarladım. Sağ klik menüsünden aldığım referans ile hallettim.

Sub SayfayiKoruDurumunuKontrolEt()
Dim myvers As String
myvers = Application.version
    ' Sağ klik sekmesindeki "Sayfayı Koru" butonunu
If Application.version < "12.0" Then MsgBox Application.CommandBars("Ply").FindControl(Id:=1).Caption 'sağ clik
If Application.version >= "12.0" Then MsgBox Application.CommandBars("Ply").FindControl(Id:=893).Caption 'sağ clik

End Sub

 

[Biolightant]

Merhaba,
Alternatifler
Not: 2010 ve 2016 test edebildim

Sub SayfaKorumaKontrol01()
    If ActiveSheet.ProtectContents = True Then
        MsgBox "Bu sayfa korumalı!", vbInformation, "Sayfa Koruma Durumu"
    Else
        MsgBox "Bu sayfa korumasız!", vbExclamation, "Sayfa Koruma Durumu"
    End If
End Sub

Sub SayfaKorumaKontrol02()
    ' Sayfa ismini sağ tıkladığımızda açılan menü ("Ply")
    If Right(Application.CommandBars("Ply").Controls(6).Caption, 9) = "Kaldır..." Then
        MsgBox "Bu sayfa korumalı!", vbInformation, "Sayfa Koruma Durumu"
    Else
        MsgBox "Bu sayfa korumasız!", vbExclamation, "Sayfa Koruma Durumu"
    End If
End Sub