La commande "Protéger la feuille" ne fonctionne pas (se dévérouille sa

Bonjour
Ton problème est résolu?

Bonjour JCB40,
Merci pour ta réponse et désolé pour le délai de réponse.
Non, mon problème n'est pas résolu

Je n'ai pas de macro, en revanche j'ai ajouté le code suivant dans le fichier ThisWorkbook

Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)


Feuil3.Protect DrawingObjects:=True
Feuil8.Protect DrawingObjects:=True



On Error Resume Next


If IsError(Feuil5.Name) Then
  MsgBox "Vous avez supprimé une feuille protégée, Excel va être fermé !"
  Cancel = True
  Application.DisplayAlerts = False
  Application.Quit
End If

If IsError(Feuil9.Name) Then
  MsgBox "Vous avez supprimé une feuille protégée, Excel va être fermé !"
  Cancel = True
  Application.DisplayAlerts = False
  Application.Quit
End If

End Sub

1)
Les deux lignes "Protect DrawingObjects" sont censés protéger les images et empêcher leur suppression si l'utilisateur arrive à passer la protection du mot de passe.
Et on voit d'ailleurs que ces deux lignes n'ont aucun effet, puisque lorsque j'enlève la protection de la feuille, je peux supprimer les images sans problème


2)
Le reste du code est censé empêcher la suppression de certaines feuilles par l'utilisateur
S'il le fait, le document Excel se ferme sans lui laisser la possibilité de sauvegarder.

J'ai moins besoin de ce code, étant donné que j'ai protégé la structure du document (Révisions > Protéger le classeur) par mot de passe, et que cela empêche toute suppression / ajout de feuille.
Mais à nouveau, j'ai ajouté cette sécurité supplémentaire au cas où l'utilisateur arrive à passer outre.




En bref, je ne vois pas en quoi ces codes feraient un popup m'obligeant d'ôter la protection de la feuille lorsque je veux sauvegarder.
Mais peut-être quelque chose m'a t'il échappé


Si tu as une idée, merci beaucoup par avance pour ton temps :)