ich bin auf diesen Beitrag gestoßen.
https://www.herber.de/forum/archiv/1648to1652/1648421_arbeitsblatt_mit_Passwort_oeffnen.html#google_vignette
Private Sub Workbook_SheetActivate(ByVal Sh As Object)
Dim a
If Sh.Name = "Tabelle1" Then'Tabelle1 wird geschützt
Application.EnableEvents = False
Sheets("Tabelle2").Select' hier eine nicht geschützte Tabelle angeben
a = InputBox("Passwort")
If a = "1234" Then Sh.Select
Application.EnableEvents = True
End If
End Sub
Frage an das Schwarmwissen
Ich möchte in einer Exceldatei Tabelle 1 nur Schreibgeschützt lesen lassen von Kollegen und Tabelle 2 soll nur mit Passwort zu öffnen sein
(wie oben im Code allerdings noch mit dem Passus, dass das Passwort aus Tabelle2 Zelle A100 gewählt werden soll).
Ebenso möchte ich nach eueren Erfahrungen fragen, ob mein Vorhaben so funktioniert oder ob hier noch Probleme auftreten, die ich nicht im Blick habe.
Denn es soll unter keinen Umständen möglich sein den Code zu löschen und an die Daten in Tabelle2 zu kommen. Klappt hier eigentlich auch eine wenn Formel zwischen den Tabellen obwohl eine "geschützt" ist? möchte automatisch noch einpaar Daten dann ändern lassen.
LG
Cookiemonster