Verrouillage avec conditions

Y compris Power BI, Power Query et toute autre question en lien avec Excel
Répondre
l
liod
Membre habitué
Membre habitué
Messages : 98
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 : 824
Appréciations reçues : 64
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
  • Sujets similaires
    Réponses
    Vues
    Dernier message
  • Copier le verrouillage
    par ALIGATOR » 30 mai 2018, 08:23 » dans Excel - VBA
    1 Réponses
    74 Vues
    Dernier message par paritec
    30 mai 2018, 08:42
  • Verrouillage graphique
    par Jerry-fr » 29 octobre 2014, 18:31 » dans Excel - VBA
    5 Réponses
    1040 Vues
    Dernier message par Jean-Eric
    31 octobre 2014, 14:51
  • Verrouillage ligne...:help:
    par edlede » 23 mars 2018, 22:00 » dans Excel - VBA
    9 Réponses
    127 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
    156 Vues
    Dernier message par Dan
    19 mars 2018, 22:25
  • verrouillage cellules
    par yanick38 » 28 octobre 2017, 15:54 » dans Excel - VBA
    4 Réponses
    180 Vues
    Dernier message par yanick38
    29 octobre 2017, 19:43
  • Verrouillage MACRO
    par Vinceshow » 5 juillet 2018, 11:36 » dans Excel - VBA
    2 Réponses
    109 Vues
    Dernier message par Vinceshow
    9 juillet 2018, 07:43