Userbezogen Schreibgeschützt öffnen
01.04.2009 10:09:32
André
habe in diesem Forum folgende Modul gefunden:
Private Sub Workbook_Open()
Dim ws%
If Application.UserName = "andre" Then
For ws = 1 To Worksheets.Count
Worksheets(ws).Unprotect "andre"
Next
Else: For ws = 1 To Worksheets.Count
Worksheets(ws).Protect "Peter"
Next
End If
End Sub
Wenn der Benutzer "Andre" öffnet, dann wird nicht Schreibgeschütz geöffnet ansonsten Schreibgeschützt.
Allerdings wird die Abfrage nicht auf den Netzwerknamen bezogen, wenn ich es richtig sehe. Wie kann man es lösen damit der Netzwerkname überprüft wird.
Freue mich über jede Hilfe.
Danke.
Gruß
André