Live-Forum - Die aktuellen Beiträge
Anzeige
Anzeige
HERBERS
Excel-Forum
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
312to316
312to316
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

makro mit kennwort starten

makro mit kennwort starten
22.09.2003 21:47:30
erich
hallo leute,

ich würde gerne einen makro über ein userform mit kennwort starten.

z.b. in textbox1 wenn das kennwort erich eingeben wird und man auf den button ok klickt, soll der makro ablaufen. wenn das kennwort falsch ist, soll eine fehlermeldung kommen und der makro nicht ablaufen.

danke für infos

gruß
erich

7
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: makro mit kennwort starten
22.09.2003 21:51:33
Hajo_Zi
Hallo Erich

mal als Ansatz. Eine Userform mit einer Textbox und ein CommandButton,.

Option Explicit
' erstellt von Hajo.Ziplies@web.de
' http://home.media-n.de/ziplies/


Private Sub UserForm_QueryClose(Cancel As Integer, CloseMode As Integer)
'   Damit mit X nicht geschloßen werden kann
If CloseMode = 0 Then
MsgBox "Bitte schließen Sie die Anwendung mit der -Ende- Schaltfläche.", vbCritical
Cancel = 1
End If
End Sub



Private Sub UserForm_Initialize()
TXT_Paßwort.SetFocus
End Sub



Private Sub CMD_OK_Click()
If TXT_Paßwort <> "Test" Then
MsgBox "Das Paßwort war falsch!!!", vbOKOnly + vbInformation, "Paßwortabfrage"
Unload Paßwort_Eingabe
'        ThisWorkbook.Close False
End If
Sheets("Tabelle2").Visible = True
Unload Paßwort_Eingabe
'    zweite UserForm aufrufen
'    oder entsprechende Aktivitäten
'    Auswahl.Show
End Sub



Private Sub CmMD_Ende_Click()
CMD_OK_Click
End Sub



Falls Code vorhanden wurde dieser getestet unter Betriebssystem XP Pro und Excel Version XP SBE.
Bitte kein Mail, Probleme sollen im Forum gelöst werden.

Microsoft MVP für Excel

Das Forum lebt auch von den Rückmeldungen.

Zurzeit gibt es wieder Probleme mit der E-Mail Benachrichtigung.

Ich bekomme Mails zu Beiträgen an denen ich nicht beteiligt bin und zusätzlich noch Mails zu meinen eigenen Beiträgen.
Das Problem mit den eigenen Benachrichtigung kann gelöst werden durch Lösche und Neuanmelden. Dieses möchte ich aber nicht jeden Tag machen.
Um dieses Problem erstmal zu beseitigen habe ich die automatische Mailbenachrichtigung abgeschaltet.
Aus diesem Grunde ist es dem Zufall überlassen ob auf Rückfragen Antworten von mir kommen.


http://home.media-n.de/ziplies/

Anzeige
AW: makro mit kennwort starten
22.09.2003 21:59:21
erich
hallo hajo,

ich werde mal versuchen ob ich das hin bekomme. bis jetzt sieht das ein bisschen kompliziert aus für mich. aber ich teste einfach mal, werde ich schon irgendwie schaffen.

ich danke dir auf jeden fall erst mal für deine schnelle hilfe!!!

gruß
erich
Danke für Rückmeldung oT
22.09.2003 22:00:59
Hajo_Zi
funktioniert noch nicht ganz
22.09.2003 22:11:31
erich
hallo hajo,

bei dieser zeile hängt er sich immer auf, wenn ich das userform1 aufrufen will.


Private Sub UserForm_Initialize()
TXT_Paßwort.SetFocus
End Sub


gruß
erich
AW: funktioniert noch nicht ganz
23.09.2003 08:38:56
Hajo_Zi
Hallo Erich

hast Du der Textbox den Namen TXT_Paßwort gegeben??? De CommandButton hat auch einen anderen Namen bekommen CMD_....


Falls Code vorhanden wurde dieser getestet unter Betriebssystem XP Pro und Excel Version XP SBE.
Bitte kein Mail, Probleme sollen im Forum gelöst werden.

Microsoft MVP für Excel

Das Forum lebt auch von den Rückmeldungen.

http://home.media-n.de/ziplies/

Anzeige
Danke Hajo jetzt geht´s o.T.
23.09.2003 14:50:47
erich
Danke für die Rückmeldung oT
23.09.2003 15:00:56
Hajo_Zi

307 Forumthreads zu ähnlichen Themen


Hi,
wie folgt wird ein OptionButton mittels Makro erstellt: Die Prozedur wird dann zusammen mit einer anderen im HauptSheet aufgerufen.
Nur weiß ich leider nicht wie ich mehrere OB, bzw. drei untereinander als Gruppe erstellen kann =(
Mehrere Prozeduren, für jeweils jeden OB ist ja...
Anzeige

Hab versucht im Archiv fündig zu werden, gibt auch viele Tips, aber irgendwie komme ich nicht weiter. Makro erstellen, manuell ein Icon in der Symbolleiste erstellen und verknüpfen, kann ich. Ich möchte aber gerne, dass ich mein Makro verschicken kann und der Empfänger dieses öffnet und sich da...

Hallo,
ich bin auf der Suche nach einer Lösung für folgendes Problem.
Ich möchte die Werte die ich markiert habe (die Markierung ist jedes mal anders) kopieren und eine Spalte links davon als "Werte und Zahlenformate" einfügen. Die Markierung besteht vor Ausführung des Makros. Wie bring...
Anzeige

Hallo zusammen!
Ich habe ein Problem, das ich mir nicht erklären kann. Ich füge nach einer Auswahl über den untenstehenden Code ein Bild im Tabellenblatt "Deckblatt" ein. Es soll gemäß dem Code oben links eingefügt werden. Leider funktioniert dies bei einigen Computern nicht und das Bild wi...

Hi,
ich möchte mit
Private Sub Buchungen_einfügen_Click() Call Buchungen_einfügen End Sub das Makro Buchungen einfügen aufrufen (wenn auf den Button geklickt wird). Da kriege ich die Meldung Prozedur statt Variale erwartet.
Kann mir jemand helfen warum das nicht funktioniert?
D...
Hallo,
irgendwie habe ich heute ein Brett vorm Kopf.
Ich habe eine Makro in einer gesonderten XLS Datei in das XL Start Verzeichnis gelegt. Nun habe ich in das Excel einen Menüpunkt mit meinem Makro aus dieser Datei hinterlegt.
Das funktioniert einwandfrei. Nur beim nächsten Excel Sta...

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige