Şerit ve Sekmeleri otomatik gizleme

S

sratacc

Katılım
23 Şubat 2012
Mesajlar
105
Excel Vers. ve Dili
2010
İyi günler dilerim.
Excel 2013 kullanıyorum, excelin şerit ve sekmelerini dosya ilk açılırken otomatik olarak gizlenmesini istiyorum.
Yukarıda sadecek kapatma kısayolu kalması benim için kafi.
Birçok kod denememe rağmen başarılı olamadım.
 
Korhan Ayhan

Korhan Ayhan

Administrator
Yönetici
Admin
Katılım
15 Mart 2005
Mesajlar
42,160
Excel Vers. ve Dili
Microsoft 365 Tr-En 64 Bit
Ekteki dosyayı inceleyiniz.

Uygulama;

Dosyanızın BuÇalışmaKitabı (ThisWorkBook) bölümüne aşağıdaki kodları uygulayın.

Kod: 
Sub Workbook_Open()
    Application.EnableEvents = False
    Call MENU_GIZLE
    Application.EnableEvents = True
End Sub

Sub Workbook_Activate()
    Application.EnableEvents = False
    Call MENU_GIZLE
    Application.EnableEvents = True
End Sub

Sub Workbook_Deactivate()
    Application.EnableEvents = False
    Call MENU_GOSTER
    Application.EnableEvents = True
End Sub

Sub Workbook_BeforeClose(Cancel As Boolean)
    Application.EnableEvents = False
    Call MENU_GOSTER
    Application.EnableEvents = True
    ThisWorkbook.Saved = True
End Sub
Dosyanıza boş bir modül ekleyip aşağıdaki kodları uygulayın.

Kod: 
Sub MENU_GIZLE()
    Application.ScreenUpdating = False
    Application.EnableEvents = False
    Application.ExecuteExcel4Macro "SHOW.TOOLBAR(""Ribbon"",False)"
    ActiveWindow.DisplayHeadings = False
    ActiveWindow.DisplayGridlines = False
    ActiveWindow.DisplayHorizontalScrollBar = False
    ActiveWindow.DisplayVerticalScrollBar = False
    Application.DisplayFullScreen = True
    Application.DisplayStatusBar = Not Application.DisplayStatusBar
    Application.WindowState = xlMaximized
    ActiveWindow.WindowState = xlMaximized
    Application.DisplayFormulaBar = False
    ActiveWindow.DisplayWorkbookTabs = False
    Application.EnableEvents = True
    Application.ScreenUpdating = True
End Sub

Sub MENU_GOSTER()
    Application.ScreenUpdating = False
    ActiveWindow.View = xlNormalView
    ActiveWindow.DisplayHeadings = True
    ActiveWindow.DisplayGridlines = True
    Application.DisplayStatusBar = True
    ActiveWindow.DisplayHorizontalScrollBar = True
    ActiveWindow.DisplayVerticalScrollBar = True
    Application.DisplayFullScreen = False
    Application.DisplayFormulaBar = True
    ActiveWindow.DisplayWorkbookTabs = True
    Application.ExecuteExcel4Macro "SHOW.TOOLBAR(""Ribbon"",True)"
    Application.ScreenUpdating = True
End Sub
 

Ekli dosyalar

S

sratacc

Katılım
23 Şubat 2012
Mesajlar
105
Excel Vers. ve Dili
2010
Tam olması gerektiği gibi elinize sağlık.
Teşekkür ederim sayın Korhan Ayhan
 
A

aureliane

Katılım
26 Ocak 2019
Mesajlar
70
Excel Vers. ve Dili
excel 2016
Korhan Ayhan' Alıntı:
Ekteki dosyayı inceleyiniz.

Uygulama;

Dosyanızın BuÇalışmaKitabı (ThisWorkBook) bölümüne aşağıdaki kodları uygulayın.

Kod: 
Sub Workbook_Open()
    Application.EnableEvents = False
    Call MENU_GIZLE
    Application.EnableEvents = True
End Sub

Sub Workbook_Activate()
    Application.EnableEvents = False
    Call MENU_GIZLE
    Application.EnableEvents = True
End Sub

Sub Workbook_Deactivate()
    Application.EnableEvents = False
    Call MENU_GOSTER
    Application.EnableEvents = True
End Sub

Sub Workbook_BeforeClose(Cancel As Boolean)
    Application.EnableEvents = False
    Call MENU_GOSTER
    Application.EnableEvents = True
    ThisWorkbook.Saved = True
End Sub
Dosyanıza boş bir modül ekleyip aşağıdaki kodları uygulayın.

Kod: 
Sub MENU_GIZLE()
    Application.ScreenUpdating = False
    Application.EnableEvents = False
    Application.ExecuteExcel4Macro "SHOW.TOOLBAR(""Ribbon"",False)"
    ActiveWindow.DisplayHeadings = False
    ActiveWindow.DisplayGridlines = False
    ActiveWindow.DisplayHorizontalScrollBar = False
    ActiveWindow.DisplayVerticalScrollBar = False
    Application.DisplayFullScreen = True
    Application.DisplayStatusBar = Not Application.DisplayStatusBar
    Application.WindowState = xlMaximized
    ActiveWindow.WindowState = xlMaximized
    Application.DisplayFormulaBar = False
    ActiveWindow.DisplayWorkbookTabs = False
    Application.EnableEvents = True
    Application.ScreenUpdating = True
End Sub

Sub MENU_GOSTER()
    Application.ScreenUpdating = False
    ActiveWindow.View = xlNormalView
    ActiveWindow.DisplayHeadings = True
    ActiveWindow.DisplayGridlines = True
    Application.DisplayStatusBar = True
    ActiveWindow.DisplayHorizontalScrollBar = True
    ActiveWindow.DisplayVerticalScrollBar = True
    Application.DisplayFullScreen = False
    Application.DisplayFormulaBar = True
    ActiveWindow.DisplayWorkbookTabs = True
    Application.ExecuteExcel4Macro "SHOW.TOOLBAR(""Ribbon"",True)"
    Application.ScreenUpdating = True
End Sub
Genişletmek için tıkla ...
selamlar korhan hocam,

kodları belgeme uyguluyorum herşey güzel fakat satır ve sütun numaraları ilk açılan sekme haricinde gizlenmiyor. hatta kodu şöyle de revize ettim ama yinede gizlemiyor ne yapabiliriz sizce

Kod: 
Sub Workbook_Open()
    Application.EnableEvents = False
    Application.ScreenUpdating = True
    Worksheets("araç muhasebe").Select
    Call MENU_GIZLE
    Worksheets("ekipman stok").Select
    Call MENU_GIZLE
    Worksheets("ekipman muhasebe").Select
    Call MENU_GIZLE
    Worksheets("transfer").Select
    Call MENU_GIZLE
    Worksheets("bilgiler").Select
    Call MENU_GIZLE
    Worksheets("araç stok").Select
    Application.EnableEvents = True
End Sub



Sub Workbook_BeforeClose(Cancel As Boolean)
    Application.EnableEvents = False
    Call MENU_GOSTER
    Application.EnableEvents = True
    ThisWorkbook.Saved = True
End Sub




Sub MENU_GIZLE()
    Application.ScreenUpdating = False
    Application.EnableEvents = False
    Application.ExecuteExcel4Macro "SHOW.TOOLBAR(""Ribbon"",False)"
    ActiveWindow.DisplayHeadings = False
    ActiveWindow.DisplayGridlines = False
    ActiveWindow.DisplayHorizontalScrollBar = False
    ActiveWindow.DisplayVerticalScrollBar = False
    Application.DisplayFullScreen = True
    Application.DisplayStatusBar = Not Application.DisplayStatusBar
    Application.WindowState = xlMaximized
    ActiveWindow.WindowState = xlMaximized
    Application.DisplayFormulaBar = False
    'ActiveWindow.DisplayWorkbookTabs = False
    Application.EnableEvents = True
    Application.ScreenUpdating = True
End Sub
Sub MENU_GOSTER()
    Application.ScreenUpdating = False
    ActiveWindow.View = xlNormalView
    ActiveWindow.DisplayHeadings = True
    ActiveWindow.DisplayGridlines = True
    Application.DisplayStatusBar = True
    ActiveWindow.DisplayHorizontalScrollBar = True
    ActiveWindow.DisplayVerticalScrollBar = True
    Application.DisplayFullScreen = False
    Application.DisplayFormulaBar = True
    ActiveWindow.DisplayWorkbookTabs = True
    Application.ExecuteExcel4Macro "SHOW.TOOLBAR(""Ribbon"",True)"
    Application.ScreenUpdating = True
End Sub
 
Cevap yazmak için giriş yap yada kayıt ol.
Üst