Live-Forum - Die aktuellen Beiträge
Datum
Titel
26.04.2024 21:51:33
Idee für Grafik
26.04.2024 21:29:07
PQ zufällige Reihenfolge
26.04.2024 17:18:47
Große Datenmenge in komplexes Diagramm verpacken
26.04.2024 16:22:47
Aktualisierung Verknüpfung bei geschlossener Quelldatei
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
708to712
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
708to712
708to712
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Kontrollkästchen in VBA

Kontrollkästchen in VBA
14.12.2005 10:10:11
Jörg
Hallo,
ich habe in einem geschützten Excel-Sheet Kontrollkästchen untergebracht. Bei jedem Klick erfolgt jedoch eine Fehlermeldung, da die Bezugszelle geschützt ist. Wie kann ich per VBA bei jedem Klick auf das Kontrollkästchen das Blatt entsperren, die Meldung FALSCH / WAHR von Excel in die Bezugszelle übertragen lassen und zum Schluss die Bezugszelle wieder schützen ?
Viele Grüße
Jörg

4
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Kontrollkästchen in VBA
14.12.2005 10:50:38
UweD
Hallo
Die Bezugszelle mußt du löschen und per VBA setzen.
so z.b.

Private Sub CheckBox1_Click()
ActiveSheet.Unprotect Password:="123"
Range("A1").Value = CheckBox1.Value
ActiveSheet.Protect Password:="123", DrawingObjects:=True, Contents:=True, Scenarios:=True
End Sub

Gruß UweD
(Rückmeldung wäre schön)
AW: Kontrollkästchen in VBA
14.12.2005 11:59:41
P@ulchen
Hallo Uwe,
da wird Jörg aber trotzdem eine Fehlermeldung erhalten, da das Click-Ereignis ja erst mal auf ein geschütztes Objekt trifft. Der Code läuft dann zwar weiter, aber die Fehlermeldung ist ja sicher nicht erwünscht.
Besser wäre vielleicht, den Blattschutz aufzuheben, wenn der User mit der Maus über das Kontrollkästchen fährt und beim Verlassen (Lost_Focus) den Schutz wieder zu setzen:


Private Sub CheckBox1_LostFocus()
ActiveSheet.Protect "passwort"
End Sub
Private Sub CheckBox1_MouseMove(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)
ActiveSheet.Unprotect "passwort"
End Sub


Gruß aus Leipzig
P@ulchen
Anzeige
AW: Kontrollkästchen in VBA
14.12.2005 12:10:35
UweD
Hallo
welchen sinn macht es ein Objekt zu sprerren, wenn es geändert werden SOLL?
Eine Checkbox aus der Steuerelementtoolbox funktioniert perfekt auch Ohne deine Ergänzung.
Siehe Musterdatei:
https://www.herber.de/bbs/user/29242.xls
Blatt ist geschützt.
Gruß UweD
(Rückmeldung wäre schön)
AW: Kontrollkästchen in VBA
14.12.2005 12:28:49
P@ulchen
Ups...natürlich, hatte vergessen, die LinkedCell rauszunehmen :-(
Dein Vorschlag funktioniert also, bei meinem kann die LinkedCell-Eigenschaft verwendet werden.
Gruß aus Leipzig
P@ulchen
Anzeige

Links zu Excel-Dialogen

CheckBox

Beliebteste Forumthreads (12 Monate)

Anzeige
Jetzt das Excel-Portal bewerten: Deine Stimme zählt!

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige