Waarom werkt mijn macro beveiliging werkt niet goed?
Als ik een macro beveilig met een wachtwoord en dan op de button klik om de functie te laten vervullen moet hij uiteraard om een wachtwoord vragen, dat doet hij goed. Als ik het wachtwoord juist invul gaat de functie in vervulling. Maar als ik op annuleren klik gaat de macro OOK zijn functie doen.
de macro code is:
Sub BeveiligingUit1()
'
' BeveiligingUit1 Macro
' De macro is opgenomen op 24-4-2014 door Victor.
'Dim password As Variant
Password = Application.InputBox("Voer uw wachtwoord in", "Wachtwoord")
Select Case Password
Case Is = False
'do nothing
Case Is = "Welkom01"
Value = "This is secret code"
Case Else
MsgBox "Fout wachtwoord!"
End Select
ActiveSheet.Unprotect
End Sub
Welkom01 is het wachtwoord in dit geval.
Toegevoegd na 9 minuten:
Ik gebruik excel 2003