Gönderen Konu: [Çözüldü] Gizlenmiş menü, pasif menü düğmesi  (Okunma sayısı 4410 defa)

0 Üye ve 1 Ziyaretçi konuyu incelemekte.

Çevrimdışı yesilyurtlu

  • Excelce Çavuş
  • ***
  • İleti: 164
  • Puan +1/-0
  • Cinsiyet: Bay
  • Excel'den Daha Fazlası!..
  • Ad Soyad: İlhan YÜKSEL
  • İşletim Sisteminiz: Windows 7 32 Bit
  • Mesleğiniz: Muhasebe Şefi
  • Office Versiyonunuz: Office 2013 TR
Ü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

Çevrimdışı Bülent Öztürk

  • Excelce.Net Yönetici
  • *
  • İleti: 1315
  • Puan +19/-0
  • Cinsiyet: Bay
  • Türkçe Konuşup Excelce Yazıyoruz...
    • Bülent Öztürk
  • Ad Soyad: Bülent Öztürk
  • İl / İlçe: İstanbul / Çorlu
  • İşletim Sisteminiz: Win.10
  • Mesleğiniz: Bilgi Teknolojileri
  • Office Versiyonunuz: Office2013/2016
Ynt: Gizlenmiş menü
« Yanıtla #1 : 23 Haziran 2010, 10:17:24 »
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
=EĞER(EYOKSA("Google Arama");"Belki_Cevap_Burada";"")

Çevrimdışı yesilyurtlu

  • Excelce Çavuş
  • ***
  • İleti: 164
  • Puan +1/-0
  • Cinsiyet: Bay
  • Excel'den Daha Fazlası!..
  • Ad Soyad: İlhan YÜKSEL
  • İşletim Sisteminiz: Windows 7 32 Bit
  • Mesleğiniz: Muhasebe Şefi
  • Office Versiyonunuz: Office 2013 TR
Ynt: Gizlenmiş menü
« Yanıtla #2 : 23 Haziran 2010, 22:58:05 »
 Bülent Öztürk Üstadım;

Teşekkür Ederim. Allah Razı Olsun

Çevrimdışı Bülent Öztürk

  • Excelce.Net Yönetici
  • *
  • İleti: 1315
  • Puan +19/-0
  • Cinsiyet: Bay
  • Türkçe Konuşup Excelce Yazıyoruz...
    • Bülent Öztürk
  • Ad Soyad: Bülent Öztürk
  • İl / İlçe: İstanbul / Çorlu
  • İşletim Sisteminiz: Win.10
  • Mesleğiniz: Bilgi Teknolojileri
  • Office Versiyonunuz: Office2013/2016
Ynt: Gizlenmiş menü
« Yanıtla #3 : 24 Haziran 2010, 08:23:02 »
Rica ederim. Cümlemizden razı olsun.
=EĞER(EYOKSA("Google Arama");"Belki_Cevap_Burada";"")

Çevrimdışı rebel_child

  • Excelce Onbaşı
  • **
  • İleti: 3
  • Puan +0/-0
  • Cinsiyet: Bay
  • Excel'den Daha Fazlası!..
  • Ad Soyad: ibrahim öz
  • Doğum Yılınız: 1979
  • İl / İlçe: bursa/osmangazi
Ynt: [Çözüldü] Gizlenmiş menü, pasif menü düğmesi
« Yanıtla #4 : 09 Mart 2012, 21:48:16 »
bulent bey benım bır rıcam olacak excel sayfasında menulerı nasıl gızlerız