Re: Kompletter Schreibschutz
30.04.2003 18:36:09
ChrisL
Hallo TobiAlles wirst du nie unterbinden können, aber wie gesagt, im Link den ich Dir angegeben habe, steht wie man die Tabelle auf Vollbild setzt. Dadurch sind alle Menus weg.
Private Sub Workbook_Activate()
Application.CommandBars("Worksheet Menu Bar").Enabled = False
Application.DisplayFullScreen = True
End Sub
Private Sub Workbook_BeforeClose(Cancel As Boolean)
Application.CommandBars("Worksheet Menu Bar").Enabled = True
Application.DisplayFullScreen = False
End Sub
Private Sub Workbook_Deactivate()
Application.CommandBars("Worksheet Menu Bar").Enabled = True
Application.DisplayFullScreen = False
End Sub
Private Sub Workbook_Open()
Application.CommandBars("Worksheet Menu Bar").Enabled = False
Application.DisplayFullScreen = True
End Sub
Ansonsten muss ich dir wirklich nochmals nahelegen die Recherche zu benutzen.
Gruss
Chris