Code zusammenfügen
20.08.2006 14:51:31
Dirk
habe hier im Forum folgende 2 Codes gefunden.
Ziel ist es, mittels CommandButton alle Blätter der Mappe mit Blattschutz (ohne PW) zu versehen, wobei der CB dann grün sein soll mit der Aufschrift "Freigabe".
Bei nochmaligen Klicken sollen alle Blätter ENTschützt werden u. der CB soll rot werden mit der Aufschrift "Sperren".
Leider scheint im 1. Code ein Fehler zu stecken - funzt nicht - und ich bekomme es auch nicht gebacken, beide Codes zu vereinen.
1. Blattschutz an/aus (leider fehlerhaft)
Private Sub CommandButton1_Click()
Dim objWs As Worksheet
Dim blnProtect As Boolean
blnProtect = CommandButton1.Caption = "Freigabe"
Application.ScreenUpdating = False
For Each objWs In ThisWorkbook.Worksheets
If blnProtect Then
objWs.Protect
Else
objWs.Unprotect
End If
Next
CommandButton1.Caption = IIf(blnProtect, "Freigabe", "Sperren")
Application.ScreenUpdating = True
End Sub
2. Farbänderung (verbunden mit Änd. der Aufschrift)
' With Me.CommandButton1
' If .Value = False Then
' .Caption = "Freigabe"
' .BackColor = &HC000&
' Me.Frame2.Enabled = True
' Else
' .BackColor = &HFF&
' .Caption = "Sperren"
' Me.Frame2.Enabled = False
' End If
' End With
Wie habe ich kürzlich hier im Forum gelesen: Ich werde alle Helfer in mein Abendgebet einschliessen... ;-)
MfG Dirk N.