Live-Forum - Die aktuellen Beiträge
Datum
Titel
28.03.2024 21:12:36
28.03.2024 18:31:49
Anzeige
Archiv - Navigation
784to788
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
784to788
784to788
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

Makro ausführen nach Passwortabfrage

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
Anzeige
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
Anzeige
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

Anzeige

23 Forumthreads zu ähnlichen Themen

Anzeige
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige