Verrouillage avec conditions

Bonjour à tous !!

J'ai un petit soucis pour peaufiner un code... Je vous explique j'ai une macro qui s’exécute pour analyser des fichiers présents dans un dossier en boucle il déverrouille les fichiers mais je voudrais qu'il reverrouille les fichiers avec des conditions.

Sub ProtectionCRGLOT()
Dim CA As String 'déclare la variable CA (Chemin d'Accès)
Dim F As String 'déclare la variable F (Fichier)
Dim CL As Workbook 'déclare la variable CL (CLasseur)

CA = "C:\CRG A MODIFIER\" 'définit le chemin d'accès CA
F = Dir(CA & "*.xls") 'attention adapter l'extension ! 'définit le premier fichier xlsx ayant CA comme chemin d'accès
Do While F <> "" 'exécute tant qu'il existe des fichiers
    Workbooks.Open CA & F 'ouvre le fichier F
    Set CL = ActiveWorkbook 'définit le classeur CL
    CL.ActiveSheet.Unprotect ("banane") 'déprotège l'onglet actif
    CL.ActiveSheet.Protect ("banane")
    CL.Close True 'ferme le classeur en enregistrant les modifications
    F = Dir 'prochain fichier xlsx ayant CA comme chemin d'accès
Loop 'boucle
End Sub

En gros je voudrais que les les conditions dans le CL.ActiveSheet.Protect soit les suivantes :

DrawingObjects:=False, Contents:=True, Scenarios:= _
        False, AllowFormattingColumns:=True, AllowInsertingColumns:=True, _
        AllowInsertingRows:=True, AllowDeletingRows:=True

Mais impossible de rajouter ces conditions de verrouillage à mon code...

Vous avez une idée ?

Merci d'avance pour votre aide.

Bonjour,

essayer avec:

CL.ActiveSheet.Protect ("banane"), DrawingObjects:=False, Contents:=True, Scenarios:= _
        False, AllowFormattingColumns:=True, AllowInsertingColumns:=True, _
        AllowInsertingRows:=True, AllowDeletingRows:=True

A+

Rechercher des sujets similaires à "verrouillage conditions"