Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender

Forumthread: Kontrollkästchen passwortgeschützt

Kontrollkästchen passwortgeschützt
09.09.2015 08:16:49
VBA-Neuling
Hallo zusammen,
ich bin relativ neu in der VBA Welt und komme gerade nicht weiter.
Ich habe 3 Tabellenblätter mit jeweils etwa 200 Formular-Kontrollkästchen. Mein Ziel ist es, dass diese Kontrollkästchen nur mit einem Passwort angeklickt werden können. Das mit dem Passwort klappt schon ganz gut, allerdings bekomme ich es einfach nicht hin, dass das Kontrollkästchen dann bei einer Falscheingabe nicht angeklickt ist.
Da ich so unheimlich viele Kontrollkästchen habe, möchte ich auch nicht unbedingt für jedes einen eigenen Code schreiben müssen. Und bei den Formular-K.Kästchen möchte ich eigentlich auch bleiben.
Weiß einer von euch da eine Lösung? Wäre euch sehr dankbar.
Liebe Grüße

Anzeige

6
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Kontrollkästchen passwortgeschützt
09.09.2015 11:11:28
Beverly
Hi,
wenn es nur darum geht, dass du nicht für jedes Kontrollkästchen einen Code schreiben willst, dann benutze AchtiveSheet.Shapes(Application.Caller) - damit sprichst du das aufrufende Shape an.


AW: Kontrollkästchen passwortgeschützt
10.09.2015 08:40:01
VBA-Neuling
Hi, vielen Dank für deine Antwort! Mein aller größtes Problem ist jedoch VBA zu sagen, dass das Kontrollkästchen dann nicht aktiviert werden soll, wenn das PW falsch eingegeben wird. Hier ist mal mein Code:
Sub Kontrollkästchen1_Klicken()
Dim PW
PW = Application.InputBox("Passwort eingeben", "Passwort")
If PW  "passwort" Then
MsgBox ("Falsches Passwort")
CheckBox = False: Exit Sub
End If
End Sub
Für die Zeile CheckBox = False brauch ich quasi etwas das funktioniert :/
Wisst ihr da eine Lösung?
LG

Anzeige
AW: Kontrollkästchen passwortgeschützt
10.09.2015 09:50:04
Beverly
Hi,
Sub Kontrollkästchen1_Klicken()
Dim PW
PW = Application.InputBox("Passwort eingeben", "Passwort")
If PW  "Passwort" Then
MsgBox ("Falsches Passwort")
ActiveSheet.CheckBoxes(1).Value = -4146: Exit Sub
End If
End Sub


Anzeige
AW: Kontrollkästchen passwortgeschützt
10.09.2015 11:06:39
VBA-Neuling
Hi Beverly,
danke für den Code. Das funktioniert schon mal super! Jetzt das andere Problem: Mit diesem Code müsste ich ja für jedes Kontrollkästchen den Code einzeln schreiben. Kann man da ne Schleife oder den Code allgemein gültig schreiben?
Vielen Dank für deine Hilfe!!

AW: Kontrollkästchen passwortgeschützt
10.09.2015 11:50:47
Beverly
Hi,
verknüpfe diesen Code mit allen Kontrollkästchen
Sub Kontrolle()
Dim PW
PW = Application.InputBox("Passwort eingeben", "Passwort")
If PW  "Passwort" Then
MsgBox ("Falsches Passwort")
ActiveSheet.Shapes(Application.Caller).ControlFormat.Value = -4146: Exit Sub
End If
End Sub

Da ich von deinem Ursprungscode ausgegangen bin: es wird nicht berücksichtigt, ob das Kontrollkästchen bereits aktiviert ist - es wird also auf jeden Fall zurückgesetzt wenn das PW falsch ist, gleichgültig ob es gerade aktiviert war oder nicht.


Anzeige
AW: Kontrollkästchen passwortgeschützt
10.09.2015 11:54:17
VBA-Neuling
Funktioniert! Genial, vielen lieben Dank!!
;

Forumthreads zu verwandten Themen

Anzeige
Entdecke relevante Threads

Schau dir verwandte Threads basierend auf dem aktuellen Thema an

Alle relevanten Threads mit Inhaltsvorschau entdecken
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Entdecke mehr
Finde genau, was du suchst

Die erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden

Suche nach den besten Antworten
Unsere beliebtesten Threads

Entdecke unsere meistgeklickten Beiträge in der Google Suche

Top 100 Threads jetzt ansehen
Anzeige