danny147
Terugkerende gebruiker
- Lid geworden
- 29 apr 2007
- Berichten
- 4.744
Beste,
Graag zou ik tijdens het intypen van Paswoord dat er "***" te zien zijn
Op het internet gekeken, maar blijkbaar zou er iets zijn met 64 bit systeem ? --> Daniel Klann
Gebruik volgende code:
Graag zou ik tijdens het intypen van Paswoord dat er "***" te zien zijn
Op het internet gekeken, maar blijkbaar zou er iets zijn met 64 bit systeem ? --> Daniel Klann
Gebruik volgende code:
Code:
Private Sub CommandButton1_Click()
Dim sh As Worksheet
Application.ScreenUpdating = False
x = InputBox("Wachtwoord ingeven a.u.b.", "Wachtwoord.")
If x = "SIDDESD" Then
MsgBox "Welkom", vbOKOnly, "Wachtwoord"
For Each sh In Sheets
sh.Unprotect Password:="1234"
Next sh
UserForm5.Show
Else
MsgBox "Verkeerd Paswoord !", vbOKOnly, "Wachtwoord"
Exit Sub
End If
For Each sh In Sheets
sh.Protect Password:="1234", AllowFiltering:=True
Next sh
Application.ScreenUpdating = True
End Sub