Verrouillage avec conditions

Y compris Power BI, Power Query et toute autre question en lien avec Excel
l
liod
Membre habitué
Membre habitué
Messages : 95
Inscrit le : 3 avril 2013
Version d'Excel : 2007

Message par liod » 20 septembre 2019, 12:28

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
AlgoPlus
Membre dévoué
Membre dévoué
Messages : 602
Appréciations reçues : 48
Inscrit le : 27 février 2019
Version d'Excel : 2007

Message par AlgoPlus » 20 septembre 2019, 16:51

Bonjour,

essayer avec:
CL.ActiveSheet.Protect ("banane"), DrawingObjects:=False, Contents:=True, Scenarios:= _
        False, AllowFormattingColumns:=True, AllowInsertingColumns:=True, _
        AllowInsertingRows:=True, AllowDeletingRows:=True
A+
Répondre Sujet précédentSujet suivant
  • Sujets similaires
    Réponses
    Vues
    Dernier message
  • Copier le verrouillage
    par ALIGATOR » 30 mai 2018, 08:23 » dans Excel - VBA
    1 Réponses
    62 Vues
    Dernier message par paritec
    30 mai 2018, 08:42
  • Verrouillage de cellules
    par Rubens 03 » 7 février 2019, 10:56 » dans Excel - VBA
    11 Réponses
    303 Vues
    Dernier message par Xmenpl
    15 février 2019, 09:30
  • Verrouillage de cellule
    par Ritch55 » 1 février 2019, 13:43 » dans Excel - VBA
    3 Réponses
    112 Vues
    Dernier message par Theze
    3 février 2019, 16:01
  • Verrouillage ligne...:help:
    par edlede » 23 mars 2018, 22:00 » dans Excel - VBA
    9 Réponses
    119 Vues
    Dernier message par i20100
    24 mars 2018, 01:29
  • Verrouillage cellule
    par DjpSib » 19 mars 2018, 12:52 » dans Excel - VBA
    5 Réponses
    137 Vues
    Dernier message par Dan
    19 mars 2018, 22:25
  • Verrouillage MACRO
    par Vinceshow » 5 juillet 2018, 11:36 » dans Excel - VBA
    2 Réponses
    98 Vues
    Dernier message par Vinceshow
    9 juillet 2018, 07:43