Supportnet / Forum / Tabellenkalkulation
VBA Makro Passwort
Frage
Hallo Ihr alle!
Wer kann mir bitte helfen.
Ich habe mehrere Tabellen Exel 97 und auch mehere Makros, Ich möchte ein Makro so einrichten, dass beim anklicken ein Passwort abgefragt wird.
Am liebsten wäre es mir, wenn ich das ganze herunter kopieren könnte.
Was und wie muß ich das tun.
Gruß
rika
Antwort 1 von janu
bau dir ein formular ein textfeld.
stellst du in den eigenschaften ein, dass es passwortfeld sein soll (die buchstaben werden dann z.b. durch ****** ersetzt).
dann nimmst du ne einfache Wenn-Abfrage z.B.
Sub PasswortCheck()
Dim Passwort as String
Dim Eingabe as String
Eingabe = Textfeld.Value
Passwort = pw
If Eingabe = Passwort Then
´ Was auch immer dann passieren soll
end if
End Sub
stellst du in den eigenschaften ein, dass es passwortfeld sein soll (die buchstaben werden dann z.b. durch ****** ersetzt).
dann nimmst du ne einfache Wenn-Abfrage z.B.
Sub PasswortCheck()
Dim Passwort as String
Dim Eingabe as String
Eingabe = Textfeld.Value
Passwort = pw
If Eingabe = Passwort Then
´ Was auch immer dann passieren soll
end if
End Sub
Antwort 2 von rika
Hallo Janu!
Du hast mir als einziger geantwortet, dafür bin ich dir dankbar.
Leider weis ich nicht, wie ich das Ganze programmieren soll. Ich komme einfach nicht zu recht.
Am liebsten wäre mir eine Msg Box.
Naja! das wars wohl, ich danke dir.
Gruß
rika
Du hast mir als einziger geantwortet, dafür bin ich dir dankbar.
Leider weis ich nicht, wie ich das Ganze programmieren soll. Ich komme einfach nicht zu recht.
Am liebsten wäre mir eine Msg Box.
Naja! das wars wohl, ich danke dir.
Gruß
rika
Antwort 3 von coros
Hi Rika,
kopiere nachfolgendes Makro in ein StandardModul und starte es über eine Befehlsschaltfläche.
An die Stelle, wo jetzt "Rem: Hier dann Dein Makrocode" steht, muss der Code geschrieben werden, der nach der richtigen Eingabe des Passwortes abgearbeitet werden soll. Außerdem musst Du den Text "Dein Passwort" gegen das Passwort, welches Du vergeben möchtest, tauschen. Achte aber darauf, dass Dein Passwort zwischen 2 Anführungszeichen ("" ) steht.
Ich hoffe, Du hast das so gemeint. Bei Fragen, oder wenn das auch nicht das richtige ist, dann melde Dich.
Solltest Du nicht wissen, wie Du den Code in Deine Datei bekommst, dann schau mal auf meiner HP in der Rubrik Anleitungen und dort dann in der Anleitungsnummer 3 nach. Dort stelle ich dazu eine bebilderte Anleitung zur Verfügung, die Dir sicherlich helfen wird.
MfG,
coros
Da hier der einzige Lohn für die Helfer eine Rückmeldung ist, wäre es nett, wenn Du ein
Feedback abgeben könntest, ob der Lösungsvorschlag Dein Problem gelöst hat.
kopiere nachfolgendes Makro in ein StandardModul und starte es über eine Befehlsschaltfläche.
Sub Dein_Makro()
If Application.InputBox("Bitte geben Sie ein Passwort ein!", "Passwortabfrage") = "Dein Passwort" Then
Rem: Hier dann Dein Makrocode
Else
MsgBox "Sie haben nicht die Berechtigung, das Makro auszuführen", vbCritical, "Fehler"
End If
End Sub
An die Stelle, wo jetzt "Rem: Hier dann Dein Makrocode" steht, muss der Code geschrieben werden, der nach der richtigen Eingabe des Passwortes abgearbeitet werden soll. Außerdem musst Du den Text "Dein Passwort" gegen das Passwort, welches Du vergeben möchtest, tauschen. Achte aber darauf, dass Dein Passwort zwischen 2 Anführungszeichen ("" ) steht.
Ich hoffe, Du hast das so gemeint. Bei Fragen, oder wenn das auch nicht das richtige ist, dann melde Dich.
Solltest Du nicht wissen, wie Du den Code in Deine Datei bekommst, dann schau mal auf meiner HP in der Rubrik Anleitungen und dort dann in der Anleitungsnummer 3 nach. Dort stelle ich dazu eine bebilderte Anleitung zur Verfügung, die Dir sicherlich helfen wird.
MfG,
coros
Da hier der einzige Lohn für die Helfer eine Rückmeldung ist, wäre es nett, wenn Du ein
Feedback abgeben könntest, ob der Lösungsvorschlag Dein Problem gelöst hat.
Antwort 4 von rika
Hallo Ihr zwei!
Ich danke euch. Die Lösung von Coros habe ich verwendet. Und es funktioniert.
Super toll
Gruß
Rika
Ich danke euch. Die Lösung von Coros habe ich verwendet. Und es funktioniert.
Super toll
Gruß
Rika