Hallo
Diesen Code in "DieseArbeitsmappe"
Private Sub Workbook_Open()
Dim TB As Worksheet, RNG As Range
Set TB = Sheets("Tabelle1")
TB.Unprotect "ABC"
'Reset
TB.Cells.Locked = True
Select Case LCase(Environ("Username"))
Case "meier"
TB.Range("A1").Locked = False
Case "bauer", "weber", "schmidt"
TB.Range("B1").Locked = False
Case "mrx"
' Bereich
TB.Range("A1:C1").Locked = False
Case "admin"
' alles
TB.Cells.Locked = False
Case Else
'mach nix
End Select
TB.Protect "ABC"
End Sub
LG UweD
|