Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
280to284
280to284
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Anzeige
Inhaltsverzeichnis

Commandbutton mit Passwortabfrage

Forumthread: Commandbutton mit Passwortabfrage

Commandbutton mit Passwortabfrage
12.07.2003 00:47:31
Stefan Glander
Hallo nochmal ich,
gibt es eine möglichkeit einen Commandbutton mit einem Passwort zu belegen ?
Gruss
Stefan
Anzeige

15
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Commandbutton mit Passwortabfrage
12.07.2003 01:36:41
RainerW
da bin ich wieder Stefan,
wenn du möchtest schicke ich dir eine Mappe mit Passwort-Abfrage,
Passwort-Bestätigung und Master-Passwort.
Den Code darauszufummeln ist mir jetzt zu viel.
Die Mappe sollte ein Dienstplan werden - wurde dann aber gecancelt.
Die ganze Passwortgeschichte funktioniert aber.
Bestimmt sehr lehrreich für dich.
Gruß Rainer

Anzeige
AW: Commandbutton mit Passwortabfrage
12.07.2003 01:39:53
Stefan Glander
Lieber Rainer,
ich bin Dir sehr dankbar für jede Hilfe und freue mich auf Deine Mappe.
stefanglander@aol.com
Danke dir
Stefan

AW: Commandbutton mit Passwortabfrage
12.07.2003 00:53:45
RainerW
Hallo Stefan,
meinst du, ob man eine Prozedur durch diesen Button aufrufen kann,
die dann ein Passwort abfragt? Ja, das geht!
Wo soll der Button sich befinden?
In einer UserForm?
Im Arbeitsblatt?
Was willst du machen?
Gruß Rainer

Anzeige
AW: Commandbutton mit Passwortabfrage
12.07.2003 01:01:47
Stefan Glander
Hallo Rainer,
der CommandButton steht oben links in einem Tabellenblatt.
Wenn man den Button drückt soll eine Passwortabfrage kommen. Wenn das PW richtig ist soll eine Prozedur gestartet werden.Wenn das PW falsch ist wäre eine MSG Box mit dem Text " Leider keine Berechtigung" ausgegeben werden.
Achja ich bin Anfänger
Liebe Grüsse Stefan

Anzeige
AW: Commandbutton mit Passwortabfrage
12.07.2003 01:23:21
RainerW
Hi Stefan,
das Passwort muss irgendwo gespeichert werden.
Am einfachsten ist es, du legst dir ein "geheimes Tabellenblatt an" und
dein Passwort schreibst du zB in A1.
Das Tabellenblatt versteckst du mit:
Worksheets("Name des Blattes").Visible = xlVeryHidden
(Siehe im VBA-Editor unter Eigenschaften des Tabellenblattes,
ist der letzte Eintrag im REgisterblatt alphabetisch)
Es kann auch nicht mehr über den Befehl in der Menüleiste
FORMAT|BLATT|EINBLENDEN sichtbar gemachent werden, sondern nur uber Code.
Worksheets("Name des Blattes").Visible = True
Entweder bastelst du dir eine UserForm als Abfrage oder verwendest eine
Inputbox die das Passwort in A1 (verstecktem Blatt) abfragt.
Besser wäre eine UserForm - aus folgendem Grund:.
In die UserForm legst du eine Textbox.
Die Textbox hat eine Eigenschaft
PasswordChar
Wenn du da ein * reinschreibst, dann wird direkt bei der Passwort-Eingabe
in die Textbox jedes Zeichen in ein * umgewandelt.
Ein Zuschauer kann dann das Passwort nicht lesen.
Ich schau mal, ob ich ein BeispielCode auf die schnelle finde.
bis gleich
Gruß Rainer

Anzeige
AW: Commandbutton mit Passwortabfrage
12.07.2003 00:50:15
OliveR
Hallo Stefan,
am einfachsten wird es mit einer If Schleife und Inputbox, wo dann der Wert vom Inputbox mit dem Wort verglichen wird. Bei nicht übereinstimmung kann man z.b. msgbox("Passwort falsch!") ausgeben lassen.
Gruß
OliveR

AW: Commandbutton mit Passwortabfrage
12.07.2003 01:06:55
Stefan Glander
Hallo Oliver,
Ich habe vielleicht vergessen zu sagen das ich Anfänger bin.
Deswegen meine Bitte: Wie muss der Code aussehen und wo schreibt man den hin ?
Gruss
Stefan

Anzeige
AW: Commandbutton mit Passwortabfrage
12.07.2003 01:13:30
OliveR
Hallo Stefan,
in etwa so.
Gruß
OliveR
___________________________________________________________________________

Private Sub CommandButton1_Click()
Dim passwd As String
passwd = InputBox("Bitte Passwort eingeben.")
If passwd <> "test" Then
MsgBox ("Passwort ist falsch!")
End If
MsgBox ("Passwort richtig. Hierher kommt dann der weitere Code.")
End Sub


Anzeige
AW: Commandbutton mit Passwortabfrage
12.07.2003 01:25:34
Stefan Glander
Lieber Oliver,
Das sieht super aus nur bin ich wohl mal wieder nicht wissend genug wie es weitergeht.
Die Prozedur die bei richtiger Eingabe ausgeführt werden soll steht bei mir in "Diese Arbeitsmappe" im "Workbook" und heißt "AlleDa"
Bitte hilf mir so kurz vor meinem Ziel
Gruss
Stefan

Anzeige
AW: Commandbutton mit Passwortabfrage
12.07.2003 01:37:28
OliveR
Hallo Stefan,
was Du machen kannst ist, alle Prozeduren in ein Modul zu stecken. Dazu "Modul einfügen" wählen (meist der Icon neben "Ansicht MS Excel") und dann Modul auswählen.
Dorthin überträgst Du alle Deine Prozeduren.
Leider weiss ich nicht, wie Deine Prozeduren aussehen bzw. was diese machen......
Gruß
OliveR

Anzeige
AW: Commandbutton mit Passwortabfrage
12.07.2003 01:14:47
OliveR
Sorry,
falsche Eingabe Abfangen vergessen.
Gruss OliveR
____________________________________________________________

Private Sub CommandButton1_Click()
Dim passwd As String
passwd = InputBox("Bitte Passwort eingeben.")
If passwd <> "test" Then
MsgBox ("Passwort ist falsch!")
Exit Sub
End If
MsgBox ("Passwort richtig. Hierher kommt dann der weitere Code.")
End Sub


Anzeige
AW: Commandbutton mit Passwortabfrage
12.07.2003 01:31:53
Stefan Glander
Fehler selbst gefunden
Gruss Stefan

AW: Commandbutton mit Passwortabfrage
13.07.2003 03:02:45
mehmet
hallo zusammen
und was ist wenn ich "TEST" - also gross, schreibe
..
If passwd <> "test" or "TEST" Then
..
geht nicht
gruss

AW: Commandbutton mit Passwortabfrage
13.07.2003 23:42:06
OliveR
Hallo Mehmet,
tja, das haben so Passwörter an sich, dass diese genau (auch Gross- und Kleinschreibung) stimmen sollten.
Solltest Du aber beide Schreibversionen abfangen wollen, ganz pragmatisch.....
Gruß
OliveR
Private Sub CommandButton1_Click()
Dim passwd As String

passwd = InputBox("Bitte Passwort eingeben.")
If passwd = "test" Then
MsgBox ("Passwort richtig. Hierher kommt dann der weitere Code.")
'Am besten eine weitere Prozedur aufrufen oder GoTo wovon abgeraten wird
ElseIf passwd = "TEST" Then
MsgBox ("Passwort richtig. Hierher kommt dann der weitere Code.")
'Am besten eine weitere Prozedur aufrufen oder GoTo wovon abgeraten wird
Else
MsgBox ("Passwort ist falsch!")
End If

Anzeige
AW: Commandbutton mit Passwortabfrage
14.07.2003 03:56:43
mehmet
hallo oliver
super, dank dir
es funktioniert
gruss
mehmet

Forumthreads zu verwandten Themen

Nachtrag zu Gestern - Commandbutton ...
Frank

Hallo Excelgemeinde!
Gestern fragte ich wie ich CommanButton mit Namen aus einer Tabelle befüllen kann!
Rudi schickte mir folgende Lösung:
CommandButton1.Caption = Range("AQ3").Text
Im Augenblick wird das Ereignis durch folgende Überschrift ausgelöst:
Private Sub Worksheet_S...
12.08.2008 16:38:00
Thread-ID: 1001212
1 Beitrag
auf CommandButton zugreifen
Lars

Hallo zusammen,
ich habe in Excel von einem Tabellenblatt A eine Abfrage (msgbox ok/cancel) gestartet, die ein anderes Tabellenblatt B aktiviert, wenn ok geklickt wird. Andernfalls erfolgt ein Rücksprung auf A.
Wenn nun ok geklickt wird, soll auf Tabellenblatt B zusätzlich ein CommandBu...
02.09.2008 18:44:00
Thread-ID: 1006864
4 Beiträge
CommandButton Name
Enrico

Hallo ich möchte die Eigenschaften von vielen CommandButton´s über ein
Makro ändern.
in Range("X" & i).Value steht der Name des Command Buttons
For i = 2 To 100
Knopf = Sheets("Daten").Range("X" & i).Value
Farbe = Sheets("Daten").Range(Knopf).Value
If Farbe = 1...
05.09.2008 11:24:00
Thread-ID: 1007588
2 Beiträge
commandbutton erstellen
sockel939

Hallo,
gibt es einen code mit dem man commandbuttons erstellen kann und gleich eine anweisung einfügen kann?
Ich kenne AddButtons weiß aber nicht wie das geht.
Danke
10.10.2008 14:00:17
Thread-ID: 1015547
1 Beitrag
Anzeige
Commandbuttons einfärben
Wolfgang

Hallo Excel Experten.
Stehe vor einem Problem bei dem ich nicht mehr weiterkommen.
Ich habe in einer Userform 42 CommandButton, die je nach Programmablauf verschieden eingefärbt werden sollen.
Es will mir aber nicht gelingen, diese einzeln in einer Schleife anzusprechen, den momenta...
15.10.2008 10:56:10
Thread-ID: 1016475
2 Beiträge
Anzeige
Makrofehler nur beim Commandbutton
Kurt

Guten Morgen,
warum klappt das Selectieren mit Commandbutton nicht.
Ich bin immer in der Tabelle "Gesamt"
Hier mit CommandButton:
Private Sub CommandButton100_Click() Sheets("Datenbank").Select ActiveSheet.Range("G3").Select Dim z As Long z = Range("g3").End(xlDown).Row Active...
17.10.2008 13:00:00
Thread-ID: 1017071
21 Beiträge
CommandButton Enabled = false
max

Liebe VBA-Gemeinde,
ich habe in einem Excel-Sheet zwei CommandButton eingefügt. Wenn der User nun den CB_1 klickt soll der CB_2 auf enabled = false gesetzt und der Text kursiv dargestellt werden.
Wie geht's ?
Dank im voraus
max
30.10.2008 16:07:25
Thread-ID: 1020626
4 Beiträge
CommandButton
Frank

Hallo,
Ingo aus dem Forum war mir bei diesem Code sehr behilflich
nun sollte ich aber noch einen CommandButton3 einfügen
der sollte bewirken das wenn ich den Preis in der TextBox=Preis
überschreibe diesen dann im Tabellenblatt ändert, nach Möglichkeit
erst noch eine Rückfrag...
04.11.2008 14:37:50
Thread-ID: 1021608
16 Beiträge
Druck mit Hilfe von CommandButton und UserForm
CommandButton

Hallo zusammen, nun ist meine Tabelle fast fertig, es fehlt nur noch der Ausdruck.
Ich habe ein Userform mit Checkboxen erstellt. Das Userform soll über ein CommandButton geöffnert werden. Dazu wollte ich folgendes verwenden:
UserFormName.Show
Allerdings funktioniert es nicht, kö...
06.11.2008 18:11:10
Thread-ID: 1022366
5 Beiträge
Druck mit Hilfe von CommandButton und UserForm
CommandButton

Hallo zusammen, nun ist meine Tabelle fast fertig, es fehlt nur noch der Ausdruck.
Ich habe ein Userform mit Checkboxen erstellt. Das Userform soll über ein CommandButton geöffnert werden. Dazu wollte ich folgendes verwenden:
UserFormName.Show
Allerdings funktioniert es nicht, kö...
06.11.2008 18:17:30
Thread-ID: 1022372
1 Beitrag
Jetzt das Excel-Portal bewerten: Deine Stimme zählt!
Anzeige
Anzeige
Live-Forum - Die aktuellen Beiträge
Datum
Titel
14.05.2026 13:31:09
Zeichen ausblenden
14.05.2026 09:50:42
Makro für MacOs
13.05.2026 19:14:18
Gleichheitszeichen
13.05.2026 14:24:56
VBA Projekt Passwort automatisch eingeben
13.05.2026 08:49:41
Reale Berechnung ohne Nachkommawerte
Keine passende Antwort im Forumarchiv gefunden?
Stelle deine Frage im Live-Forum