[Çözüldü] Gizlenmiş menü, pasif menü düğmesi

[yesilyurtlu]

ÜStadım;
Makroları etkinleştirdiğimiz ve Userform açıldığı zaman "Dosya, Düzen, Görünüm vb" araçlar pasif kalıyor.
Aktif etmemiz ne yapmalıyım.
Terşekkür Ederim

[Bülent Öztürk]

Pasif etmek için kullanılan kodları tersine çevirip aktif edebilirsiniz.

Örneğin pasif etmek için;

Kod: [Seç]

Sub Ada_gore_menu_pasif_et()
Application.CommandBars("Worksheet Menu Bar").Controls("Dosya").Enabled = False
Application.CommandBars("Worksheet Menu Bar").Controls("Düzen").Enabled = False
Application.CommandBars("Worksheet Menu Bar").Controls("Görünüm").Enabled = False
End Sub
Aktif etmek için;

Kod: [Seç]

Sub Ada_gore_menu_aktif_et()
Application.CommandBars("Worksheet Menu Bar").Controls("Dosya").Enabled = True
Application.CommandBars("Worksheet Menu Bar").Controls("Düzen").Enabled = True
Application.CommandBars("Worksheet Menu Bar").Controls("Görünüm").Enabled = True
End Sub

[yesilyurtlu]

 Bülent Öztürk Üstadım;

Teşekkür Ederim. Allah Razı Olsun

[Bülent Öztürk]

Rica ederim. Cümlemizden razı olsun.

[rebel_child]

bulent bey benım bır rıcam olacak excel sayfasında menulerı nasıl gızlerız