Makroproblem - DAU ?
05.08.2006 23:23:50
Dirk
habe mich ohne VBA-Kenntnisse mal an ein Thema herangewagt, an dem ich nun fast verzweifle.
Über einen CommandButton im Blatt 'allg' möchte ich alle Blätter in der Mappe (ohne Diagramme) jeweils mit Blattschutz versehen od. diesen aufheben (ohne PW). Das leere Blatt 'test' dient nur als "Startpunkt" - od. wie man das auch nennen mag.
Hier mal der Code:
Private Sub CommandButton1_Click()
Dim s As String, Blatt As Worksheet, ok As Boolean
Application.ScreenUpdating = False
If Sheets("test").Unprotect Then 'HIER fehlt mir die richtige Syntax
For Each Blatt In ThisWorkbook.Worksheets
Blatt.Protect Password:="", DrawingObjects:=True, Contents:=True, Scenarios:=True
s = "A U S"
ok = False
Else
For Each Blatt In ThisWorkbook.Worksheets
Blatt.Unprotect ("")
s = "A N"
ok = True
End If
Me.CheckBox1.Caption = s
Application.ScreenUpdating = True
End Sub
Die Beschriftung des Buttons ändert sich je nach Status, wobei ich die Logik dahinter noch nicht getestet habe.
Freue mich über jede Hilfe !
MfG Dirk N.