Fehler abfangen ??

Sub M_2_Schutz_aus() Dim Pw As String Dim objWS As Worksheet 'Passwortabfrage-------------------------------- Pw = "m2" ' Passworteingabe--------------------- 'Passwortabfrage-------------------------------- Passw = Pw If InputBox("Bitte Password eingeben") Passw Then MsgBox "Falsches Passwort" Exit Sub End If For Each objWS In ThisWorkbook.Worksheets objWS.Unprotect Pw Next End Sub

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Sub M_2_Schutz_aus() Dim Pw As String, PwIn As String Dim objWS As Worksheet 'Passwortabfrage-------------------------------- Pw = "m2" ' Passworteingabe--------------------- 'Passwortabfrage-------------------------------- While PwIn = "" PwIn = InputBox("Bitte Password eingeben") If PwIn Pw Then PwIn = "" Wend For Each objWS In ThisWorkbook.Worksheets objWS.Unprotect Pw Next End Sub

Hallo Manfred,


If InputBox("Bitte Password eingeben")  Passw Then
MsgBox "Falsches Passwort"
    Exit Sub
End If

Exit Sub ist der Befehl zum aussteigen. Stattdessen willst du nochmal nach dem Passwort fragen.
Ganz brutal so:

PasswortNochmalEingeben:
If InputBox("Bitte Password eingeben")  Passw Then
MsgBox "Falsches Passwort"
GoTo PasswortNochmalEingeben
End If

Allerdings hängt dann ein User, der das Passwort nicht kennt, bis zum jüngsten Gericht in der Schleife fest! Also vielleicht lieber so:

PasswortNochmalEingeben:
Dim sTmp As String
sTmp = InputBox("Bitte Password eingeben")
If sTmp = "" Then Exit Sub                      'Abbruch ermöglichen
If sTmp  Pw Then GoTo PasswortNochmalEingeben 'Passwort nochmal erfragen

Grüße,
Klaus M.vdT.

Sub M_2_Schutz_aus() Dim Pw As String Dim objWS As Worksheet 'Passwortabfrage-------------------------------- Pw = "m2" ' Passworteingabe--------------------- 'Passwortabfrage-------------------------------- PasswortNochmalEingeben: Dim sTmp As String sTmp = InputBox("Bitte Password eingeben") If sTmp = "" Then Exit Sub 'Abbruch ermöglichen If sTmp Pw Then GoTo PasswortNochmalEingeben If sTmp = Pw Then For Each objWS In ThisWorkbook.Worksheets objWS.Unprotect Pw Next End If End Sub

Option Explicit Private Sub Workbook_Open() Dim sTmp As String PasswortNochmalEingeben: sTmp = InputBox("Bitte Password eingeben") If sTmp = "" Or StrPtr(sTmp) = 0 Then ThisWorkbook.Saved = 1 ThisWorkbook.Close End If If sTmp "123" Then GoTo PasswortNochmalEingeben 'Passwort nochmal erfragen End Sub

Beliebteste Forumthreads (12 Monate)

9
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

Fehler abfangen ??

9 Beiträge zum Forumthread Beiträge zu diesem Forumthread

VBA Beispiele zu verwandten Themen

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

9
Beiträge zum Forumthread

Beiträge zu diesem Forumthread