Arkadaşlar,
Ekteki Excel çalışma kitabımda aşağıdaki kodlar var.
Bu kodlar çalışma kitabının menülerini kapatıyor.
Kodların ekli olduğu kitabı simge durumuna alınca menüler gözüküyor.
Bu neden oluyor ve sorun çözülebilir mi?
Ekteki Excel çalışma kitabımda aşağıdaki kodlar var.
Bu kodlar çalışma kitabının menülerini kapatıyor.
Kodların ekli olduğu kitabı simge durumuna alınca menüler gözüküyor.
Bu neden oluyor ve sorun çözülebilir mi?
Kod:
Private Sub Workbook_Activate() ' Çalışma Kitabı aktive olurken.
With Application
.ScreenUpdating = False 'Yapılan işlemlerin gösterimini kapatır.
.DisplayFullScreen = True 'Uygulamayı tam ekran olarak açar.
.DisplayFormulaBar = False 'Formül çubuğunu gizler.
.ExecuteExcel4Macro "Show.ToolBar(""Ribbon"",False)" 'Ribbon menüyü gizler.
.DisplayStatusBar = False 'Durum çubuğunu gizler.
.ScreenUpdating = True 'Yapılan işlemlerin gösterimini açar.
End With
End Sub
Private Sub Workbook_Deactivate() ' Çalışma Kitabı kapatılırken.
With Application
.ScreenUpdating = False 'Yapılan işlemleri ekranda göstermeden yapmak için.
.DisplayFormulaBar = True 'Formül çubuğunu gösterir.
.ExecuteExcel4Macro "Show.ToolBar(""Ribbon"",True)" 'Ribbon menüyü gösterir.
.DisplayStatusBar = True 'Durum çubuğunu gösterir.
.ScreenUpdating = True 'Yapılan işlemlerin ekranda gösterimini açar.
End With
End Sub
Tam Ekran.rar
1 file sent via WeTransfer, the simplest way to send your files around the world
we.tl