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 Meikel vom 05.06.2019, 20:38 Options
Passwortübergabe per VBA
Guten Abend zusammen,
ich bedarf mal wieder Eurer Hilfe, denn ich weiß nicht ob das zu realisieren ist.
Ich habe in Tabelle "Masterdata" verschiedene Passwörter zum Öffnen von Tabellenblättern hinterlegt. Per Userform sollen diese mit folgendem Code angesteuert werden:
Private Sub CommandButton1_Click()
If TextBox1 = "Masterdata!M25" Then
Unload Me
intC = 0
Sheets("Muster").Visible = True
Sheets("Muster").Activate
Else
Ist das überhaupt so möglich?
Wäre Euch für einen Rat sehr dankbar.
Viele Grüße, meikel
ich bedarf mal wieder Eurer Hilfe, denn ich weiß nicht ob das zu realisieren ist.
Ich habe in Tabelle "Masterdata" verschiedene Passwörter zum Öffnen von Tabellenblättern hinterlegt. Per Userform sollen diese mit folgendem Code angesteuert werden:
Private Sub CommandButton1_Click()
If TextBox1 = "Masterdata!M25" Then
Unload Me
intC = 0
Sheets("Muster").Visible = True
Sheets("Muster").Activate
Else
Ist das überhaupt so möglich?
Wäre Euch für einen Rat sehr dankbar.
Viele Grüße, meikel
Antwort 1 von Proggi vom 05.06.2019, 20:41 Options
ich denke das läßt sich recht leicht umgehen...
wenn du den leuten die diese tabelle sehen bzw nicht sehen sollen nicht so weit vertraust ist vielleicht access mit einer verschlüsselten Datenbank ein besserer Ort für die Daten.
wenn du den leuten die diese tabelle sehen bzw nicht sehen sollen nicht so weit vertraust ist vielleicht access mit einer verschlüsselten Datenbank ein besserer Ort für die Daten.
Antwort 2 von Hajo_Zi vom 05.06.2019, 20:44 Options
Hallo Meikel,
If TextBox1 = Worksheets ("Masterdata"):Range("M25") Then
Gruß Hajo
If TextBox1 = Worksheets ("Masterdata"):Range("M25") Then
Gruß Hajo
Antwort 3 von Meikel vom 05.06.2019, 20:57 Options
Hallo Hajo,
danke für den Tipp, hab's versucht, aber die Schrift ändert sich in "rot" und es wird auf einen Kompilierungsfehler hingewiesen.
Muss ich noch etas berücksichtigen?
Gruß, meikel
danke für den Tipp, hab's versucht, aber die Schrift ändert sich in "rot" und es wird auf einen Kompilierungsfehler hingewiesen.
Muss ich noch etas berücksichtigen?
Gruß, meikel
Antwort 4 von Meikel vom 05.06.2019, 20:59 Options
Hallo Hajo,
ich nochmal, hab's gefunden. Es muß ein "Punkt" vor Range sein.
Hat geklappt! Besten Dank nochmal.
Viele Grüße, meikel
ich nochmal, hab's gefunden. Es muß ein "Punkt" vor Range sein.
Hat geklappt! Besten Dank nochmal.
Viele Grüße, meikel
Ähnliche Themen
VBA-Editor öffnen und schließen
maxim66 14.03.2008 - 98 Hits - 2 Antworten
mehre Excel Arbeitsblaetter in PowerPoint via VBA ansprechen
sammille 12.03.2008 - 100 Hits -
VBA-Excel
mentosbasi 28.05.2008 - 350 Hits - 3 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
