Passwort für Kontrollkästchen oder Button

Guten Tag,
habe folgende Frage: in einer bestehenden Excel-Datei kann ich zu einem errechneten Betrag einen Nachlass von x-Prozent geben. Die Zelle in der per Listbox die möglichen Rabatte angeboten werden, wird per Kontrollbox mit einer "bedingten Formatierung" angezeigt oder ausgeblendet.
Jetzt hätte ich gerne (entweder nach anklicken der Kontrollbox oder auch per Button) dass nicht jeder Zugriff auf diesen Rabatt hat, sondern dies vorher mit einem Passwort genehmigt wird.
Ich habe hier im Forum schon verschiedene Beispiele mit ausblendbaren Seiten gefunden. Jedoch wird meine Excel-Datei ohne die Blattregisterkarten angezeigt, so dass dies ungeeignet ist. Dann habe ich das Problem, dass eine dieser Datei nicht in meine Datei kopiert werden kann.
Vielleicht hat jemand Hilfe zu bieten, so dass ich das in meine bestehende Datei einbauen kann.
Grup Werner

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Hallo Werner,
der folgende Code funktioniert für die ListBox (bezeichnet als Listbox1) und CheckBox (bezeichnet als Checkbox1) und beides auf Tabelle1.


Private Sub CheckBox1_Change()
If CheckBox1 = True Then
Passwort = InputBox("Bitte geben Sie das Passwort ein!", Passwort)
If Passwort = "1234" Then
Tabelle1.ListBox1.Visible = True
Else
Tabelle1.ListBox1.Visible = False
MsgBox "Falsches Passwort!", vbOKOnly, "Hinweis"
End If
End If
End Sub

Das Passwort lautet in diesem Fall: 1234
Die Listbox wird nur nach Eingabe des richtigen Passwortes eingeblendet.
Um die Listbox beim Öffnen der Mappe zu verbergen, muss noch folgender Code in das Workbook_Open Ereignis:


Private Sub Workbook_Open()
Tabelle1.ListBox1.Visible = False
End Sub

Funktioniert es so, wie Du es Dir gedacht hast? Sonst lad doch bitte mal eine Beispieldatei hoch!
Gruß
Henning

Option Explicit ' immer zu empfahlen Private Sub CheckBox1_Change() Dim strPassw As String If CheckBox1 = True Then strPassw = InputBox("Bitte geben Sie das Passwort ein!") If strPassw = "1234" Then Tabelle1.ListBox1.Visible = True Else Tabelle1.ListBox1.Visible = False Application.EnableEvents = False CheckBox1 = False Application.EnableEvents = True MsgBox "Falsches Passwort!", vbOKOnly, "Hinweis" End If Else Tabelle1.ListBox1.Visible = False End If End Sub

Beliebteste Forumthreads (12 Monate)

Passwort für Kontrollkästchen oder Button

4
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

304 Forumthreads zu ähnlichen Themen

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

Passwort für Kontrollkästchen oder Button

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

304 Forumthreads zu ähnlichen Themen

VBA Beispiele zu verwandten Themen

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

4
Beiträge zum Forumthread

Beiträge zu diesem Forumthread