Beveiliging in VBA gaat niet goed

[Appievee]

Beste forummers,

Voor een excelblad maak ik gebruik van onderstaande VBA code. Alleen kom ik er achter dat na het uitvoeren van de button (waaraan ik deze code heb toegewezen) de beveiliging van het blad niet actief is met de code "1234". Men kan het blad gewoon ontgrendelen zonder code. Ik zie de fout niet, wie wel?

Tkx!

Albert

Sub Gegevensovernemen_contractwaarde()
'
' Gegevensovernemen_Contractwaarde Macro
'
'   Sub MessageBoxExample()
    Dim iRet As Integer
    Dim strPrompt As String
    Dim strTitle As String
 
    ' Promt
    strPrompt = "Weet u zeker dat u de gegevens naar de vorige maand wil overzetten en de huidige gegevens wilt wissen? Het kan niet meer ongedaan gemaakt worden!!"
 
    ' Dialog's Title
    strTitle = "Gegevens overnemen"
 
    'Display MessageBox
    iRet = MsgBox(strPrompt, vbOKCancel, strTitle)
 
    ' Check pressed button
    If iRet = vbCancel Then
      End
    Else

    ActiveSheet.Unprotect Password:="1234"
    Range("Bron_contractwaarde").Copy
    Range("Doel_contractwaarde").PasteSpecial Paste:=xlPasteFormulas, Operation:=xlNone, _
        SkipBlanks:=False, Transpose:=False
    Application.CutCopyMode = False
    Range("Bron_contractwaarde") = ""
  Range("Bron_contractwaarde2").Copy
    Range("Doel_contractwaarde2").PasteSpecial Paste:=xlPasteFormulas, Operation:=xlNone, _
        SkipBlanks:=False, Transpose:=False
    Application.CutCopyMode = False
    Range("Bron_contractwaarde2") = ""
    ActiveSheet.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True

End If
ActiveSheet.Protect Password:="1234"
End Sub

 

[wampier]

Je protect tweemaal het sheet, de eerste keer echter zonder password

 

[Appievee]

Check, wel heel slordig

Dank in elk geval:thumb: