Excel Makro unterstützung

Private Sub Workbook_BeforeClose(Cancel As Boolean)
  Call AlleBlaetter_Schuetzen
  ActiveWorkbook.Save
End Sub

Private Sub Workbook_Open()
  Const c_userA = UserA
  Dim s_name As String
  If c_userA = Application.UserName Then
    Call AlleBlaetter_Oeffnen
  End If
End Sub
Private Function AlleBlaetter_Schuetzen()
  Dim s As Long, Name As String
  Application.ScreenUpdating = False
  Name = ActiveSheet.Name
  For s = 1 To Sheets.Count
    Sheets(s).Protect Password:=Test, DrawingObjects:=True, Contents:=True, Scenarios:=True
    Sheets(s).EnableSelection = xlUnlockedCells
  Next s
  Sheets(Name).Select
  Application.ScreenUpdating = True
End Function
Private Function AlleBlaetter_Oeffnen()
  Dim s As Long, Name As String
  Name = ActiveSheet.Name
  Application.ScreenUpdating = False
  For s = 1 To Sheets.Count
    Sheets(s).Unprotect Password:=Test
  Next s
  Sheets(Name).Select
  Application.ScreenUpdating = True
End Function

Private Sub Worksheet_SelectionChange(ByVal Target As Excel.Range)
  
  Const c_UserA = UserA
  
  Dim zelle As Range, b_lockedcell As Boolean
  
 ->Für alll außer UserA
  If Application.UserName <> c_UserA Then
    b_lockedcell = False
    For Each zelle In Target
      If zelle.Locked Then
        MsgBox (gesperrte Zellen können nicht selektiert werden)
        b_lockedcell = True
        Exit For
      End If
    Next
    If b_lockedcell Then
     ->erste nicht gesperrte Zelle selektieren
      For Each zelle In UsedRange
        If Not zelle.Locked Then
          Application.EnableEvents = False
          zelle.Select
          Application.EnableEvents = True
          Exit For
        End If
      Next
    End If
    Set zelle = Nothing
  End If
End Sub