Blattschutz
28.10.2015 18:17:10
Luna
Mit folgendem Makro aktiviere ich den Schutz der Arbeitsmappe.
Private Sub Workbook_BeforeClose(Cancel As Boolean)
On Error Resume Next
Dim WS As Worksheet
For Each WS In ThisWorkbook.Sheets
With WS
.Protect Password:="xxx"
End With
Next
End Sub
Das klappt auch Super. Aber wie kann ich erreichen das wenn die Mappe geöffnet wird automatisch der Blattschutz eines ausgeblendeten Sheets (Muster) deaktiviert wird.
Es soll nur bei diesem Sheet automatisch passieren. Die anderen Sheets deaktiviere ich einzelnd wenn nötig.
Vielen Dank an euch wie immer
Luna
Anzeige