Problem mit InputBox
10.08.2006 10:48:18
Thomas
ich weis nicht weiter und hoffe Ihr könnt mir helfen.
Bei nachstehendem Makro wird zurerst eine InputBox geöffnet und ein Passwort abgefragt. Leider läuft das Makro aber auch weiter, UND DAS DARF ES NICHT, wenn ich den Abbruch-Button klicke.
Private Sub Abschluss()
If InputBox("Bitte Paßwort eingeben", "Abfrage") = "test" Then
'Einblenden
Sheets("Einstellungen").Visible = True
Sheets("Gesamt").Visible = True
End If
Dim strFrage, strNam As String
Dim datJahr As Date
On Error Resume Next
If CDate(Year([B1]) < Year(Date)) Then
Range("A1").Select
Exit Sub
End If
strFrage = MsgBox("Soll ein Jahreswechsel durchgeführt werden ?" & Chr(13) & Chr(13) _
& "Vorsicht, es werden alle Einträge des alten Jahres gelöscht !", vbYesNo, "Jahreswechsel")
If strFrage = 6 Then
ActiveWorkbook.Save
Application.ScreenUpdating = False
Application.Run "Löschen"
Else:
'Ausblenden
Sheets("Einstellungen").Visible = False
Sheets("Gesamt").Visible = False
End If
Cells(1, 1).Activate
Application.ScreenUpdating = True
End Sub
Was muss hier geändert werden, dass wenn ich den Abbruch-Button klicke, das Makro endet aber die Blätter "Einstellungen" und "Gesamt" müssen wieder ausgeblendet werden.
Könnt Ihr mir bitte hellfen.
Vielen Dank
Gruß
Thomas
Anzeige