VBA-Code zum Schutz von Excel-Arbeitsmappen

Computer: Software & Programmierung Visual Basic
#1

Guten Tag,
habe folgenden Code gefunden, um auf einmal alle Blätter einer Mappe zu schützen.
For Each Blatt _
In ActiveWorkbook.Sheets
Blatt.Protect _
DrawingObjects:=True, _
Contents:=True, _
Scenarios:=True
Next
End Sub

Frage: wo gebe ich dann das Kennwort zum Öffnen ein?

#2

Guten Tag,

leider kann ich Ihnen hier nicht weiterhelfen, da ich mich mit VBA-Codes nicht auskenne.

Sorry, hoffentlich kann Ihnen ein anderer Experte helfen.
viele Grüße