Error Handler
03.10.2004 13:19:18
Florian
ich möchte gern, dass zum Löschen eines bestimmten Tabellenblattes in einer InputBox ein Kennwort abgefragt wird. Die Reaktion auf das richtige Passwort habe ich noch hinbekommen. Wenn das Passwort falsch ist, soll die ganze Prozedur stoppen und die UserForm4 geschlossen werden. Ich habe es auch schon mit "Application.Undo" versucht, bin jedoch gescheitert...Wäre schön, wenn mir da jemand helfen könnte.
Private Sub CommandButton2_Click()
Dim intValue As Integer
Dim strPassword As String
intValue = MsgBox("Möchten Sie die Datei von " & ComboBox4.Value & " wirklich löschen?", vbCritical + vbYesNo)
If intValue = vbYes Then
Sheets(ComboBox4.Value).Activate
strPassword = InputBox("Bitte Kennwort eingeben")
ActiveWorkbook.Unprotect Password:=strPassword
On Error Resume Next
Sheets("Dokumentation").Activate
Sheets("Dokumentation").Range("A65536").End(xlUp).Offset(1, 0).Select
ActiveCell = Application.UserName & " hat am " & Date & " um " & Time & " Uhr die Datei von " & ComboBox4.Value & " gelöscht"
Application.DisplayAlerts = False
Worksheets(ComboBox4.Value).Delete
Application.DisplayAlerts = True
UserForm4.Hide
Sheets("STARTBLATT").Select
Application.Wait Now + TimeSerial(0, 0, 2)
MsgBox "Die Mitarbeiterdatei wurde gelöscht"
Exit Sub
Else
ComboBox4.Clear
UserForm4.Hide
End If
End Sub
Anzeige