Gruppen
- Top Gruppen
- Betriebsysteme
- Windows classik
- Linux
- BS-Sonstige
- Software
- Datenbanken
- Bildbearbeitung
- Audio/mp3/Video
- Security/Viren
- SW-Sonstige
- Hardware
- Mainboard/CPU
- Grafikkarten
- Peripherie
- Laptop/Notebook
- HW-Sonstiges
- Netzwerk
- Telefon,ISDN,Modem
- W-Lan
- NW-Sonstiges
- Programmierung
- PHP,ASP,Perl...
- Java,C++...
- Webseiten/HTML
- Sonstiges
- PC-Sonstiges
- Plauderecke
- SN Intern
- Test
/ Forum / Tabellenkalkulation
Tabellenkalkulation
Fragevon bokap1975 vom 21.08.2019, 09:45 Options
CommandButton mit Kennwort erstellen?
Hallo zusammen an diesem super Tag.
Ist es möglich ein CommandButton der ein bestimmtes Makro ausführt so zu erstellen, das vor dem Ausführen des Makros eine Kennwortabfrage kommt. Beispiel
Ich drücke auf den Button - Kennwort abfrage erscheint - ich gebe das Kennwort ein - Makro "alles Löschen" wird ausgeführt.
Ich drücke auf den Button - Kennwort abfrage erscheint - ich gebe keins oder ein falsches ein - Makro wird nicht ausgeführt.
Das wäre sehr hilfreich.
Viele Grüße
Boris
Ist es möglich ein CommandButton der ein bestimmtes Makro ausführt so zu erstellen, das vor dem Ausführen des Makros eine Kennwortabfrage kommt. Beispiel
Ich drücke auf den Button - Kennwort abfrage erscheint - ich gebe das Kennwort ein - Makro "alles Löschen" wird ausgeführt.
Ich drücke auf den Button - Kennwort abfrage erscheint - ich gebe keins oder ein falsches ein - Makro wird nicht ausgeführt.
Das wäre sehr hilfreich.
Viele Grüße
Boris
Antwort 1 von Proggi vom 21.08.2019, 09:55 Options
also da man im zweifelsfall einfach in Macros reinschaut um dann das Kennwort rauszufinden, must du die ganze Tabelle schon gut absichern damit man da nicht so einfach was machen kann...
wird zumindest recht aufwendig...
wird zumindest recht aufwendig...
If InputBox("", "Passwortabfrage") = "test" Then
MsgBox "hier könnte dein macro stehn"
Exit Sub
Else
Exit Sub
End If
Antwort 2 von bokap1975 vom 21.08.2019, 10:32 Options
Hi Proggi,
und wie verbinde ich das mit dem CommandButton? Bin Anfänger!
Die Makros habe ich schon mit Kennwortschutz belegt über Extras - Eigenschaften von VBA-Projekten.
Grüße Boris
und wie verbinde ich das mit dem CommandButton? Bin Anfänger!
Die Makros habe ich schon mit Kennwortschutz belegt über Extras - Eigenschaften von VBA-Projekten.
Grüße Boris
Antwort 3 von bokap1975 vom 21.08.2019, 10:42 Options
Hi Proggi
Ich hab das mal so eingegeben aber er gibt mir die Fehlermeldung Fehler beim Kompilieren - Markiert die Anführungszeichen vor Passwortabfrage und sagt Außerhalb Prozedur ungültig.
Grüße Boris
If InputBox("", "Passwortabfrage") = "test" Then
MsgBox Makro1
Exit Sub
Else
Exit Sub
End If
Private Sub CommandButton1_Click()
Makro1
End Sub
Ich hab das mal so eingegeben aber er gibt mir die Fehlermeldung Fehler beim Kompilieren - Markiert die Anführungszeichen vor Passwortabfrage und sagt Außerhalb Prozedur ungültig.
Grüße Boris
If InputBox("", "Passwortabfrage") = "test" Then
MsgBox Makro1
Exit Sub
Else
Exit Sub
End If
Private Sub CommandButton1_Click()
Makro1
End Sub
Antwort 4 von coros vom 21.08.2019, 12:02 Options
Hallo Boris,
der Code von Proggi war ein Beispiel, das Du nicht 1:1 übernehmen kannst. Du hast den Code außerhalb eines Ereignisses kopiert. Der Code gehört aber zuwschen CommandButton1_Click und End Sub .
Kopiere nachfolgenden Code in das VBA-Projekt des Tabellenblattes, in dem sich Dein CommandButton1 befindet.
Ich hoffe Du kommst klar. bei fragen melde Dich.
MfG,
Oliver
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.
der Code von Proggi war ein Beispiel, das Du nicht 1:1 übernehmen kannst. Du hast den Code außerhalb eines Ereignisses kopiert. Der Code gehört aber zuwschen CommandButton1_Click und End Sub .
Kopiere nachfolgenden Code in das VBA-Projekt des Tabellenblattes, in dem sich Dein CommandButton1 befindet.
[b]Private Sub CommandButton1_Click()
If InputBox("", "Passwortabfrage") = "test" Then _
Makro1
End Sub[/b]Ich hoffe Du kommst klar. bei fragen melde Dich.
MfG,
Oliver
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 5 von bokap1975 vom 21.08.2019, 13:21 Options
Hi Oliver,
ja Danke, das hat mir gefehlt. Jetzt läufts einwandfrei.
Grüße Boris
ja Danke, das hat mir gefehlt. Jetzt läufts einwandfrei.
Grüße Boris
Ähnliche Themen
Eingabe in Textfeld und Suchen in Arbeitsmappe
Holly 05.05.2007 - 75 Hits - 4 Antworten
kennwort bluetooth
ruegen 28.10.2007 - 121 Hits - 6 Antworten
möchte einen kennwort festlegen
susii 12.05.2008 - 62 Hits - 9 Antworten
Hinweis
Diese Frage ist schon etwas älter, Sie können daher nicht mehr auf sie antworten. Sollte Ihre Frage noch nicht gelöst sein, stellen Sie einfach eine neue Frage im Forum..
Neue Einträge
