Menü bar Gizleme Office 2013

[Ergün GÖKER]

Değerli hocalarım

verdiğim linkte KORHAN AYHAN Hocamın vermiş olduğu kodda Office 2013 te Menü Bar Gizlemesi Yapan bir kod var. Ben bu kodu deniyorum ve hata alıyorum. Bu koddaki hatanın düzeltilebilmesi için yardımlarınız bekliyorum. Şimdiden teşekkür ederim.

http://www.excel.web.tr/f48/menu-ubuounun-gizlenmesi-hakkynda-t150282.html

 

[Korhan Ayhan]

Aşağıdaki kod işinize yarayabilir.

ThisWorkBook ya da BuÇalışmaKitabı bölümüne uygulayınız.

Private Sub Workbook_Activate()
    Application.ExecuteExcel4Macro "SHOW.TOOLBAR(""Ribbon"",False)"
    Application.DisplayFormulaBar = False
    Application.DisplayStatusBar = Not Application.DisplayStatusBar
    ActiveWindow.DisplayWorkbookTabs = False
End Sub

Private Sub Workbook_Deactivate()
    Application.ExecuteExcel4Macro "SHOW.TOOLBAR(""Ribbon"",True)"
    Application.DisplayFormulaBar = True
    Application.DisplayStatusBar = True
    ActiveWindow.DisplayWorkbookTabs = True
End Sub

 

[Ergün GÖKER]

Hocam çok teşekkür ederim. Hem ilginize hem yardımınız için

 

[bydogannn67]

korhan hocam bu kod ile bütün excel sayfaları menü gizliyo sadece çalıştığım excel sayfasında menu gizleme yapmak ıstesem kodu nasıl uyarlıyabiliriz

 

[Korhan Ayhan]

Çalışma sayfasının kod bölümüne uygulayınız.

Private Sub Worksheet_Activate()
    Application.ExecuteExcel4Macro "SHOW.TOOLBAR(""Ribbon"",False)"
    Application.DisplayFormulaBar = False
    Application.DisplayStatusBar = Not Application.DisplayStatusBar
    ActiveWindow.DisplayWorkbookTabs = False
End Sub

Private Sub Worksheet_Deactivate()
    Application.ExecuteExcel4Macro "SHOW.TOOLBAR(""Ribbon"",True)"
    Application.DisplayFormulaBar = True
    Application.DisplayStatusBar = True
    ActiveWindow.DisplayWorkbookTabs = True
End Sub

 

[bydogannn67]

hocam şöyle anlatayım bu çalışma kitabı açık kaldığı sürece diğer çalışma kitaplarınında menüleri gizlenıyo ben dıyorumkı sadece kendı çalışma kıtabının menusu gizlensın

 

[Korhan Ayhan]

Yanlış terimler kullanıyorsunuz...

Excel sayfaları dediğinizde alt kısımdaki sekmeler anlaşılır.

Excel kitabı derseniz bu durumda açık excel dosyaları anlaşılır.

İlk önerdiğim kod çalışma kitapları arasında çalışır. Yani kodun uygulandığı dosyayı açtığınızda menüler gizlenir. Diğer çalışma kitabına geçtiğinizde menüler tekrar görünür olur.

İkinci önerdiğim kod ise aynı dosya kodun uygulandığı sayfa için geçerlidir. İlgili sayfayı tıkladığınızda menü gizlenir. başka sayfaya tıkladığınızda ise menüler tekrar görünür hale gelir.

 

[bydogannn67]

Hocam doğru diyosunuz yanlış terim kullandığımı farkettim yardımlarınız için teşekkürler