Checkbox und Blattschutz
25.02.2006 10:40:16
nightswimming26
ich habe folgendes Problem, bei dem ich momentan nicht weiterkomme:
Ich habe mein Projekt mit einem Blattschutz versehen, wobei jedes relevante Makro das Aufheben und wieder Einstellen des Blattschutzes ausführt:
Private Sub CheckBox1_Click()
ActiveSheet.Unprotect Password:="pg39"
If CheckBox1.Value = True Then
Range("Front!$B$29").Select
Selection.Interior.ColorIndex = 3
Else
If CheckBox1.Value = False Then
Range("Front!$B$29").Select
Selection.Interior.ColorIndex = 0
End If
ActiveSheet.Protect Password:="pg39"
End If
In dieser Form lief das Makro einwandfrei. Jetzt habe ich alle Passwörter für das Projekt auf einem weiteren Worksheet (Source) hinterlegt und das Makro holt sich das Passwort von dort:
Private Sub CheckBox1_Click()
ActiveSheet.Unprotect Password:=Range("Source!$B$3")
If CheckBox1.Value = True Then
Range("Front!$B$29").Select
Selection.Interior.ColorIndex = 3
Else
If CheckBox1.Value = False Then
Range("Front!$B$29").Select
Selection.Interior.ColorIndex = 0
End If
ActiveSheet.Protect Password:=Range("Source!$B$3")
End If
End Sub
Das Interessante: In anderen Teilen des Projektes funktioniert diese Passwortabfrage problemlos, die Makros machen, was sie sollen...
Wo liegt mein Denkfehler?
Ich freue mich über jede Antwort!
Gruß
Christian