Blattschutz

Bild

Betrifft: Blattschutz
von: Luna
Geschrieben am: 28.10.2015 18:17:10

Hola liebes Forum, habe nochmal eine Frage.
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

Bild

Betrifft: AW: Blattschutz
von: Matthias
Geschrieben am: 28.10.2015 20:42:04
Hallo Luna,
dafür gibt es das Workbook_Open-Event:

Private Sub Workbook_Open()
Sheet("Tabelle1").Unprotect "xxx"
End Sub

Dies gehört nicht in ein Modul, sondern in "DieseArbeitsmappe" (s. Projekt-Explorer im VBA-Editor).
lg Matthias

Bild

Betrifft: AW: Blattschutz
von: Luna
Geschrieben am: 29.10.2015 16:42:53
Danke Matthias,
klappt Super
Saludos Luna

 Bild

Beiträge aus den Excel-Beispielen zum Thema "Blattschutz"