Partage de fichier

Bonjour à tous,

J'ai un problème lors du partage d'un fichier,

Ma procédure d'ouverture du fichier est la suivante :

Private Sub Workbook_Open()

ActiveWorkbook.Protect Structure:=False, password:="editmode"

'lock sheets : "Durations and phases"
Sheets("Durations").Protect password:="editmode"
Sheets("phases").Protect password:="editmode"

'Hide sheets "control", "event_track", "Terminated projects"
Sheets("Control").Visible = xlVeryHidden
Sheets("Event_track").Visible = xlVeryHidden
Sheets("Terminated projects").Visible = xlVeryHidden
Sheets("Instructions").Visible = xlVeryHidden

'Lock structure (impossible to add sheets, change their names etc...)
ActiveWorkbook.Protect Structure:=True, password:="editmode"

'Activate the Event_tracker
Sheets("control").Range("B14").Value = "true"

End Sub

J'ai envoyé le fichier à un collègue par mail et quand il l'a ouvert il a eu le message suivant :

Et en cliquant sur "Enable Editing", la procédure d'ouverture n'a pas dû s'exécuter et aucune feuille n'a été protégée/cachée.

Comment s'assurer que le workbook sera protégé à l'ouverture?

Je précise que je n'ai jamais eu ce message sur mon ordinateur.

Merci d'avance.

Bonjour,

Le problème arrive dès que j'envoie le fichier par mail, téléchargé depuis le web le fichier s'ouvre en lecture seule et la macro de lancement n'est pas effectuée.

Vraiment personne ne sait comment le contraindre à la faire ?

Merci.

Rechercher des sujets similaires à "partage fichier"