XL 2010 Macro + fichier protégé + fichier partagé

[erwanhavre]

Bonjour à tous comment faire (à l' aide d'un code VBA) départager et déprotégés puis re-partagé et re-protégé entre les deux action jai mon code bien entendu
Merci à tous

 

[Oranger]

Bonjour,

Voici une proposition:

Sub code()
'on désactive les alertes
Application.DisplayAlerts = False
'on départage
ActiveWorkbook.UnprotectSharing
'on déprotége la feuille
ActiveSheet.Unprotect
'ton code
Sheets("Feuil1").Range("A1") = 1
'on reprotège la feuille
ActiveSheet.Protect
'on réactive le partage
ActiveWorkbook.ProtectSharing
Application.DisplayAlerts = True
End Sub

Cdlt,

Oranger