Bonjour,

Dans une ancienne discussion (statut: RÉSOLU) J'ai copié un code et l'adapter a mon cas. C'est pour empêcher l'ouverture du fichier si on le renomme. Le code ne fonctionne pas exactement comme je l'aurai souhaité. Même si je le renomme avec son vrai nom contenu dans le code il continue quand même a m'afficher le même message: “Vous n’êtes pas autorisés à renommer ce fichier. Merci!”. Et lorsque je clique sur OK le fichier se ferme.
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
 
Private Sub Workbook_Open()
MsgBox “Vous n’êtes pas autorisés à renommer ce fichier.  Merci!”
nom = ActiveWorkbook.Name
nomorigin = "EXEMPLE.xlsm"
If nom <> nom1 Then
ActiveWorkbook.Close
End If
End Sub
Quelqu'un peut-il se pencher sur mon cas pour voir d'ou provient mon erreur.

Merci infiniment d'avance.