Blattsperre anhand Username
04.12.2018 13:55:42
Jens
Ich habe im Netz folgendes Macro gefunden:
Private Sub Workbook_Open()
Private Sub Workbook_Open()
Const cAllowedUser = ";Lieschen;Hänschen;goeldi;Susi;Fritz;Paul" & _
";Marküsschen;Petersilchen;Schnittlauch;"
Dim sh As Worksheet
With Worksheets("Tabelle1")
.Unprotect Password:="Geheim"
.Columns(3).EntireColumn.Hidden = _
(InStr(cAllowedUser, ";" & Environ("username") & ";") = 0)
.Protect Password:="Geheim"
End With
For Each sh In Worksheets(Array("Tabelle2", "Tabelle3"))
If InStr(cAllowedUser, ";" & Environ("username") & ";") > 0 Then
sh.Visible = xlSheetVisible
Else
sh.Visible = xlSheetVeryHidden
End If
Next sh
End Sub
Dim sh As Worksheet
With Worksheets("Tabelle1")
.Unprotect Password:="Geheim"
.Columns(3).EntireColumn.Hidden = _
(InStr(cAllowedUser, ";" & Environ("username") & ";") = 0)
.Protect Password:="Geheim"
End With
For Each sh In Worksheets(Array("Tabelle2", "Tabelle3"))
If InStr(cAllowedUser, ";" & Environ("username") & ";") > 0 Then
sh.Visible = xlSheetVisible
Else
sh.Visible = xlSheetVeryHidden
End If
Next sh
End Sub
Funktioniert prima bei lokalen Benutzern.
Nun möchte ich gerne die Routine auf Domänenbenutzer erweitern. Der Domänenname soll Verwaltung sein. Beim Test mit
Private Sub Workbook_Open()
Const cAllowedUser = ";verwaltung\Lieschen; ....;"
sperrt er mich aus.
Hat jemand eine Idee?
Danke schonmal.
Viele Grüße Jens
Anzeige