Verrouillage avec conditions
l
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.
A
Bonjour,
essayer avec:
CL.ActiveSheet.Protect ("banane"), DrawingObjects:=False, Contents:=True, Scenarios:= _
False, AllowFormattingColumns:=True, AllowInsertingColumns:=True, _
AllowInsertingRows:=True, AllowDeletingRows:=True
A+