MsgBox ne s'affiche pas en mode protégé?

Bonjour,

J'ai une macro affecté à un bouton où se retrouve ce code:

Dim myRange As Range
Dim rFound As Range
Set myRange = ActiveSheet.Range("une plage de cellule")
semaine = Range("une cellule").Value

With myRange
Set rFound = myRange.Find(semaine)
If Not rFound Is Nothing Then
MsgBox "Un message… " & semaine & ". Une question?", vbYesNo
If vbYes Then
Une série d’actions…
End If
Else
Une autre série d’actions
End If
End With

Lorsque je suis en mode non protégé, la boîte de message apparaît, mais en mode protégé celle-ci n'apparaît pas et effectue l'opération prévue par la réponse vbYes

La Protection est:
Workbook _Open () Dim wSheet As Worksheet
For Each wSheet In Worksheets
wSheet.Protect Password:="un mot de passe", userInterfaceOnly:=True
Next wSheet

Pourquoi??