Hi Leute

wie kann ich meinen bestehenden Code um eine Passwortabfrage ergänzen?

Private Sub AdminOn_Click()

Me.AdminOn.Visible = False
Me.AdminOn2.Visible = True
Me.AdminOff.Visible = True
Me.AdminOff2.Visible = False
'Dektivierung des Passwortschutzes


Sheets("Pivot").Visible = True
Sheets("TARF Data").Visible = True
Sheets("DC Data").Visible = True
Sheets("FX Swaps DB").Visible = True
Sheets("01-24").Visible = True
Sheets("02-24").Visible = True
Sheets("03-24").Visible = True
Sheets("4329").Visible = True
Application.Run "sheets_show"

End Sub

LG Lisa