ich habe leider ein VBA-Problem(Anfänger).
U.a. VBA-Code habe ich im Internet gefunden. Er funktioniert :-
Nun möchte ich aber den GodMode für zwei User benutzen. Geht so was ?
Vielen Dank im voraus.
Private Sub Workbook_Open()
Dim Zeile, Spalte, BlattNrEins, BlattNrZwei As Integer
Dim GodMode, PassKey As String
GodMode = "10101671" 'Hier ist die SAP-Nr. des Admins in Gänsefüßchen einzufügen
PassKey = "HSV" 'Gewünschtes Passwort für den Blattschutz
For BlattNrEins = 1 To 12
Sheets(BlattNrEins).Unprotect Password:=PassKey
Next BlattNrEins
If Environ("Username") GodMode Then
For BlattNrZwei = 1 To 12 'Hier je nach Anordnung der Blätter ggf. anpassen
For Zeile = 5 To 8
For Spalte = 4 To 34
If IsEmpty(Sheets(BlattNrZwei).Cells(Spalte, Zeile)) = False Then
Sheets(BlattNrZwei).Cells(Spalte, Zeile).Locked = True
Else
Sheets(BlattNrZwei).Cells(Spalte, Zeile).Locked = False
End If
Next Spalte
Next Zeile
Sheets(BlattNrZwei).Protect Password:=PassKey, _
DrawingObjects:=True, Contents:=True, Scenarios:=True, _
AllowFiltering:=True
Next BlattNrZwei
End If
End Sub
Private Sub Workbook_SheetSelectionChange(ByVal Sh As Object, ByVal Target As Range)
Dim GodMode As String
GodMode = "10101671" 'Hier ist die SAP-Nr. des Admins in Gänsefüßchen einzufügen
If Environ("Username") GodMode Then
If Target.Locked = True Then
MsgBox "Änderungen nur über TelNr 1000 oder 1110"
End If
End If
End Sub