Protection classeur avec macro

Question

J'ai un fichier Excel de 7 feuilles, avec plusieurs macros. J'ai protéger chaque feuille par un mot de passe, et j'ai aussi protéger et partager le classeur avec un mot de passe. Petit problème, quand j’exécute une macro, j'ai un message d'erreur qui apparait : J'ai ôter la protection et le partage du classeur, ça fonctionne correctement, mais je souhaiterai le protéger et le partager, pour éviter que quelqu'un puisse ôter la protection et modifier des données. J'ai trouvé un code qui pourrait peut être faire l'affaire, mais je ne sais pas où le rentrer Sub MacroavecfeuilleProtect() ActiveSheet.Unprotect "lemotdepasse" 'Placez ici vos instructions ActiveSheet.Protect "lemotdepasse", True, True, True End Sub Merci d'avance Menzo...

papyg · Answer

En début de ta macro ActiveSheet.Unprotect "lemotdepasse" puis en fin de macro après avoir exécuté ton code ActiveSheet.Protect "lemotdepasse", True, True, True A plus sur le forum...

papyg · Answer

Re si ton mot de passe de protection est toto su as bien dans ta macro ActiveSheet.Unprotect "toto" et ta feuille active est bien la feuille protégée quand tu exécute cette ligne de code ? A plus sur le forum...

papyg · Answer

Re dans ce cas peut etre avec Activeworkbook.ProtectSharing et ActiveWorkbook.UnprotectSharing A plus sur le forum...

papyg · Answer

Il n'y a pas de raison test comme ça ActiveWorkbook.ProtectSharing "C:\Users\_\Documents\Exemplel.xlsm", "toto1", "toto2", , , "toto3" ou "C:\Users\_\Documents\Exemplel.xlsm" nom du fichier avec chemin complet "toto1" pour lecture seule "toto2" pour modification "toto3" pour supprimer le partage à l'ouverture saisir toto1 à la première fenêtre à la seconde fenêtre valider lecture seule ou saisir toto2 pour supprimer le partage ouvrir en modification puis à partir du bandeau Révision supprimer le partage avec toto3 et voila A plus sur le forum...