Çalışma kitabını simge durumuna alınca kapatılan menülerin gözükmesi

[tarık34]

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?

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

 

[Suskun]

Workbook_Deactivate() içindeki Kodu kaldırıp aşağıdaki kod içine alın.

Private Sub Workbook_BeforeClose(Cancel As Boolean)
   Application.ExecuteExcel4Macro "Show.ToolBar(""Ribbon"",True)" 'Ribbon menüyü gösterir.
End Sub

 

[tarık34]

Workbook_Deactivate() kodlarını tamamen sildim.
Verdiğiniz kodu ekledim.
Dosyayı simge durumuna alınca ribbon yine gözüküyor. Sonuç değişmedi.

 

[Suskun]

Workbook_Deactivate() kodunu tamamen silmeyin . Aşağıdaki kodu yazın

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.
    .DisplayStatusBar = True 'Durum çubuğunu gösterir.
    .ScreenUpdating = True 'Yapılan işlemlerin ekranda gösterimini açar.
    End With
End Sub

 

[tarık34]

Dediğiniz gibi yaptım, sonuç değişmedi.
Son dosyayı ekledim. Yanlış bir şey mi yapıyorum acaba.

Tam Ekran.xlsm

1 file sent via WeTransfer, the simplest way to send your files around the world

we.tl

 

[Suskun]

Bu kodları deneyin.

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

Private Sub Workbook_Deactivate()
    
    Application.ScreenUpdating = False
    Application.ExecuteExcel4Macro "SHOW.TOOLBAR(""Ribbon"",True)"
    Application.DisplayFormulaBar = True
    Application.DisplayStatusBar = True
    Application.ScreenUpdating = True

End Sub

 

[tarık34]

Sayın Suskun,
Gönderdiğiniz kod mükemmel çalışıyor. Samimi teşekkürlerimi iletiyorum.

Son olarak bir şey sorayım:
Application.DisplayFullScreen = True
Yukarıdaki kod satırı vardı benim kodlarda. Bu satırı bilerek mi çıkardınız yoksa unutulmuş mu? Bu görevi yapan bir şey mi eklendi acaba diye düşünüyorum.
Sağlıklı günler dileklerimle.

 

[Suskun]

Önceki kodlar Tam ekrandan küçük ekrana geçtiği için Ribbon tekrar aktif oluyordu. Bu kodlar büyük küçük ekranda sorun yaratmadan çalışıyor. O yüzden eklemedim.

 

[muratgunay48]

Bu kodları deneyin.

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

Private Sub Workbook_Deactivate()
   
    Application.ScreenUpdating = False
    Application.ExecuteExcel4Macro "SHOW.TOOLBAR(""Ribbon"",True)"
    Application.DisplayFormulaBar = True
    Application.DisplayStatusBar = True
    Application.ScreenUpdating = True

End Sub

Hocam, ben de bunu aramıştım forumda. Elinize emeğinize sağlık. Çok teşekkür ederim.
Saygılarımla.

 

[muratgunay48]

Hocam, normal hale getirmeden, sayfalar arasında geçiş yapmanın bir kısayolu varmı.

 

[Korhan Ayhan]

Sayfa geçişleri için kısayol tuşları;

CTRL+PG DOWN
CTRL+PG UP

 

[muratgunay48]

Sayfa geçişleri için kısayol tuşları;

CTRL+PG DOWN
CTRL+PG UP

Hocam onu biliyordum aslında. ? Benim klavye küçük numped yok. PG yön tuşlarına koymuşlar. Basıyorum olmuyor. (ekran dönüyor)
CTRL+FN+PG up/down yapınca oldu.
İlginize teşekkür ederim.
Saygılarımla.