Excel Ribbon Menü sekmelerini tek tek gizleme-gösterme

[ASLAN7410]

Merhaba arkadaşlar.
Aşağıdaki kodları hazırlamış olduğum evraklarda kullanmaktayım.
Bu kodlar sayfa ilk açıldığında Geliştirici sekmesini kapatıyor, sayfa kapatılmak istendiğinde ise Geliştirici sekmesini açıyor.

Private Sub Workbook_Open()
Application.ShowDevTools = False
End Sub

Sub Auto_Close()
Application.ShowDevTools = True
End Sub

Benim istediğim diğer sekmelerin isimlerini öğrenmek ve bu sekmeleri bu şekilde kullanmak.
İnternette ve forumda araştırdım ancak bulamadım, yardımcı olurmusunuz?

Giriş
Ekle
Sayfa Düzeni
Formüller
Veri
Gözden Geçir
Görünüm
Geliştirici = Application.ShowDevTools
Eklentiler
Arka Planı Kaldır

 

[muygun]

Merhaba;
Gizlenmiş olan sayfaları göstermek için;
Bir modüle;

Sub göster()
For i = 1 To Worksheets.Count
Sheets(i).Visible = True
Next i
End Sub

kodlarını ekleyerek çalıştırın.
İyi çalışmalar.

 

[ASLAN7410]

Sayın muygun ilginize çok teşekkür ederim.

Benim istediğim gizli sayfaları göstermek değil, sayfa üzerindeki sekmeleri açıp kapatmaktı.

 

[ASLAN7410]

Arkadaşlar konu günceldir.

Makro kaydet ile yapmaya çalıştığımda kodlar oluşmuyor.

 

[Necdet]

Merhaba,

Ben ne yapmak istediğinizi anlamadım. Büyük olasılıkla diğer arkadaşlar da anlamadılar.

 

[ASLAN7410]

Sayın Necdet Bey ilginiz için çok teşekkür ederim

Aşağıdaki kodları hazırlamış olduğum evraklarda kullanmaktayım.
Bu kodlar sayfa ilk açıldığında Geliştirici sekmesini kapatıyor, sayfa kapatılmak istendiğinde ise Geliştirici sekmesini açıyor.

Private Sub Workbook_Open()
Application.ShowDevTools = False
End Sub

Sub Auto_Close()
Application.ShowDevTools = True
End Sub

Benim istediğim sayfa üzerindeki diğer sekmeleri bu sekme gibi açıp kapatmak.

Sayfa üzerindeki Geliştirici'nin kodu Application.ShowDevTools = False, Application.ShowDevTools = True

Aşağıdaki sekmeleri, Geliştirici'nin kodu gibi açıp kapatmak.

Giriş
Ekle
Sayfa Düzeni
Formüller
Veri
Gözden Geçir
Görünüm
Geliştirici = Application.ShowDevTools
Eklentiler
Arka Planı Kaldır

 

[ccuneyt13]

Merhaba,

Ben ne yapmak istediğinizi anlamadım. Büyük olasılıkla diğer arkadaşlar da anlamadılar.

Necdet Hocam,
Arkadaş excelin Ana Sekmelerini açık kapatmak istiyor sanırım.



http://s6.dosya.tc/server6/gwho98/Adsiz.png.html

 

[ASLAN7410]

Kapatmak ve açmak istediğim sekmelerin resmi ekte.

 

[ccuneyt13]

Merhaba,
Forumda bunla alakalı kod buldum ama... deneyebilir misiniz.

Menüleri Gizlemek İçin:

Sub Menuleri_Gizle()
Application.ExecuteExcel4Macro "SHOW.TOOLBAR(""Ribbon"",False)"
End Sub

Menüleri Göstermek İçin:

Sub Menuleri_Göster()
Application.ExecuteExcel4Macro "SHOW.TOOLBAR(""Ribbon"",True)"
End Sub

ama kodları vba açıkken deneyin yoksa kayboluyor )

 

[ASLAN7410]

Sayın Cüneyt Bey ilginiz için çok teşekkür ediyorum.

Sizin göndermiş olduğunuz kod tüm menüleri gizleyip gösteriyor.
Ben bunu tek tek yapmak istemiştim.

 

[Korhan Ayhan]

Konu başlığınız kafa karıştırdığı için tarafımdan değiştirilmiştir.

Ribbon menülere müdahale etmek eski menülerdeki gibi kolay değil...

Bunun için Sn. Taruz beyin hazırladığı bir çalışma var. Bununla menüleri değiştirebilirsiniz.

İnceleyiniz...

Excel Office Menü Sihirbazı

 

[ASLAN7410]

Sayın Korhan Bey ilginiz için çok teşekkür ediyorum, konu başlığını tam olarak ne olduğunu bilemediğim için bu şekilde açmıştım, değiştirdiğiniz için teşekkürler.

Dediğiniz linki inceledim, http://www.excel.web.tr/f60/ribbon-menu-sihirbazy-t112834/sayfa2.html linkinde Sayın Ömer BARAN Bey Office 2013 için ribbon menü ekleme konusunda destek rica ediyorum. şeklinde istemiş, ancak cevap gelmemiş.

Ayrıca dediğiniz linkteki dosyayı indirdim, ancak burada benim istediğim menülerle ilgili bilgi göremedim, yoksa yanlışmı gördüm.

Yardımcı olur musunuz?

 

[ASLAN7410]

Merhaba arkadaşlar konu günceldir.

 

[Korhan Ayhan]

Aşağıdaki linkte "Cutom UI Editor" uygulaması var. İndirip dosyanın "xml" yapısı ile oynayıp istediğiniz menüyü istediğiniz şekle uyarlayabilirsiniz.

http://openxmldeveloper.org/blog/b/openxmldeveloper/archive/2006/05/26/customuieditor.aspx

Nette kullanımı ile ilgili araştırma yapabilirsiniz.

 

[ASLAN7410]

Sayın Korhan Bey ilginiz için çok teşekkür ediyorum. Hayırlı geceler.

Belki bu konu önemsiz gibi görebilir siniz ama bu benim için bazı durumlarda önemli olarak görüyorum.

Dediğiniz linkteki dosyayı indirip programı kurdum, program sanırım ofis 2007 ile 2010 için yapılmış, bu program ofis 2013 için çalışır mı? Bilmiyorum, program içerisindeki yazılar makro diliyle ingilizce olduğu için nereleri değiştirmem gerektiğinide ve nerelere ne yazmam gerektiğini anlayamadım.

Programla ilgili olarak resimleri ekte gönderiyorum, burda nerelere ne yazmam gerektiği hakkında küçük bilgi verebilirseniz bazı değişiklik yapabilirim.

Maalesef makro dilinden anlamıyorum, yine de yardımlarını esirgemezseniz sevinirim.

 

[Korhan Ayhan]

Videoları izleyiniz...

 

[ASLAN7410]

Sayın Korhan Bey çok teşekkür ederim, videoları izleyerek çözmeye çalışacağım.
Hayırlı geceler diliyorum.