Excel VBA : Gérer les paramètres pour protéger une feuille

Bonjour,
J'ai une macro (merci Développez.com!) qui me permet de protéger une feuille Excel. Seules les cellules dévérouillées restent accessibles et c'est OK. Par contre, je voudrais sélectionner automatiquement aussi "Mettre en forme les colonnes" pour facilité la visibilité des utilisateurs de la feuille protégée. J'ai cru comprendre que c'était la commande EnableFormatingColumns = True mais je n'arrive pas à la placer correctement
Voici le code

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21

Sub Réalisation_Protéger_FCM_Click() Dim folderPath As String Dim fileName As String Dim wb As Workbook Dim pwd As String 'Mot de passe pwd = "Protection" ' Définir le chemin du répertoire folderPath = "C:\PACTE_SSE\B-DATA\REALISATIONC1C2\FCMC1C2_Modèle\Protéger" ' ' Parcours de tous les fichiers dans le répertoire fileName = Dir(folderPath & "\*.xls*") Do While fileName <> "" Set wb = Workbooks.Open(folderPath & "\" & fileName) ' Protéger la feuille active avec le mot de passe ActiveSheet.Protect Password:=pwd ' Fermer et enregistrer le classeur wb.Close SaveChanges:=True fileName = Dir Loop Call SupprimerLiaisons End Sub

---

Merci pour l'aide!
GDM

Bonjour,


il me semble que c'est AllowFormattingColumns à mettre à true

.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True, AllowFormattingCells:=True

Code:

---

ActiveSheet.Protect Password:=pwd, AllowFormattingColumns:=True

---

Tu as la liste de tous les paramètres ici : https://learn.microsoft.com/fr-fr/of...ksheet.protect

Merci très sincérement. ca à l'air de fonctionner. Je revérifie demain (j'ai la tête pleine!!).
Très cordialement.
GDM