menü çubukları ve kayıt

[orkuncan5]

exceli hangisayfada kaydedip kapatırsam kapatayım açtığımda sayfa 2 nin önüme gelmesini istiyorum.ve sayfa 2 nin menü çubuklarının gizli olmasını diğer sayfalara geçtiğimde menülerin normal olmasını nasıl sağlayabilirim.

 

[orkuncan5]

exceli hangisayfada kaydedip kapatırsam kapatayım açtığımda sayfa 2 nin önüme gelmesini istiyorum.ve sayfa 2 nin menü çubuklarının gizli olmasını diğer sayfalara geçtiğimde menülerin normal olmasını nasıl sağlayabilirim.

 

[orkuncan5]

exceli hangisayfada kaydedip kapatırsam kapatayım açtığımda sayfa 2 nin önüme gelmesini istiyorum.ve sayfa 2 nin menü çubuklarının gizli olmasını diğer sayfalara geçtiğimde menülerin normal olmasını nasıl sağlayabilirim.

 

[ssomar]

soru sorarken örnek dosya eklerseniz daha güzel olacaktır..
hep sayfa 2 nin aktif olması için kod bölümünde workbook_open kısmına

Sayfa2.Activate 'sayfa2 kısmına sayfanızın adını yazın
veya
Sheets("Sayfa2").Activate 'sayfa2 kısmına sayfanızın adını yazın

Private Sub Workbook_Open()
Sayfa2.Activate
End Sub

veya

Private Sub Workbook_Open()
Sheets("Sayfa2").Activate
End Sub

menü çubuklarının kaybolması için kullanacağınız kod

Application.DisplayFullScreen = True

 

[ssomar]

alttaki kodlarıda worbook kodları içine eklerseniz istediğiniz olacaktır

Private Sub Workbook_SheetActivate(ByVal Sh As Object)
If ActiveSheet.Name = "Sayfa2" Then
Application.DisplayFullScreen = True
Else
Application.DisplayFullScreen = False
End If
End Sub