Fullsreen will nicht
15.08.2006 20:49:02
Jochen
habe aus dem Forum diesen Code, geht auch, bis auf Fullscreen, das wird nicht
auf den Zusatand beim Aktivieren zurückgestellt, keine Ahnung wieso.
''============================================
''Klassenmodul "DieseArbeitsmappe"
Option Explicit
Dim bolStatusbar As Boolean
Dim bolFormulabar As Boolean
Dim bolFullscreen As Boolean
Private Sub Workbook_Activate()
With Application
bolStatusbar = .DisplayStatusBar
bolFormulabar = .DisplayFormulaBar
bolFullscreen = .DisplayFullScreen
.DisplayStatusBar = False
.DisplayFormulaBar = False
.DisplayFullScreen = True
End With
End Sub
Private Sub Workbook_Deactivate()
With Application
.DisplayStatusBar = bolStatusbar
.DisplayFormulaBar = bolFormulabar
.DisplayFullScreen = bolFullscreen
End With
End Sub
Könnt ihr mir auf die Sprünge helfen, was da schiefgeht?
Grüße Jochen