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

[pbourassa]

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??

 

[Efgé]

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

Bonjour pbourassa, le fil, le forum,
Il est toujours plus façile d'avoir un petit fichier exemple (moins de 48,8Ko et annonyme) pour répondre aux questions.
Une proposition (non testée):

Sub test()
Dim myRange As Range
Dim rFound As Range
Set myRange = ActiveSheet.Range("une plage de cellule")
semaine = Range("une cellule").Value
Sheets("Feuil1").Unprotect Password:="un mot de passe"
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…
        Else
            Une autre série d’actions
        End If
End If
Sheets("Feuil1").Protect Password:="un mot de passe", userInterfaceOnly:=True
End Sub

Cordialement