wenn ein Tabellenblatt geöffnet wird, sollen nur bestimmte User Schreibberechtigung haben;
wie kann ich den User "12345" freischalten mit folgendem Makro; erhalte Fehlermeldung
wie "Variable nicht definiert":
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim UserName As Object '---->>>?
If Application.UserName 12345 Then
ActiveSheet.EnableSelection = xlNoSelection
ActiveSheet.Protect
Else
ActiveSheet.EnableSelection = Selection
ActiveSheet.Unprotect
End If
End Sub
Besten Dank!
mfg