Microsoft Excel

Excel und VBA: Formeln, Programmierung, Lösungen

Die Excel/VBA-Beispiele

Thema

Spaltenweiser Blattschutz in Abhängigkeit des Anwendernamens

Gruppe

Open

Problem

Der Blattschutz soll in Abhängigkeit des Anwendernamens (Menü EXTRAS / OPTIONEN / Register ALLGEMEIN / ANWENDERNAME) spaltenweise gesetzt werden.

Lösung
Geben Sie den Ereigniscode in das Klassenmodul der Arbeitsmappe ein.

ClassModule: DieseArbeitsmappe

Private Sub Workbook_Open()
   Dim rng As Range
   Worksheets("Tabelle1").Unprotect "HWH"
   Set rng = Range("A1").CurrentRegion
   rng.Locked = True
   Select Case Application.UserName
      Case "Anwender1": rng.Columns(1).Locked = False
      Case "Anwender2": rng.Columns(2).Locked = False
      Case "Hans W. Herber": rng.Columns(3).Locked = False
      Case "Anwender4": rng.Columns(4).Locked = False
      Case "Anwender5": rng.Columns(5).Locked = False
   End Select
   Worksheets("Tabelle1").Protect "HWH"
End Sub