Berechtigung in Userform

[shadow-c4]

Hallo Excelfreunde
Ich habe wieder eine kurze Frage.
In meiner Userform habe ich ein paar Register die nicht jeder sehen darf.
Ich habe es so geschrieben, das wenn ich angemeldet bin alle sehe, die anderen jedoch nur die ersten sieben.
Code:
Const strAdmin = "Administrator"

Private Sub UserForm_Initialize()
Dim intz As Integer 
 
 Me.Register.Pages(0).Caption = "Sp.."
 Me. Register.Pages(1).Caption = "Fu..."
Me. Register.Pages(2).Caption = "Druck..."
Me. Register.Pages(3).Caption = "Et..."
Me. Register.Pages(4).Caption = "Mas...."
Me. Register.Pages(5).Caption = "Ka....l"
Me. Register.Pages(6).Caption = "Bea....."
Me. Register.Pages(7).Caption = "sonstiges"
Me. Register.Pages(8).Caption = "WKC"
    If Environ("username") <> strAdmin Then
    Me.Register.Pages(8).Visible = False
  Else
    Me. Register.Pages(8).Visible = True
  End If
     Me. Register.Value = 0
 End Sub
Nun möchte ich noch 2 usernamen freigeben. Wie erweitere ich : Const strAdmin = "Administrator"
damit auch diese User das Register WKC sehen?

Danke im vorraus für eure Hilfe

[Kuwer]

Hallo,

hier ohne Konstante oder sonstige Variablen:

Private Sub UserForm_Initialize()

 Me.Register.Pages(0).Caption = "Sp.."

 Me.Register.Pages(1).Caption = "Fu..."

 Me.Register.Pages(2).Caption = "Druck..."

 Me.Register.Pages(3).Caption = "Et..."

 Me.Register.Pages(4).Caption = "Mas...."

 Me.Register.Pages(5).Caption = "Ka....l"

 Me.Register.Pages(6).Caption = "Bea....."

 Me.Register.Pages(7).Caption = "sonstiges"

 Me.Register.Pages(8).Caption = "WKC"

 Select Case Environ("username")

   Case "Administrator", "User1", "User2"

     Me.Register.Pages(8).Visible = True

   Case Else

     Me.Register.Pages(8).Visible = False

 End Select

 Me.Register.Value = 0

End Sub

Gruß Uwe

[shadow-c4]

Vielen Dank
Funktioniert perfekt!

:18: