Blattschutz Auslöser
Knatterkopf
mal so in den Raum gefragt:
Habe dazu nichts in den Beiträgen finden können.
Kann ich den individuellen Blattschutz mit dem gewöhnlichen "Blatt Schützen" Button auslösen?
Sprich:
Private Sub Workbook_Open() Hier mit "Blatt schützen" auslösen
Dim UShape As Shape
Worksheets("Tabelle1").Protect "hallo"
With Worksheets("Tabelle1")
For Each UShape In .Shapes
UShape.Visible = Not (UShape.Visible)
Next
End With
End Sub
Private Sub KillSchutz() Hier mit "Blattschutz aufheben" auslösen
Worksheets("Tabelle1").Unprotect "hallo"
With Worksheets("Tabelle1")
For Each UShape In .Shapes
UShape.Visible = True
Next
End With
End Sub
Viele Grüße
Adrian
Anzeige