Fullscreen und Formulabar
18.12.2005 11:53:16
Sven
hab aus dem Forum diesen Code:
Option Explicit
Dim objCb As CommandBar
Dim bolStatus As Boolean
Dim bolFormula As Boolean
Dim bolFullScreen As Boolean
Private Sub Workbook_Activate()
ROU.Visible = -1 'Blatt einblenden
ROU.Unprotect Password:="xxx"
ROU.EnableSelection = 1 'Nicht gesperrte Zellen
ROU.Protect UserInterfaceOnly:=True, Password:="xxx"
MELD.Visible = 2 'Blatt ausblenden
With Application
For Each objCb In .CommandBars
objCb.Enabled = False 'Alle Commandbars aus
Next
bolStatus = .DisplayStatusBar 'Zustand der Statusbar speichern
bolFormula = .DisplayFormulaBar 'Zustand der Bearbeitungsleiste speichern
bolFullScreen = .DisplayFullScreen 'Zustand Fullscreen speichern
.DisplayStatusBar = False 'Statusbar aus
.DisplayFormulaBar = False 'Formulabar aus
.DisplayFullScreen = True 'Fullscreen ein
End With
End Sub
Private Sub Workbook_BeforeClose(Cancel As Boolean)
Me.Saved = True
End Sub
Private Sub Workbook_Deactivate()
For Each objCb In Application.CommandBars
objCb.Enabled = True
Next
With Application
.DisplayStatusBar = bolStatus 'Zustand wie beim Öffnen wiederherstellen
.DisplayFormulaBar = bolFormula
.DisplayFullScreen = bolFullScreen
End With
End Sub
Dabei werden beim Start alle Commandbars ausgeblendet, die Statusbar und die Formulabar ausgeblendet sowie Fullscreen eingestellt. Beim Deaktivieren
soll der Zustand wie beim Öffnen hergestellt werden.
Mit den Commandbars und der Statusbar geht das auch, nur Fullscreen und
Formulabar klappt nicht.
Da ich VBA nicht gut kann, habe ich keine Erklärung dafür. Der Code sieht
für mich ok aus.
Danke für Hilfe.
Grüße Sven