Arbeitsblätter mit verschiedenen Passwörtern innerhalb einer Arbeitsmappe schützen
Hallo!
Ich habe folgendes Problem:
Innerhalb einer Arbeitsmappe habe ich 4 Arbeitsblätter: "China", "Indien", "Brasilien" und "Deutschland". Jetzt möchte ich jedes Arbeitsblatt mit einem Passwort versehen - pro Arbeitsblatt ein separates Passwort. So dass all diejenigen, die ein Passwort für AB "China" haben, nur dieses AB einsehen können, jedoch keinen Einsehzugriff auf die anderen Arbeitsblätter haben. Ähnlich soll es für andere AB gelten.
Ist es möglich?
Besten Dank an Euch im voraus!
Gruß
Ich habe folgendes Problem:
Innerhalb einer Arbeitsmappe habe ich 4 Arbeitsblätter: "China", "Indien", "Brasilien" und "Deutschland". Jetzt möchte ich jedes Arbeitsblatt mit einem Passwort versehen - pro Arbeitsblatt ein separates Passwort. So dass all diejenigen, die ein Passwort für AB "China" haben, nur dieses AB einsehen können, jedoch keinen Einsehzugriff auf die anderen Arbeitsblätter haben. Ähnlich soll es für andere AB gelten.
Ist es möglich?
Besten Dank an Euch im voraus!
Gruß
Kommentieren
Teilen
Auf Facebook teilen
Auf X (Twitter) teilen
Auf Reddit teilen
Auf Linkedin teilenBitte markiere auch die Kommentare, die zur Lösung des Beitrags beigetragen haben
Content-ID: 145711
Url: https://administrator.de/forum/arbeitsblaetter-mit-verschiedenen-passwoertern-innerhalb-einer-arbeitsmappe-schuetzen-145711.html
Ausgedruckt am: 25.04.2025 um 08:04 Uhr
2 Kommentare
Neuester Kommentar
Hy
leider kann ich dir nicht den genauen Code sagen, da ich selbst
zu wenig VBA behersche und es gerade lernen will
aber möglich sollte es sein indem man hinterlegt
dass beim Aktivieren des Sheets eine Passwortabfrage kommt,
vielleicht in Form einer InputBox in der du das Passwort abfragst
und dann prüfst ob es korrekt ist,
wenn ja dann OK
wenn nein dann schließen
Private Sub Worksheet_Activate()
Dim Kennwort As String
Kennwort = "meinPasswort"
Dim Eingabe As String
Eingabe = InputBox("Kennworteingabe:", "Kennwort eingeben")
If Eingabe <> Kennwort Then
Workbooks("Dateiname.xls").Close
End If
End Sub
Ich denk mal so könnte es klappen, glaub aber dass dies
umständlich ist !!!
gibts sicher leichtere lösungen!!
lg
ava
leider kann ich dir nicht den genauen Code sagen, da ich selbst
zu wenig VBA behersche und es gerade lernen will
aber möglich sollte es sein indem man hinterlegt
dass beim Aktivieren des Sheets eine Passwortabfrage kommt,
vielleicht in Form einer InputBox in der du das Passwort abfragst
und dann prüfst ob es korrekt ist,
wenn ja dann OK
wenn nein dann schließen
Private Sub Worksheet_Activate()
Dim Kennwort As String
Kennwort = "meinPasswort"
Dim Eingabe As String
Eingabe = InputBox("Kennworteingabe:", "Kennwort eingeben")
If Eingabe <> Kennwort Then
Workbooks("Dateiname.xls").Close
End If
End Sub
Ich denk mal so könnte es klappen, glaub aber dass dies
umständlich ist !!!
gibts sicher leichtere lösungen!!
lg
ava
Hallo samshagger und Avalon1!
@Avalon1
Ganz so einfach ist es nicht, zumal der Anwender beim öffnen einer Datei die Möglichkeit hat, die Makro-Funktion zu deaktivieren oder wenn er VBA-Kenntnisse hat, wird er allemal alles ansehen können. Insofern sehe ich keine Möglichkeit mehrerer Arbeitsblätter innerhalb einer Arbeitsmappe zu schützen.
Eine halbwegs sichere Methode, die mir im Moment einfällt:
1. Alle Kennwortgeschützten Arbeitsblätter in seperaten Arbeitsmappen unter <Optionen><Sicherheit> mit Kennwort für Öffnen (Ansehen) und Kennwort für Ändern (Schreibschutz) versehen und speichern.
2. Eine Arbeitsmappe mit einer Auflistung der anzusehenden Arbeitsblätter mit danebenstehenden Links zu den entsprechenden Arbeitsmappen, bei denen dann automatisch eine Kennwort-Abfrage erfolgt.
Gruß Dieter
@Avalon1
Ganz so einfach ist es nicht, zumal der Anwender beim öffnen einer Datei die Möglichkeit hat, die Makro-Funktion zu deaktivieren oder wenn er VBA-Kenntnisse hat, wird er allemal alles ansehen können. Insofern sehe ich keine Möglichkeit mehrerer Arbeitsblätter innerhalb einer Arbeitsmappe zu schützen.
Eine halbwegs sichere Methode, die mir im Moment einfällt:
1. Alle Kennwortgeschützten Arbeitsblätter in seperaten Arbeitsmappen unter <Optionen><Sicherheit> mit Kennwort für Öffnen (Ansehen) und Kennwort für Ändern (Schreibschutz) versehen und speichern.
2. Eine Arbeitsmappe mit einer Auflistung der anzusehenden Arbeitsblätter mit danebenstehenden Links zu den entsprechenden Arbeitsmappen, bei denen dann automatisch eine Kennwort-Abfrage erfolgt.
Gruß Dieter
