Şeridi gizleme hk.

[recepkull]

Arkadaşlar yukarıdaki şeridi gizlemek yani simge durumuna küçültmek istiyorum. Bunun için bir kod var mı acaba ? Sağ yukarıda şeridi gizle / şeridi göster butonu var ama oradan yaptığım zaman diğer çalışma kitaplarınınki de kapanıyor. Ben sadece ilgili çalışma kitabının üstte yer alan şeritlerin gizlenmesini istiyorum.

 

[Muzaffer Ali]

Aşağıdaki kodları Şeridi gizlemek istediğiniz Excel Dosyanızın VBA Kod editöründe bulunan "Bu Çalışma Kitabı" adlı sayfaya kopyalayın.

Private Sub Workbook_Activate()
    Application.ExecuteExcel4Macro "Show.ToolBar(""Ribbon"",False)"
End Sub

Private Sub Workbook_Deactivate()
    Application.ExecuteExcel4Macro "Show.ToolBar(""Ribbon"",True)"
End Sub

 

[Tevfik_Kursun]

Teşekkürler Sayın Dalgalikur,
Saygılarımla

 

[potifar534]

Sayın dalgalikur,
Verdiğiniz kod Dosya, Giriş, Ekle, Sayfa Düzeni ... diye devam eden sekmeler bölümünü gösterip diğerlerini göstermez hâle getirilebilir mi?
Mevcut şekle ek olarak sadece sekmeleri göstersin.

 

[Haluk]

Sayın dalgalikur,
Verdiğiniz kod Dosya, Giriş, Ekle, Sayfa Düzeni ... diye devam eden sekmeler bölümünü gösterip diğerlerini göstermez hâle getirilebilir mi?
Mevcut şekle ek olarak sadece sekmeleri göstersin.

İstediğiniz bu mu ?

Sub Test()
    CommandBars.ExecuteMso "MinimizeRibbon"
End Sub

 

[potifar534]

Sayın Haluk,
Verdiğiniz kodu nereye uygulayacağımı kıt makro bilgimden dolayı kestiremedim.
Çalışma kitabına, sayfasına denedim olmadı.
Önceki kodlarla mı kullanacağız bilemiyorum.
Son tahlilde, eklemiş olduğunuz kodların nasıl kullanılacağı konusunda bilgi verir misiniz?

 

[Tevfik_Kursun]

Teşekkürler Haluk Hocam,
Bu arada manuel olarak şeridi açma dışında tekrar açan kod var mı?
Saygılarımla

 

[Haluk]

Dosyanıza bir modül ilave edip, aşağıdakileri yapıştırın...

Dosyayı kaydedip, kapatın..... daha sonra açın.

Sub Auto_Open()
    CommandBars.ExecuteMso "MinimizeRibbon"
End Sub

Sub Auto_Close()
    CommandBars.ExecuteMso "MinimizeRibbon"
End Sub

.

 

[Haluk]

Teşekkürler Haluk Hocam,
Bu arada manuel olarak şeridi açma dışında tekrar açan kod var mı?
Saygılarımla

Aynı kodu tekrar çalıştırın...... bu kez açılır.

.

 

[potifar534]

İkinci açıklamanız için teşekkürler.
Modül1'e uyguladım ama bir şey olmadı.
http://s7.dosya.tc/server10/vcszce/RIBBON.rar.html

 

[recepkull]

Aşağıdaki kodları Şeridi gizlemek istediğiniz Excel Dosyanızın VBA Kod editöründe bulunan "Bu Çalışma Kitabı" adlı sayfaya kopyalayın.

Private Sub Workbook_Activate()
    Application.ExecuteExcel4Macro "Show.ToolBar(""Ribbon"",False)"
End Sub

Private Sub Workbook_Deactivate()
    Application.ExecuteExcel4Macro "Show.ToolBar(""Ribbon"",True)"
End Sub

Teşekkür ederim ustam. Eline sağlık.

 

[Tevfik_Kursun]

Çok teşekkür ederim Haluk hocam,
Saygılarımla

 

[Haluk]

Rica ederim, saygı bizden ...

.

 

[potifar534]

10. iletimde yaşadığım sorunu şu şekilde çözdüm. İhtiyacı olanlara yardımcı olması açısından çözümü ekleyeyim dedim.

İşlem şu şekilde yapılırsa sorun olmuyor:
Önce aşağıdaki kodu VBA’da bir modül içerisine yaz. Sonra herhangi bir şey yapmadan çalışma kitabını kaydederek kapat.
Sub Auto_Close()
CommandBars.ExecuteMso "MinimizeRibbon"
End Sub

Yukarıdaki işlemi yaptıktan sonra çalışma kitabını tekrar aç. Herhangi bir şey yapmadan yukarıdaki kodu eklediğimiz modül içerisine aşağıdaki kodu yaz, kaydet ve dosyayı kapat. Bu aşamadan sonra dosya her açılışta ribbon menü minimize olmaktadır.
Sub Autpen()
CommandBars.ExecuteMso "MinimizeRibbon"
End Sub

UYARI 1: İşlemi sırası ile yukarıda anlatıldığı gibi yapmalısınız.
UYARI 2: Kodları eklediğiniz çalışma kitabını tekrara eski hâline getirmek istiyorsanız yukarıdaki işlemi tersi ile yapınız. Yani önce Sub Autpen() kısmını sil, dosyayı kaydet ve kapat. Sonra Sub Auto_Close() kısmını sil, dosyayı kaydet ve kapat.
UYARI 3: Bu kodun yazılı olduğu çalışma kitabı açıkken başka çalışma kitapları açarsanız onların da ribbon menüsü minimize olur. Önceden başka çalışma kitapları açılmışsa sonra bu dosya açılmışsa etkilenme olmaz.

Düzgün çalışan örnek dosya: http://s7.dosya.tc/server11/soyrk4/Ribbon_Menu_Minimize.rar.html

 

[baydeniro]

Dosyanıza bir modül ilave edip, aşağıdakileri yapıştırın...

Dosyayı kaydedip, kapatın..... daha sonra açın.

Sub Auto_Open()
    CommandBars.ExecuteMso "MinimizeRibbon"
End Sub

Sub Auto_Close()
    CommandBars.ExecuteMso "MinimizeRibbon"
End Sub

.

Üstad çok teşekkürler, harika bir kod, çok işimize yarayacak. Sağlıcakla kaın.