da beim Schützen des Blattes kein Ereignis ausgelöst wird, mußt du dir selber ein Makro erstellen, mit dem du das Blatt schützt und vorher die Checkbox ausblendest:
CheckBox1.Visible = fale
ActiveSheet.Protect
Viel Erfolg!
AW: Checkbox unsichbar wenn Blatt geschützt
15.12.2005 11:24:42
Thomas
Hm, gibt es denn wenigstens eine Möglichkeit um festzustellen ob der Schutz aktiv ist? Dann würde ich eine entsprechende Abfrage einbauen um die Funktion der Checkbox nicht auszuführen.
Thomas
AW: Checkbox unsichbar wenn Blatt geschützt
15.12.2005 11:42:30
Galenzo
ActiveSheet.ProtectContents
Viel Erfolg!
AW: Checkbox unsichbar wenn Blatt geschützt
15.12.2005 12:53:17
Thomas
Das funktioniert nicht.
If ActiveSheet.ProtectContents Then Exit Sub
Ich denke mal das so gemeint war. Dann funktioniert die Checkbox gar nicht mehr. Weder im ungeschützten Blatt noch im geschützten.
Thomas
Anzeige
AW: Checkbox unsichbar wenn Blatt geschützt
15.12.2005 13:21:35
Andi
Hi,
kann ich nicht bestätigen;
folgendes kleines Test-Makro tut unter XL2003 genau was es soll:
Private Sub CheckBox1_Click()
If ActiveSheet.ProtectContents Then Exit Sub
MsgBox CheckBox1.Value
End Sub
wenn das Blatt ungeschützt ist, dann wird bei jeden Klick der aktuelle Wert der CheckBox ausgegeben, wenn das Blatt geschützt ist, passiert nix.
Schönen Gruß,
Andi