8
Mappenschutz Tabelle Sichtbar bzw. Unsichtbar mit Passworteingabe
Hallo zusammen,
ich hab ein EXCEL Problem.
Ich habe ein große Mappe mit mehreren Tabellen.
Diese soll teilweise anderen Kollegen zur Verfügung stehen.
Ich möchte das die Kollegen nur Sichtzugriff auf 1 Tabellenblatt haben und hier nur 1 Zelle ändern können. Der Rest der Tabelle füllt sich mit Sverweis selbst aufgrund der Daten in anderen Tabellenblättern.
Da die Daten in den anderen Tabellenblätter sehr sensibel sind möchte das die Kollegen diese Blätter nicht mal sehen.
Einblenden und Ausblenden ist leider nicht optimal da die Anzahl der Blätter zu groß ist und ich hier immer wieder was ändern muss.
hab per Google bereits ein VBA Skript gefunden aber ich komm nicht damit klar und es klappt nicht so wie es mir vorstelle, bin ich VBA auf ein GREENHORN
"Private Sub Worksheet_Activate()
Const strPASSWORT = "geheim"
If InputBox("Geben Sie bitte das Passwort ein!") = strPASSWORT Then
MsgBox "Zugriff erlaubt", vbExclamation, "OK"
Exit Sub
Else
MsgBox "Keinen Zugriff auf diese Tabelle", vbInformation, "Hinweis"
Sheets("Tabelle1").Activate
End If
End Sub"
Das Fenster zur Eingabe erscheint aber ich seh den Tabelleninhalt bereits und ohne PW komm ich trotzdem rein.
Ich hoffe einer von euch hat eine Idee.
Besten dank im vorraus.
ich hab ein EXCEL Problem.
Ich habe ein große Mappe mit mehreren Tabellen.
Diese soll teilweise anderen Kollegen zur Verfügung stehen.
Ich möchte das die Kollegen nur Sichtzugriff auf 1 Tabellenblatt haben und hier nur 1 Zelle ändern können. Der Rest der Tabelle füllt sich mit Sverweis selbst aufgrund der Daten in anderen Tabellenblättern.
Da die Daten in den anderen Tabellenblätter sehr sensibel sind möchte das die Kollegen diese Blätter nicht mal sehen.
Einblenden und Ausblenden ist leider nicht optimal da die Anzahl der Blätter zu groß ist und ich hier immer wieder was ändern muss.
hab per Google bereits ein VBA Skript gefunden aber ich komm nicht damit klar und es klappt nicht so wie es mir vorstelle, bin ich VBA auf ein GREENHORN
"Private Sub Worksheet_Activate()
Const strPASSWORT = "geheim"
If InputBox("Geben Sie bitte das Passwort ein!") = strPASSWORT Then
MsgBox "Zugriff erlaubt", vbExclamation, "OK"
Exit Sub
Else
MsgBox "Keinen Zugriff auf diese Tabelle", vbInformation, "Hinweis"
Sheets("Tabelle1").Activate
End If
End Sub"
Das Fenster zur Eingabe erscheint aber ich seh den Tabelleninhalt bereits und ohne PW komm ich trotzdem rein.
Ich hoffe einer von euch hat eine Idee.
Besten dank im vorraus.
Auf Facebook teilen
Auf Twitter teilen
Auf Reddit teilen
Auf Linkedin teilenBitte markiere auch die Kommentare, die zur Lösung des Beitrags beigetragen haben
Content-ID: 294157
Url: https://administrator.de/contentid/294157
Ausgedruckt am: 05.11.2024 um 03:11 Uhr
8 Kommentare
Neuester Kommentar
Moin,
Du solltest also deinen Workflow überdenken.
Gruß grexit
Einblenden und Ausblenden ist leider nicht optimal da die Anzahl der Blätter zu groß ist und ich hier immer wieder was ändern muss.
das klappt so nicht denn VBA kann man jederzeit aushebeln indem man in den Entwurfsmodus schaltet, dann wird jeglicher VBA-Code nicht mehr ausgeführt und deine Leuts haben vollen Zugriff auf das Sheet.Du solltest also deinen Workflow überdenken.
Gruß grexit
OK ist ein Argument aber wie kann man das sonst lösen ??
Leider kann ich mit 2 Dateien und Sverweis auch nicht arbeiten die Datei mit den für die Abfrage befindlichen Daten müsste Sonst auf einem LW liegen wo jeder Vollzugriff hat. Das wiederstrebt dem Sinn des Ganzen.
Leider kann ich mit 2 Dateien und Sverweis auch nicht arbeiten die Datei mit den für die Abfrage befindlichen Daten müsste Sonst auf einem LW liegen wo jeder Vollzugriff hat. Das wiederstrebt dem Sinn des Ganzen.
Absolut wasserdicht ? So gar nicht.
Anwendung schreiben und vertrauliche Daten verschlüsseln.
Anwendung schreiben und vertrauliche Daten verschlüsseln.
OK Schade...
Gibt es eine Möglichkeit die komplette Mappe zu schützen und das Einblenden von ausgeblendeten Blättern zu verhindern ??
Gibt es eine Möglichkeit die komplette Mappe zu schützen und das Einblenden von ausgeblendeten Blättern zu verhindern ??
Das ja, mit Passwortschutz für das ganze Workbook.
Du könntest auch nur das Blatt komplett schützen und die Farbe aller Zellen auf "Weiß" festlegen dann sieht der User nix, und kann auch nix auswählen oder ändern
und das Einblenden von ausgeblendeten Blättern zu verhindern ??
Einmal drin geht das nicht mehr.Du könntest auch nur das Blatt komplett schützen und die Farbe aller Zellen auf "Weiß" festlegen dann sieht der User nix, und kann auch nix auswählen oder ändern
Hallo zusammen!
Eventuell könnte man in den geschützten Sheets per AutoFilter (bei aktiviertem Blattschutz gesperrt) nur die Überschriftzeile anzeigen?
Gruß Dieter
Eventuell könnte man in den geschützten Sheets per AutoFilter (bei aktiviertem Blattschutz gesperrt) nur die Überschriftzeile anzeigen?
Gruß Dieter
Danke für die Tips hab eine Lösung gefunden.
Einfach die Blätter schützen die nicht alle sehen bzw. bearbeiten sollen.
anschließen ausblenden.
Dann über "Überprüfen" im Feld Änderungen auf Mappe schützen klicken mit PW und gut ist.
nun kann keiner ausgeblendet Sheets einblenden und sieht auch nicht das welche da sind.
--> Die Mappe ist sicher.
Leider kann ich an dieser Stelle nicht mit der OpTion Schreibgeschützt arbeiten.
Einfach die Blätter schützen die nicht alle sehen bzw. bearbeiten sollen.
anschließen ausblenden.
Dann über "Überprüfen" im Feld Änderungen auf Mappe schützen klicken mit PW und gut ist.
nun kann keiner ausgeblendet Sheets einblenden und sieht auch nicht das welche da sind.
--> Die Mappe ist sicher.
Leider kann ich an dieser Stelle nicht mit der OpTion Schreibgeschützt arbeiten.
Hallo,
auch ein effektiver Trick ist das zusätzliche Ausblenden des Sheets via einmalig ausgeführter Makrozeile, wenn man im Direktfenster des VBA-Editors
eingibt und mit Enter bestätigt.
Dann ist das Sheet selbst in der "Einblenden-Liste" nicht mehr sichtbar.
Wieder einblenden kann man es dann bei Bedarf wieder mit obigem Code und True anstatt False
fk
VMWare , Silicon Valley
auch ein effektiver Trick ist das zusätzliche Ausblenden des Sheets via einmalig ausgeführter Makrozeile, wenn man im Direktfenster des VBA-Editors
Sheets("Tabelle2").Visible = False
Dann ist das Sheet selbst in der "Einblenden-Liste" nicht mehr sichtbar.
Wieder einblenden kann man es dann bei Bedarf wieder mit obigem Code und True anstatt False
fk
VMWare , Silicon Valley
