Re: Ganzer Bilschirm
10.08.2002 07:14:20
Oliver S.
Moin,Du kannst Dir auch ein Makro anfertigen. Dieses müßte dann so aussehen:
Sub Menueleiste_ausblenden()
For Each bar In Application.CommandBars
bar.Enabled = False
Next
With ActiveWindow
.DisplayHeadings = False
.DisplayHorizontalScrollBar = False
.DisplayVerticalScrollBar = False
.DisplayWorkbookTabs = False
End With
With Application
.DisplayFormulaBar = False
.DisplayStatusBar = False
End With
End Sub
Zum wieder Einblenden:
Sub Menueleiste_einblenden()
For Each bar In Application.CommandBars
bar.Enabled = True
Next
With ActiveWindow
.DisplayHeadings = True
.DisplayHorizontalScrollBar = True
.DisplayVerticalScrollBar = True
.DisplayWorkbookTabs = True
End With
With Application
.DisplayFormulaBar = True
.DisplayStatusBar = True
End With
End Sub
Aufrufbar über eine Taste oder über eine Tastenkombination.
Bei mir wird alles ausgeblendet, sobald das Workbook geöffnet wurde. Sobald ich die Datei schließe, wird alles wieder eingeblendet.
Ich hoffe, Dir hilft mein Tip,
Oliver