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

Weet jij het antwoord?

/2500

Het beste antwoord

Volgns mij moet je de cancel ook afvangen. Bij cancel wordt een 'zero-length' string door de inputbox teruggegeven. Dus naast je case is false en case = "Welkom01"moet je er nog een case bijbouwen. Case Is "" Then Exit Sub Hoop dat je hiermee uit de voeten kan.

Stel zelf een vraag

Ben je op zoek naar het antwoord op die ene vraag die je misschien al tijden achtervolgt?

/100