grosses problem :-(

ich habe das blatt lager mit einen kennwort geschützt,

Private Sub worksheet_activate()
antwort = Application.InputBox("Kennwort")
If antwort <> "peter" Then
Worksheets(1).Activate
Columns.Hidden = True
Else: Columns.Hidden = False
End If
End Sub
Private Sub worksheet_deactivate()
Columns.Hidden = True
End Sub

so jetzt wenn ich den wieder raus mache, kommt zwar keine kennwortabfrage mehr, dafür ist aber das blatt nicht mehr
einzusenen. ist nur noch eine graue fläche.

was kann ich machen, das ich auf diesem blatt wieder arbeiten kann ?

bitte um hilfe

gruß
peter