Live-Forum - Die aktuellen Beiträge
Anzeige
Archiv - Navigation
388to392
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
388to392
388to392
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

Fehlermeldung abfangen

Fehlermeldung abfangen
25.02.2004 13:05:27
Walter
Hallo Zusammen,
habe ein kleines Problem.
Ich habe ein Makro, wird über ein Button in der Mappe aufgerufen, um
den Schutz der Mappe aufzuheben.

Sub A_Geburtstagsl_Schutz_Aufheben()
Application.ScreenUpdating = False
Sheets("Geburtstagsliste").Unprotect '("ww") 'schutz aufheben
Range("A1").Select
Application.ScreenUpdating = True
End Sub

Ich möchte nun bei einer falschen Eingabe des Kennwortes eine MSGBOX erscheint
und dann wieder die neue Kennworteingabe gewähleistet wird.
Sonst erscheint bei mir "Laufzeitfehler 1004".
Herzlichen dank für eine Unterstützung.
Gruss Walter

4
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Fehlermeldung abfangen
25.02.2004 13:19:13
Waltraud

Sub A_Geburtstagsl_Schutz_Aufheben()
On Error GoTo Fehler
Application.ScreenUpdating = False
Sheets("Geburtstagsliste").Unprotect '("ww") 'schutz aufheben
Range("A1").Select
Application.ScreenUpdating = True
exit Sub
Fehler:
MsgBox
exit sub
End Sub


AW: Fehlermeldung abfangen
25.02.2004 14:41:18
Walter
Hallo Waltraud,
herzlichen Dank für die schnelle Hilfe.
Klappt prima!
Gruß Walter
AW: Fehlermeldung abfangen
25.02.2004 13:19:36
Thomas Risi
Hallo Walter
Versuch's mal so ...


Option Explicit
Sub A_Geburtstagsl_Schutz_Aufheben()
    
    On Error Resume Next
    
    Application.ScreenUpdating = False
    
10:
    
    Err.Clear
    
    Sheets("Geburtstagsliste").Unprotect '("ww") 'schutz aufheben
    
    If Err.Number = 1004 Then
        MsgBox "TEST"
        GoTo 10
    End If
    
    Range("A1").Select
    Application.ScreenUpdating = True
    
End Sub

     Code eingefügt mit Syntaxhighlighter 2.5

Gruß
Thomas
Risi Thomas Softwareentwicklung
Anzeige
AW: Fehlermeldung abfangen
25.02.2004 15:20:43
Walter
Hallo Thomas,
herzlichen DANK.
Funktioniert ebenfalls + direkter Aufruf wieder vom
Eingabedialog.
Gruß Walter

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige