Live-Forum - Die aktuellen Beiträge
Datum
Titel
25.04.2024 23:47:55
Datum ausweisen, wenn definierte Summe erreicht ist
25.04.2024 21:40:53
Excel Datenquelle aus dem Web mit Anmeldung?
25.04.2024 21:21:16
Zellkommentar in UserForm anzeigen und bearbeiten
25.04.2024 21:13:13
Kalenderwochen addieren
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
1144to1148
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
1144to1148
1144to1148
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Fenster mit dem VBA-Laufzeitfehler ‚1004’

Fenster mit dem VBA-Laufzeitfehler ‚1004’
Matthias
Ich habe Tabellen einer Arbeitsmappe mit einem Blattschutz versehen und dafür auch ein Passwort vergeben.
In einem VBA-Skript verwende ich den Befehl ActiveSheet.Unprotect um den Blattschutz aufzuheben. Wird beim Ausführen des Skripts nun jedoch ein falsches Passwort eingegeben oder der Vorgang abgebrochen, so erhalte ich ein Fenster mit dem VBA-Laufzeitfehler ‚1004’ u. a. mit den Möglichkeiten "Beenden" oder "Debuggen".
Wie kann ich in meinem Skript diesen Fehler verhindern?

Public Sub prcEntsperren()
Dim Mldg, Stil, Titel, Antwort, Text1
Mldg = "ACHTUNG!!! Für die erneute Freigabe des Blattes wird ein Passwort benötigt."
& vbCrLf & "" & vbCrLf & "" & vbCrLf & "" & vbCrLf & "Unbefugte müssen diesen Vorgang
mit [Nein] abbrechen !!" & vbCrLf & "" & vbCrLf & "Blatt erneut freigeben mit [ja]"
Stil = vbYesNo + vbCritical + vbDefaultButton2
Titel = ""
Antwort = MsgBox(Mldg, Stil, Titel)
If Antwort = vbYes Then
ActiveSheet.Unprotect
Cells.Locked = False
Range("c5").Value = "Freigabe aufgehoben"
Range("c5").Cells.Font.Italic = True
Range("c5").Cells.Font.Bold = True
Range("c5").Cells.Font.ColorIndex = 5
Else
MsgBox "Erneute Freigabe abgebrochen"
End If
End Sub

8
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Benutzer
Anzeige
On Error Resume Next owT
16.03.2010 16:24:06
Detlef
AW: mit on Error Resume Next sollte man
17.03.2010 00:02:59
Daniel
vorsichtig umgehen, sonst kann das schnell zu unerwünschten Ergebnissen führen!
Wenn du in deinem Script Fehler vermeiden willst, dann so:
Sub Text()
On Error Resume Next
ActiveSheet.Unprotect
On Error Goto 0
If ActiveSheet.ProtectContents then
Msgbox "Falsches Password, das Blatt konnte nicht entsperrt werden
Else
'--- hier den weiteren Code einfügen, der ablaufen soll, wenn das Password richtig ist
End if
End Sub

Gruß, Daniel
AW: mit on Error Resume Next sollte man
17.03.2010 15:28:57
Matthias
Hallo Daniel,
erst Mal Danke.
Ich habe deinen Code wie folgt eingefügt:

Public Sub prcEntsperren()
Dim Mldg, Stil, Titel, Antwort, Text1
Mldg = "ACHTUNG!!! Für die erneute Freigabe des Blattes wird ein Passwort benötigt...."  _
Stil = vbYesNo + vbCritical + vbDefaultButton2
Titel = ""
Antwort = MsgBox(Mldg, Stil, Titel)
If Antwort = vbYes Then
ActiveSheet.Unprotect
                On Error Resume Next
ActiveSheet.Unprotect
On Error GoTo 0
If ActiveSheet.ProtectContents Then
MsgBox "Falsches Password, das Blatt konnte nicht entsperrt werden"
Else
Cells.Locked = False
Range("c5").Value = "Freigabe aufgehoben"
Range("c5").Cells.Font.Italic = True
Range("c5").Cells.Font.Bold = True
Range("c5").Cells.Font.ColorIndex = 5
End If
Else
MsgBox "Erneute Freigabe abgebrochen"
End If
End Sub

Aber offensichtlich habe ich etwas falsch gemacht, denn ...
  • wenn ich bei der Aufforderung das Passwort für die Freigabe einzugeben auf [Abbrechen] klicke kommt die gleiche Aufforderung erneut. ----> Wäre ja noch o.k.

  • wenn ich nun wieder auf [Abbrechen] klicke erhalte ich die Meldungsbox mit dem Text der Anweisung Msgbox ("Falsches Passwort ...") und es erfolgt keine weitere VBA-Ausführung und keine VBA-Fehlermeldung ----> Bei angepasstem/geänderten Text ginge das ja auch noch.

  • ABER ... wenn ich kein Passwort oder ein falsches Passwort eingebe und mit [OK] bestätige, so erhalte ich wieder den Laufzeitfehler '1004' mit der Info "Das eingegebene Passwort ist ungültig ..."

    • Was mache ich falsch?
    Code an der falschen Stelle (habe schon Verschiedenes probiert)?
    Oder fehlt noch eine Anweisung?
    Anzeige
    AW: On Error Resume Next owT
    17.03.2010 14:43:18
    Matthias
    Hallo Detlef,
    danke für Deine Antwort.
    Enthält sie nur einen Betreff? Textbereich leer?
    Die Anweisung On Error Resume Next beschreibt die VBA-Hilfe wie folgt:
    Legt fest, daß das Programm die Ausführung beim Auftreten eines Laufzeitfehlers mit der Anweisung fortsetzt, die auf die fehlerverursachende Anweisung folgt.
    Was ist dann unter dem owT zu verstehen, das bei dir dem Anweisungs-Befehl folgt?
    AW: On Error Resume Next owT
    18.03.2010 13:21:06
    Detlef
    Hallo,
    sorry, soll nur heißen, ohne weiteren Text in der Antwort. Die Anweisung lautet nur On Error Resume Next .
    Allerdings vorsichtig verwenden, da eine konkrete Fehlerbehandlung natürlich immer besser ist und Du auf den Fehler reagieren kannst. Bei On Error Resume Next wird der Fehler einfach nur übersprungen.
    Gruß Detlef
    Anzeige
    AW: On Error Resume Next owT
    18.03.2010 14:00:38
    Matthias
    Hallo,
    danke.
    Aber ich krieg's nicht hin.
    Anscheinend wird nur das Anklicken von [Abbrechen] als Fehler angesehen.
    Gebe ich kein oder ein falsches Passwort ein und klicke auf [OK], dann erhalte ich wieder den Laufzeitfehler '1004' mit der Info "Das eingegebene Passwort ist ungültig ..."
    Was läuft schief? Ein falsches Passwort ist doch auch eine Fehlermeldung.
    Ich habe auch schon folgende Variante versucht - Verhalten jedoch wie vorhin beschrieben.
    .....Anfang meines Skripts
    ActiveSheet.Unprotect
    On Error GoTo err_fehler1
    ......weiterer Code
    err_fehler1:
    MsgBox "Vorgang abgebrochen"
    Anzeige
    AW: On Error Resume Next owT
    18.03.2010 14:58:03
    Heiko
    Hallo Matthias,
    z.B so: 
    Public Sub prcEntsperren()
Dim Mldg As String
Dim Stil As Integer, Antwort As Integer
Mldg = "ACHTUNG!!! Für die erneute Freigabe des Blattes wird ein Passwort benötigt." _
& vbCrLf & vbCrLf & vbCrLf & vbCrLf & "Unbefugte müssen diesen Vorgang" _
& " mit [Nein] abbrechen !!" & vbCrLf & vbCrLf & "Blatt erneut freigeben mit [ja]"
Stil = vbYesNo + vbCritical + vbDefaultButton2
Antwort = MsgBox(Mldg, Stil)
If Antwort = 6 Then
On Error GoTo Errorhandler
ActiveSheet.Unprotect
Cells.Locked = False
Range("c5").Value = "Freigabe aufgehoben"
Range("c5").Cells.Font.Italic = True
Range("c5").Cells.Font.Bold = True
Range("c5").Cells.Font.ColorIndex = 5
Exit Sub
End If
Errorhandler:
MsgBox "Erneute Freigabe abgebrochen"
End Sub

    Gruß Heiko
    PS: Rückmeldung wäre nett!
    Anzeige
    AW: On Error Resume Next owT
    19.03.2010 13:47:08
    Matthias
    Hallo Heiko,
    vielen Dank - es funktioniert.

    305 Forumthreads zu ähnlichen Themen

    X-Achse innerhalb eines OWC10.Objektes
    Marc

    Guten Tag zusammen ..
    da der Topic etwas limitiert ist werde ich hier versuchen mein Problem einwenig zu verdeutlichen .. folgendes stellt sich mir dar
    ich versuche eine Unmenge an Daten mittels eines OWC10.Objektes innerhalb einer Userform garphisch darzustellen. Dabei werden die minut...
    12.08.2008 13:39:59
    Thread-ID: 1001188
    3 Beiträge
    Anzeige
    Initialwert bei string * 10
    Eddie

    Hallo,
    ich habe ein kleines Problem mit der Type Anweisung.
    Ich definiere in der Struktur u.a.
    Type TestTest teststring As String * 10 End Type Dim Test(500) As TestTest
    Zu meinem erstaunen, steht in z.B. Test.teststring, bevor die Variable das erste mal beschrieben wurde, 10...
    15.08.2008 11:03:00
    Thread-ID: 1002107
    4 Beiträge
    Wenn-Dann + SVERWEIS ???
    B@sti

    Hallo zusammen,
    ich bräuchte zu folgendem Thema eure Hilfe:
    und zwar geht es um den Abgleich zweier Arbeitmappen. In der ersten Arbeitsmappe befinden sich die Infos, aus der ein Ergebnis für die zweite Arbeitsmappe ausgelesen werden soll. Hab mal ne Beispieldatei angehängt:
    https://...
    21.08.2008 10:54:00
    Thread-ID: 1003404
    4 Beiträge
    Anzeige
    Wenn kein Optionsfeld ausgewählt dann MsgBox
    Bernhard

    Hallo liebe Excel Freunde!
    Wer kann mir bitte helfen? Ich habe eine UF mit 2 Optionsfeldern. Ich möchte einen Hinweis mit einer MsgBox bekommen, wenn keines der beiden Optionsfelder ausgewählt wurde.
    Wie mache ich das in VBA?
    Danke für Eure Hilfe
    Gruss
    Bernhard
    09.09.2008 11:32:23
    Thread-ID: 1008391
    5 Beiträge
    "wenn, dann, sonst" - Frage
    Oliver

    Hallo,
    kleines Problem,
    =WENN($I$4=4;4;0) liefert mir den Wert "0"
    Jetzt habe ich diese Formel folgendermaßen abgeändert:
    =Wenn((Istfehler(A1);"";Wenn($I$=4;4;0))
    ... dies liefert mir wieder den Wert "0", obwohl Istfehler(A1) erfüllt wird -confused-
    Nun meine Frage,...
    11.09.2008 10:23:00
    Thread-ID: 1008998
    16 Beiträge
    "Wenn Zeit > 17.30 Uhr dann"
    Susanne99

    Hallo,
    wie formuliere und formatiere ich den o.g. Ausdruck als Formel?
    Gruß
    Susanne
    14.09.2008 23:24:58
    Thread-ID: 1009640
    6 Beiträge
    zeile ermitteln aus : A10:C26
    reinhardt

    Hallo.
    In A1 stehen Range-Werte in folgender Form: A10:C26, oder BC150:M299
    Ich möchte alle Zeilen oberhalb von A10 (1 ...9) oder BC 150 (1...149) ausblenden.
    Dazu brauche ich einmal Hilfe bei einer Formel, die mir den Wert 9 aus A10:C26 oder
    den Wert 149 aus BC150:M299 erre...
    19.09.2008 09:22:00
    Thread-ID: 1010909
    2 Beiträge
    Wenn Zelle leer, dann Grafik löschen
    TomTom

    Hi,
    ich möchte auf meinem Sheet abprüfen, ob die Zelle A41 und B41 leer sind, und wenn ja, soll eine Grafik (.bmp / wurde eingefügt mit Kopieren und einfügen und heisst im Namensfeld "Bild 01")
    gelöscht oder unsichtbar werden.
    Wie mache ich dies ?
    Danke mal
    Gruss
    Tom<...
    22.09.2008 08:28:10
    Thread-ID: 1011373
    3 Beiträge
    Anzeige

    Beliebteste Forumthreads (12 Monate)

    Anzeige
    Jetzt das Excel-Portal bewerten: Deine Stimme zählt!

    Beliebteste Forumthreads (12 Monate)

    Anzeige
    Anzeige
    Anzeige
    Archiv - Verwandte Themen
    Forumthread
    Beiträge
    2
    1
    3
    3
    5
    4
    15
    5
    1
    2
    6
    3
    9
    9
    7
    3
    2
    2
    6
    2
    3
    9
    2
    2
    4