Re: Optionen
17.05.2003 00:22:32
udo
hallo peter , folgendes Makro unten fügst du mal einen Button zu, und drückst mal zweimal darauf ( fullscreen ein / aus )
dass was alles aus oder eingeblendet sein soll kannst du ja per
Abostroph vor der Anweisung entschärfen oder zulassen nach deinen Gesichtspunkten
Denke das müsste dir helfen....
Gruß udo
Sub fullscreen_ein()
Range("C3").Select
If Application.CommandBars("Worksheet Menu Bar").Enabled = True Then
Application.CommandBars("Worksheet Menu Bar").Enabled = False
ActiveWindow.DisplayHeadings = False
Application.DisplayFullScreen = True
ActiveWindow.DisplayWorkbookTabs = False
'ActiveSheet.Protect userinterfaceonly:=True
'DisplayHorizontalScrollBar = False
'DisplayVerticalScrollBar = False
' ActiveWindow.SmallScroll up:=2000
'ActiveWindow.SmallScroll down:=192
ActiveSheet.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True
Else
Application.CommandBars("Worksheet Menu Bar").Enabled = True
ActiveWindow.DisplayHeadings = True
Application.DisplayFullScreen = False
ActiveWindow.DisplayWorkbookTabs = True
'ActiveSheet.Protect userinterfaceonly:=False
'DisplayHorizontalScrollBar = True
'DisplayVerticalScrollBar = True
ActiveSheet.Unprotect
End If
End Sub