Mir geht es hauptsächlich um eine komfortable Kennwortabfrage , da ich bzw. der Anwender nicht jedesmal den Blattschutz aufheben sollte.
Vielen Dank !
Vielen Dank !
vielleicht so,
gruss thomas
Vielen Dank !
das mit der USER FORM habe ich schon probiert, kam aber nicht zu potte.
gruss thomas
kam nicht damit zurecht das passwort als ***** angezeigt zu bekommen. die eingabe war lesbar.
gruss thomas
Gruß Herbert
Mein "OK" Makro für die Userform:
Private Sub OK_Click()
Code eingefügt mit Syntaxhighlighter 1.14
Const Passw = "Passwort"
If TextBox1.Value = Passw Then
Call MeinMakro
Unload Me
Exit Sub
Else
MsgBox ("Falsches Kennwort")
Unload Me
End If
End Sub
entschuldigung wenn ich Laie euch jetzt in eurem "Fachgespräch" störe.
Aber wie binde ich Dein Makro in meine Datei ein. Die Text und Msgbox erscheinen ohne vorher ein Dialogfeld oder Objekt oder sowas zu erstellen ? Sorry, aber bin mit meinem Problem der Passwortabfrage halt noch nicht wirklich weiter.
Dennoch Danke für Euer Ohr !
Gruß
Andreas
Doppelklick auf "OK" und das Makro reinkopieren.
Den Namen der Schaltfläche mußt Du halt anpassen.
Unter die "Abbrechentaste" schreibst Du den Code "Unload me"
Im Eigenschaftsfenster kann man dann die Userform,die Schaltflächen u.
die Textbox nach belieben Formatieren.
Für das Aufrufen der Userform mußt du natürlich auch ein Makro in ein Modul schreiben:
Sub Aufruf_Userform1()
Load Userform1
Userform1.Show
End Sub
Gruß Herbert
dass ich mich erst jetzt wieder melde, aber mein t-dsl zu hause hat sich irgendwie verabschiedet, bin am basteln.
deswegen kurz aus der arbeit.
das mit dem(r)? PASSWORTCHAR war bei mir auch die kruxx.
hab jetzt eine woche urlaub (leichtathletik em in muenchen).
falls ich t-dsl wieder zum laufen kriege melde ich mich.
gruss thomas.
p.s.hi Andreas, mein fachwissen ist durch's Forum gestiegen, aber immer noch auf den unteren regalbrettern zu finden ;-)