Soweit ist alles in Ordnung nur wenn ich das so mache geht der bildschirm nicht mit und ich muss über die Pfeiltasten alles verschieben ,gibts da eine Lösung ???

Danke ohne euch würde ich nicht so weit kommen.

mfg Rolf

Private Sub CommandButton82_Click()
Dim Antwort As String, Meldung As String
Dim Titel As String, Vorschlag As String
Meldung = "Geben Sie das Password ein und Klicken sie auf ok"
Titel = "Tabellen Verstecken"
Vorschlag = ""
Antwort = InputBox(Meldung, Titel, Vorschlag)
If Antwort = "" Then
Exit Sub
End If
If Antwort <> "hofymeta" Then GoTo weiter
If Antwort = "hofymeta" Then
Sheets("Tabelle2").Visible = False
Application.DisplayFullScreen = True
Application.DisplayStatusBar = True
Application.CommandBars("Worksheet Menu Bar").Enabled = False
With ActiveWindow
.DisplayGridlines = False
.DisplayHeadings = False
.DisplayOutline = False
.DisplayZeros = False
.DisplayHorizontalScrollBar = False
.DisplayVerticalScrollBar = False
.DisplayWorkbookTabs = False
End With
Exit Sub
weiter:
MsgBox "Das Password ist falsch!"
End If

End Sub