Excel stürzt ab
03.03.2004 18:45:00
Günther Nebel
Mit einer Löschprozedur werden Pläne auf Wunsch und nach Passworteingabe
gelöscht. Der Code hierfür ist folgender:
Private Sub btnPlanDel_Click()
Dim passwort As String
passwort = passwordmeldung$ = "Geben Sie die Zugangsberechtigung ein"
titel$ = "Passwortabfrage"
MsgBox ("A C H T U N G !!! Löschen nur für Berechtigte mit Password. Alle
Daten dieses Plans werden unwiderruflich gelöscht!")
ThisWorkbook.Sheets(ListBox1.Value).Activate
passwort$ = InputBox(meldung$, titel$)
If passwort$ = "password" Then
ActiveSheet.Unprotect password:="password"
ActiveSheet.Delete
Application.ScreenUpdating = True
Else
Sheets("Start").Activate
Application.ScreenUpdating = True
Exit Sub
End If
frmPlanauswahl.Hide
Application.ScreenUpdating = True
End Sub
Leider stürzt EXCEL mit dieser Fehlermeldung
(Laufzeitfehler '-2147417847(80010108)': Automatisierungsfehler. Das
aufgerufene Objekt wurde von den Clients getrennt
ab. Der Prozess bleibt übrigens weiterhin im Task-Manager bestehen, was
heißt, das ein erneutes Öffnen die Meldung bringt, dass die Mappe schon in
Verwendung ist und man nur schreibgeschützt arbeiten kann, bzw.
benachrichtigt wird, wenn sie geschlossen wird.
WER KANN MIR EINE ERKLÄRUNG GEBEN, WAS ICH DA VERBOCKT HABE?