Laufzeitmeldung abfangen und durch eigene ersetzen

Hallo an alle Helfenden,
ich hab da mal eine Frage. Ich benutze folgende VBA Anweisung:
Application.VBE.MainWindow.Visible = True
Damit gelange ich in die VBA Umgebung. Nun ist es so, dass ab Excel2002 für diese Anweisung unter Extra - Makro - Sicherheit... in der Registerkarte Vertrauenswürdige Quellen der Punkt
Zugriff auf Visual Basic-Projekt vertrauen
Aktiviert sein muss. Ist das nicht aktiviert, kommt es zu einem Laufzeitfehler. Nun meine Frage, kann man diese Laufzeitfehlermeldung irgend wie abfangen und durch eine eigene MsgBox ersetzen, die dem Benutzer mitteilt, dass diese Einstellung getroffen werden muss, bevor er weiterarbeiten kann? Geht so etwas? Über Tipps wäre ich Euch sehr dankbar.
Vielen Dank schon mal,
Oliver

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Sub Dein_Makro() on error goto errorhandler 'hier kommt Dein Code rein exit sub errorhandler: select case Err case 'hier die Fehlernummer zu Deinem speziellen Laufzeitfehler MsgBox "Bitte nehmen Sie die notwendigen Einstellungen vor case else MsgBox "Es ist ein unerwarteter Fehler aufgetretren end select End Sub

Hallo noch mal!
Ich hoffe, Ihr schaut noch mal hier vorbei. Ich benötige nämlich noch mal Hilfe zu dem Abfangen des Laufzeitfehlers. Ich benutze den Code von Andi. Ich möchte nun eine Fehlermeldung ausgeben und dann, dass die Datei ohne zu speichern geschlossen wird. Dazu habe ich in dem Errorhandler folgendes eingetragen:
Exit Sub
errorhandler:
Select Case Err
Case 1004
MsgBox "Sie arbeiten mit einer Excelversion die neuer als Excel 2000 ist. Daher wird das Programm zunächst einmal beendet. Sie müssen Excel erneut mit einer leeren Arbeitsmappe öffnen. Danach gehen Sie in der Menüleiste auf 'Extras - Makro - Sicherheit' und klicken dann auf die Registerkarte 'Vertrauenswürdige Quellen'. Dort suchen Sie den Auswahlpunkt 'Zugriff auf Visual Basic-Projekt vertrauen' und aktivieren diesen. Danach beenden Sie das Fenster und Excel und starten den Beitragsrechner erneut. Der Fehler sollte dann nicht mehr auftreten."
ThisWorkbook.Saved = True
Application.Quit
Case Else
MsgBox "Es ist ein unerwarteter Fehler aufgetretren"
End Select

Allerdings kommt trotz der Anweisung
ThisWorkbook.Saved = True
die Abfrage, ob ich die Datei speichern möchte. Wie kann ich das denn bitte schön unterbinden. Danke Euch schon mal wieder im Voraus für die Hilfe.
Gruß,
Oliver

Beliebteste Forumthreads (12 Monate)

Laufzeitmeldung abfangen und durch eigene ersetzen

7 Beiträge zum Forumthread Beiträge zu diesem Forumthread

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

7
Beiträge zum Forumthread

Beiträge zu diesem Forumthread