Menüde inaktif olan ve gizlenen makroları nasıl açarım

[girdap]

Merhaba,

Aşağıdaki kod ile makrolar gizlendi. Nasıl eski haline getirebilirim.

Saygılarımla


Controls(6).Controls("Makro").Enabled = False
Application.OnKey "%{F11}", "mesaj"
End Sub

Sub auto_close()
Application.CommandBars("Worksheet Menu Bar"). _
Controls(6).Controls("Makro").Enabled = True
Application.OnKey "%{F11}"
End Sub

Sub mesaj()
MsgBox "Makrolar gizli!"
End Sub

 

[Haluk]

Yeni dosyaya sadece Auto_Close makrosunu yerleştirip, bir kere çalıştırın.