VBA Code ergänzen

Sub Blattschutz_freigeben() ' Blattschutz_freigeben Makro ' für alle Arbeitsblätter den Blattschutz entfernen Dim Passwort As String Passwort = Application.InputBox(prompt:="Geben Sie das Passwort ein", Type:=2) If Passwort "******" Then Exit Sub Dim i As Integer Dim pw As String For i = 1 To ActiveWorkbook.Worksheets.Count ActiveWorkbook.Worksheets(i).Activate ActiveSheet.Unprotect Password:="*****" Next i End Sub

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Hallo Tweri,
hier eine erweiterte Version Deines Codes :

Public Const strPW = "abc" 'Universal-Passwort für alle Blätter
Sub Blattschutz_freigeben()
' Blattschutz_freigeben Makro
' für alle Arbeitsblätter den Blattschutz entfernen
Dim Passwort As String, ws As Worksheet, strF As String, strU As String, strT As String
Do
Passwort = Application.InputBox(prompt:="Geben Sie das Passwort ein", Type:=2)
If Passwort = strPW Then
For Each ws In ActiveWorkbook.Worksheets
If ws.ProtectContents Then
On Error Resume Next
Err.Clear
ws.Unprotect Password:=Passwort
If Err.Number > 0 Then
strF = strF & ws.Name & vbLf
End If
On Error GoTo 0
Else
strU = strU & ws.Name & vbLf
End If
Next
If strF  "" Then strT = "Folgende Blätter besitzen ein anderes Passwort :" _
& vbLf & strF & vbLf & vbLf
If strU  "" Then strT = strT & "Folgende Blätter sind ungeschützt :" _
& vbLf & strU
If strT  "" Then MsgBox strT, vbOKOnly + vbInformation, "Hinweis :"
ElseIf Passwort = CStr(False) Then
'keine Aktion
Else
Passwort = IIf(MsgBox("Passwort erneut eingeben ?", vbYesNo + vbCritical, _
"Falsches Passwort !") = vbYes, "ja", CStr(False))
End If
Loop Until Passwort = strPW Or Passwort = CStr(False)
End Sub

Neuerungen im Gegensatz zu Deinem Code :

Das Universal-Passwort wird ausserhalb des SUB als PUBLIC CONST deklariert, somit muss es nur einmalig im Code angegeben werden

Es wird nun solange nach einem Passwort gefragt, bis das Universal-Passwort eingegeben wird oder die Eingabe abgebrochen wird.

Ungeschützte Blätter erzeugen keine Fehler, am Ende wird eine Meldung über ungeschützte Blätter ausgegeben

Blätter, die mit einem anderen Passwort geschützt sind, erzeugen keine Fehler, am Ende wird eine Meldung über diese Blätter mit abweichendem Passwort ausgegeben

Gruß, NoNet

Beliebteste Forumthreads (12 Monate)

4
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

VBA Code ergänzen

4 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)

4
Beiträge zum Forumthread

Beiträge zu diesem Forumthread