unprotect / protect passwortabfrage

Mit diesem CODE sperre ich meine Arbeitsblätter bzw. entsperre sie:


Sub Blattschutz_ein()
Dim wks As Worksheet
myPwd = Application.InputBox("Passwort eingeben")
myPwd2 = Application.InputBox("Wiederholung")
If myPwd = myPwd2 Then
For Each wks In ActiveWorkbook.Worksheets
wks.Protect Password:=myPwd
Next wks
Else: MsgBox ("Paßwort übereinstimmend eingeben")
End If
End Sub


Sub Blattschutz_aus()
Dim wks As Worksheet
myPwd = Application.InputBox("Passwort eingeben")
For Each wks In ActiveWorkbook.Worksheets
wks.Unprotect Password:=myPwd
Next wks
End Sub

Gibt man bei "Blattschutz_aus()" ein falsches Passwort ein, kommt ein Laufzeitfehler! Kann man diesen Fehler im Makro abfangen?
Von wegen:
On Error GoTo FalschesPasswort
Wenn ja, kann mir jemand den Code entsprechend editieren?
Eine Meldung mit "Falsches Passwort" wäre gut...

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Sub Blattschutz_aus() On Error Resume Next Dim wks As Worksheet myPwd = Application.InputBox("Passwort eingeben") For Each wks In ActiveWorkbook.Worksheets wks.Unprotect Password:=myPwd Next wks End Sub

Sub Blattschutz_aus() On Error GoTo Fehler Dim wks As Worksheet myPwd = Application.InputBox("Passwort eingeben") For Each wks In ActiveWorkbook.Worksheets wks.Unprotect Password:=myPwd Next wks Exit Sub Fehler: MsgBox "Das Paßwort ist falsch. Bitte wiederholen!", vbInformation + vbOKOnly, "Hinweis" End Sub

Sub Blattschutz_ein() On Error Resume Next Dim wks As Worksheet myPwd = Application.InputBox("Passwort eingeben") If myPwd = 0 Then Exit Sub myPwd2 = Application.InputBox("Wiederholung") If myPwd = myPwd2 Then For Each wks In ActiveWorkbook.Worksheets wks.Protect myPwd wkb.Protect myPwd, Structure:=True, Windows:=False Next wks ActiveWorkbook.Protect myPwd, Structure:=True, Windows:=False Else: MsgBox ("Paßwort übereinstimmend eingeben") End If End Sub

Sub Blattschutz_aus() On Error GoTo fehler Dim wks As Worksheet myPwd = Application.InputBox("Passwort eingeben") ActiveWorkbook.Unprotect myPwd For Each wks In ActiveWorkbook.Worksheets wks.Unprotect myPwd Next wks Exit Sub fehler: MsgBox "Das Paßwort ist falsch. Bitte wiederholen!", vbInformation + vbOKOnly, "Hinweis" End Sub

Sub Blattschutz_ein() On Error Resume Next Dim wks As Worksheet mypwd = Application.InputBox("Passwort eingeben") If mypwd = 0 Then Exit Sub myPwd2 = Application.InputBox("Wiederholung") If mypwd = myPwd2 Then For Each wks In ActiveWorkbook.Worksheets wks.Protect mypwd Next wks Else: MsgBox ("Paßwort übereinstimmend eingeben") End If End Sub

Beliebteste Forumthreads (12 Monate)

unprotect / protect passwortabfrage

9
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

unprotect / protect passwortabfrage

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