Supportnet / Forum / Skripte(PHP,ASP,Perl...)
Excel VBA: Passwort und Blatt einblenden
Frage
Hallo zusammen,
ich habe ein passwortgeschütztes VBA Projekt (mit Passwort 1).
In dieser Excel-Datei ist ein Tabellenblatt ausgeblendet, das aber mit Hilfe eines Passwort 2 eingeblendet werden soll.
Die Benutzer, die die Möglichkeit haben sollen, das ausgeblendete Tabellenblatt einzublenden sollten dennoch aber
nicht das Passwort 1 kennen (sonst könnte ich mir das Passwort2 ja sparen..)
Läßt sich das irgendwie realisieren?
Für Eure Hilfe im voraus vielen Dank!
Gruß
Jürgen
Antwort 1 von varginator
Also ich versteh deine Frage so:
du hast zwei tabellenblätter z.B. 1 und 2
mit passwort 1 soll nur tabellenblatt 1 geöffnet werden
und mit passwort 2 nur das zweite
Hier ein ansatz zur lösung:
erstelle eine userform mit
Passwort: _____________
und einem ok button
dann schreib beim dem button einfach rein wenn einer das erste passwort eingibt soll blatt eins aufgerufen werden und blatt zwei versteckt bleiben (ich denk das funktioniert irgendwie so: worksheets(2).hide
und wenn einer das passwort 2 eingibt dann verstecke blatt 1
du hast zwei tabellenblätter z.B. 1 und 2
mit passwort 1 soll nur tabellenblatt 1 geöffnet werden
und mit passwort 2 nur das zweite
Hier ein ansatz zur lösung:
erstelle eine userform mit
Passwort: _____________
und einem ok button
dann schreib beim dem button einfach rein wenn einer das erste passwort eingibt soll blatt eins aufgerufen werden und blatt zwei versteckt bleiben (ich denk das funktioniert irgendwie so: worksheets(2).hide
und wenn einer das passwort 2 eingibt dann verstecke blatt 1
Antwort 2 von snailhouse
Hallo,
vielen Dank für den Tip, so hats geklappt.
Allerdings funktionieren "hide" und "show" wohl nur für Formulare. Für Tabellenblätter muss man .visible verwenden.
z.B.
ActiveWorkbook.Worksheets("Tabelle1").Visible = True
Eigentlich dachte ich, dass es ein Problem geben könnte, da ich das Gesamtprojekt ja passwortgeschützt habe, es hat aber dennoch funktioniert.
Vielen Dank!
Gruß
Jürgen
vielen Dank für den Tip, so hats geklappt.
Allerdings funktionieren "hide" und "show" wohl nur für Formulare. Für Tabellenblätter muss man .visible verwenden.
z.B.
ActiveWorkbook.Worksheets("Tabelle1").Visible = True
Eigentlich dachte ich, dass es ein Problem geben könnte, da ich das Gesamtprojekt ja passwortgeschützt habe, es hat aber dennoch funktioniert.
Vielen Dank!
Gruß
Jürgen