Makro ausführen nach Passwortabfrage

Forumthread: Makro ausführen nach Passwortabfrage

23.07.2006 11:01:53

Mister

Guten Morgen,
Ich versuche folgendes Problem zu lösen, leider ohne Erfolg:
Die standard Excel-Menüs sind durch andere ersetzt worden. Beim Clicken auf einem bestimmten Menü-Punkt soll folgendes passieren:
Ein MsgBox soll nach einem Passwort fragen ("Herber")
Wenn die Eingabe richtig ist, sollen die Makros "DPOMenus" und "DefaultMenus" ausgeführt werden. Das MsgBox soll ausgeblendet werden.
Wenn die Eingabe nicht richtig ist, wird das erste MsgBox ausgeblendet und ein zweites MsgBox weist darauf hin, dass die Eingabe falsch war. Durch clicken auf "OK" verschwindet das zweite MsgBox

2
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

inputbox

ransi
AW: Makro ausführen nach Passwortabfrage

23.07.2006 11:20:12

Josef

inputbox

ransi

Hallo
vereinfacht geht das so:

Option Explicit
Public Sub Aufruf()
If InputBox("Passwort eingeben.") = "Herber" Then
    Call DPOMenus
    Call DefaultMenus
    Else:
    MsgBox "Falsche Eingabe"
End If
End Sub
Public Sub DPOMenus()
MsgBox "DPOMenus"
End Sub
Public Sub DefaultMenus()
MsgBox "DefaultMenus"
End Sub

ransi

AW: Makro ausführen nach Passwortabfrage

23.07.2006 11:20:12

Josef

Hallo MisterB (realnames sind hier gerne gesehen und üblich!)
Bei VBA-gut sollte das aber kein Problem darstellen.

Sub Password()
Dim strInput As String

strInput = InputBox("Passwort:", "Passwort")

If strInput = "" Then Exit Sub

If strInput = "Herber" Then
  Call DPOMenus
  Call DefaultMenus
Else
  MsgBox "Falsches Passwort!", vbExclamation, "Fehler"
End If

End Sub

Gruß Sepp

Infobox / Tutorial

Schritt-für-Schritt-Anleitung

Öffne den VBA-Editor: Drücke ALT + F11, um den Visual Basic for Applications (VBA) Editor zu öffnen.
Ein neues Modul erstellen: Klicke im Projekt-Explorer mit der rechten Maustaste auf dein Projekt und wähle Einfügen > Modul.

VBA-Code einfügen: Kopiere und füge folgenden Code in das Modul ein:

Option Explicit

Public Sub PasswortAbfrage()
    Dim strInput As String
    strInput = InputBox("Passwort eingeben:", "Passwort")

    If strInput = "" Then Exit Sub

    If strInput = "Herber" Then
        Call DPOMenus
        Call DefaultMenus
    Else
        MsgBox "Falsches Passwort!", vbExclamation, "Fehler"
    End If
End Sub

Public Sub DPOMenus()
    MsgBox "DPOMenus"
End Sub

Public Sub DefaultMenus()
    MsgBox "DefaultMenus"
End Sub

Makro ausführen: Du kannst das Makro mit dem Excel-Shortcut ALT + F8 ausführen und das Makro PasswortAbfrage auswählen.

Häufige Fehler und Lösungen

Fehler: "Falsches Passwort!" wird immer angezeigt.
- Lösung: Überprüfe den eingegebenen Text auf Tippfehler, da die Passwortabfrage zwischen Groß- und Kleinschreibung unterscheidet.
Fehler: Das Makro wird nicht ausgeführt.
- Lösung: Stelle sicher, dass die Makros in den Excel-Optionen aktiviert sind. Gehe zu Datei > Optionen > Sicherheitscenter > Einstellungen für das Sicherheitscenter und aktiviere die Makros.

Alternative Methoden

Falls du eine einfache Passwortabfrage HTML bevorzugst, kannst du ein Userform anstelle einer InputBox verwenden. Hier ist ein einfaches Beispiel:

Erstelle ein Userform und füge ein Textfeld und zwei Schaltflächen (OK und Abbrechen) hinzu.
Füge den entsprechenden Code in das Userform ein, um die Passwortabfrage durchzuführen.

Praktische Beispiele

Um diese Passwortabfrage zu testen, kannst du die Funktion PasswortAbfrage an einen Button in deiner Excel-Arbeitsmappe binden:

Füge einen Button über Entwicklertools > Einfügen > Button hinzu.
Weisen den Button der PasswortAbfrage-Funktion zu.

Jetzt kannst du das Makro einfach durch Klicken auf den Button ausführen.

Tipps für Profis

Excel-Shortcut Makro ausführen: Du kannst auch einen Excel-Shortcut festlegen, um das Makro schneller zu starten. Gehe zu Entwicklertools > Makros, wähle dein Makro aus und klicke auf Optionen, um einen Shortcut zu vergeben.
Passwortabfrage verschlüsseln: Um die Sicherheit zu erhöhen, kannst du das Passwort in einer verschlüsselten Form speichern und erst zur Laufzeit entschlüsseln.

FAQ: Häufige Fragen

1. Wie kann ich das Passwort ändern?
Ändere einfach den Text "Herber" im VBA-Code zu deinem neuen Passwort.

2. Kann ich die Passwortabfrage anpassen?
Ja, du kannst die Nachricht in der InputBox und die Meldungen in MsgBox nach Belieben anpassen.

3. Was ist, wenn ich keine Programmiererfahrung habe?
Keine Sorge! Die oben genannten Schritte sind einfach umzusetzen, und du kannst jederzeit Hilfe in Excel-Foren suchen.

Beliebteste Forumthreads (12 Monate)

Makro ausführen nach Passwortabfrage

Forumthread: Makro ausführen nach Passwortabfrage

2 Beiträge zum Forumthread Beiträge zu diesem Forumthread

Forumthreads zu verwandten Themen

Infobox / Tutorial

Makro ausführen nach Passwortabfrage

Schritt-für-Schritt-Anleitung

Häufige Fehler und Lösungen

Alternative Methoden

Praktische Beispiele

Tipps für Profis

FAQ: Häufige Fragen

Beliebteste Forumthreads (12 Monate)

2
Beiträge zum Forumthread

Beiträge zu diesem Forumthread