ich würde gerne die ersten 40 Mappen mit einem Macro auf einen Schlag schützen.
die Restlichen 5 nicht da diese mit Werten aus anderen Datenbanken gefüttert werden und ausgeblendet sind.
Ich habs bereits mit diesem Code versucht der aber leider alles schützt.
________________________________________________________________________________
Sub Schutz()
Dim i As Long
Dim p1 As String
Dim p2 As String
p1 = InputBox("Bitte Passwort eingeben!", "123")
p2 = InputBox("Bitte Passwort wiederholen!", "123")
If p1 = "" Or p2 = "" Then
MsgBox "Eingaben waren nicht korrekt!" & vbLf & vbLf & "Kein Blattschutz!"
Exit Sub
End If
If p1 p2 Then
MsgBox "Eingaben waren nicht korrekt!" & vbLf & vbLf & "Kein Blattschutz!"
Exit Sub
End If
For i = 1 To Sheets.Count
Sheets(i).Protect p1
Next i
MsgBox "alle Blätter wurden geschützt"
End Sub
und fürs Aufheben:
Sub Aufheben()
Dim i As Long
Dim p1 As String
Dim p2 As String
p1 = InputBox("Bitte Passwort eingeben!", "Passworteingabe")
If p1 = "" Then
MsgBox "Kein Passwort eingegeben!" & vbLf & vbLf & "Blattschutz wird nicht nicht _
aufgehoben!"
Exit
Sub
End If
On Error GoTo fehler
For i = 1 To Sheets.Count
Sheets(i).Unprotect p1
Next i
MsgBox "alle Blätter wurden entsperrt"
fehler:
If Err Then MsgBox "Falsches Passwort"
End Sub
Hat einer dafür eine Lösung wie man die Anzahl der Mappen begrenzen kann.
lg
Sebastian