Excel: Steuerelemte u. Blatt schützen

Computer: Software & Programmierung Office Software
1

Folgendes Problem:
Ich habe Checkboxen, die sich auf eine Zelle beziehen. Damit ich die Checkboxen im geschützen Modus bedienen kann, muss ich ja leider auch die Zellen freigeben, auf die diese sich beziehen. Ich will aber eine Veränderung der Bezugszellen vermeiden.
Danke

2

Ich habe Checkboxen, die sich auf eine Zelle beziehen. Damit
ich die Checkboxen im geschützen Modus bedienen kann, muss ich
ja leider auch die Zellen freigeben, auf die diese sich
beziehen. Ich will aber eine Veränderung der Bezugszellen
vermeiden.

Hallo frankie,

so wie dich verstehe kann das doch gar nicht gehen.

M.E. kann es nur so gehen:
a) zellschutz für die Zelle entfernen
b) Zellwert ändern
c) Zellschutz wieder setzen.

Selbst mit Makro mußt du diesen Weg gehen. Allerdings macht das ein makro so flink daß du das gar nicht mitkriegst.

Gruß
Reinhard

3

Ähhh
Hallo!
Danke für Deine Antwort.
Mein Problem ist, wenn ich die Checkboxen nicht sperre, bekomme ich im „geschützten Modus“ eine Meldung, dass sie geschützt sind. Das lässt sich nur umgehen, indem ich auch die Zellen „entsperre“ auf die sich die Checkboxen beziehen. Folge: Der Benutzer kann diese Zellen auch im geschützen Modus ändern. Das soll so aber nicht sein.
Ich hoffe es war nun etwas verständlicher.
Ich bin auf deine Antwort gespannt =)

Guten Tag,

4

Checkbox soll geschützte Zelle beschreiben

Mein Problem ist, wenn ich die Checkboxen nicht sperre,
bekomme ich im „geschützten Modus“ eine Meldung, dass sie
geschützt sind. Das lässt sich nur umgehen, indem ich auch die
Zellen „entsperre“ auf die sich die Checkboxen beziehen.
Folge: Der Benutzer kann diese Zellen auch im geschützen Modus
ändern. Das soll so aber nicht sein.

Hallo Frankie,

ins Modul des Blattes mit den Checkboxen:

Option Explicit
'
Private Sub CheckBox1\_Change()
Range("A1").Value = CheckBox1.Value
ActiveSheet.Protect
End Sub
'
Private Sub CheckBox1\_MouseDown(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)
ActiveSheet.Unprotect
End Sub

Gruß
Reinhard

1 „Gefällt mir“
5

Danke Dir!
Schade, dass MS es so eingerichtet hat, dass es nur über Makros geht. m. E. sollte das eine Standard-Funktion sein.

Guten Tag,