Office: Passwörter bei Excel

Hallo,
hier eine neue Frage:
Ich möchte eine Excel- Tabelle. Diese Tabelle soll durch z.B. 3 Personen bearbeitet werden. Jede Person soll ein eigenes Passwort für die Bearbeitung erhalten. Die bearbeitende Person soll hinter jeder Zeile die sie geändert hat ihren Namen schreiben. Allerdings soll in dieser Zelle dann NUR der Name der eingeloggten Person zulässig sein. Quasi wie eine Unterschrift.
Ist so etwas mit Excel überhaupt möglich?

Danke

 

Hallo!

Als Ansatz:

Code:

Private Sub Workbook_Open()
Dim Nutzer$, Pass$
Nutzer = InputBox("Bitte geben Sie Ihren Namen ein:")
Pass = InputBox("Geben Sie Ihr Passwort ein:")
With Tabelle1.Range("E:E").Validation
If _
(Nutzer = "Müller" And Pass = "xxx") Or _
(Nutzer = "Meier" And Pass = "yyy") Or _
(Nutzer = "Schulze" And Pass = "zzz") Then
.Delete
.Add Type:=xlValidateList, Formula1:=Nutzer
Else
.Delete
.Add Type:=xlValidateCustom, Formula1:="anonym"
End If
End With
End Sub

 

Re

Hallo,
vielen Dank für mal wieder schnelle Hilfe.
Ich habe den Code eingefügt. Wenn ich die Datei öffne wird zwar gefragt ob ich Makros aktivieren möchte, die Abfrage nach Namen und Passwort kommt dann allerdings nicht.
Der Code wird doch auf in Module z.B. Modul1 eingefügt. Oder?

Danke

 

Hallo!

Nein!
Dieser Code gehört ins Modul "DieseArbeitsmappe".

 

Re

:-D
Supi, vielen Dank.

 

Re

Hallo,

wie kann ich das jetzt anstellen, dass ich mehrere Tabellenblätter überwache. D.h. ich gebe zu Anfang den Nutzer und das Passwort ein und dieser Nutzer kann dann auf jedem Tabellenblatt (Sagen wir mal 9 Stück) immer in der gleichen Spalte nur seinen Namen eintragen?

Danke

Uwe

 

Hallo!

Ungetestet:

Code:

Private Sub Workbook_Open()
Dim Nutzer$, Pass$, Blatt As Worksheet
Nutzer = InputBox("Bitte geben Sie Ihren Namen ein:")
Pass = InputBox("Geben Sie Ihr Passwort ein:")
For Each Blatt In ThisWorkbook.Worksheets
With Blatt.Range("E:E").Validation
If _
(Nutzer = "Müller" And Pass = "xxx") Or _
(Nutzer = "Meier" And Pass = "yyy") Or _
(Nutzer = "Schulze" And Pass = "zzz") Then
.Delete
.Add Type:=xlValidateList, Formula1:=Nutzer
Else
.Delete
.Add Type:=xlValidateCustom, Formula1:="anonym"
End If
End With
Next Blatt
End Sub

 

Re

Vielen Dank, werde es mal testen.

Gruß

 

Re

Danke, klappt wunderbar.

Gruß