Buton yardımı

[cabatur]

Excelde sorunlar yaşıyorum.Butun menulerim uçtu.birde excelde sağ tuş fonksiyonum.
Şu makroları çalıştırmam için bana biri excel doyası hazırlayıp.İçine Aşağıdaki kodları çalıştıracak butonlar yapabilirmi.

Sub Grnm()
Set cbrWMB = Application.CommandBars("Worksheet Menu Bar")
cbrWMB.Controls(3).visible = True
End Sub


yada


Sub goster()
For Each bar In Application.CommandBars
bar.Enabled = True
Next
End Sub

 

[Necdet]

Merhaba,

Dosyanız hazır.

 

[cabatur]

Teşekkurler