Excel Sayfasının Tam Ekran Olarak Görünmesi

[nazif74]

Merhaba Arkadaşlar, biliyorum bu konuyla ilgili değişik uygulamalar var sitede ama herbirinde ayrı bir sorun yaşıyorum. Excel sayfasının açılışta tam ekran olarak (hiç bir menünün olmadığı) gösterilmesini istiyorum ama ; bu uygulamanın olduğu excel sayfası haricinde yeni bir excel sayfası açtığımda buradaki tam ekran olayından etkilenmesin. Bazı uygulamalar var çalışmama ekliyorum bu çalışmam haricinde başka bir excel sayfası açtığımda orda da menüler yok oluyor. Bu konuyla ilgili üstadlar bir örnek hazırlarlarsa çok sevinirim. Hepinize kolay gelsin.

 

[Levent Menteşoğlu]

Aşağıdaki kodları Thisworkbook sayfasına kopyalayın. Sadece "Sayfa1" isimli sayfa aktif olduğunda kodlar devreye girecektir.

[vb:1:4edac796a0]Private Sub Workbook_Activate()
If ActiveSheet.Name = "Sayfa1" Then Application.DisplayFullScreen = True
End Sub

Private Sub Workbook_Deactivate()
Application.DisplayFullScreen = False
End Sub

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

Private Sub Workbook_SheetDeactivate(ByVal Sh As Object)
Application.DisplayFullScreen = False
End Sub
[/vb:1:4edac796a0]