Ceci est une page optimisée pour les mobiles. Cliquez sur ce texte pour afficher la vraie page.

Critères de verrouillage via macro

Créer une discussion
  • Initiateur de la discussion Initiateur de la discussion ILoveZadig
  • Date de début Date de début

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

S'inscrire
I

ILoveZadig

XLDnaute Occasionnel
Bonjour à tous,

Je me suis rendu compte que lorsque l'on ajoute les codes :

Code: 
ActiveSheet.Unprotect

Code: 
ActiveSheet.Protect

Le verrouillage de la feuille redevient standard, c'est-à-dire avec uniquement la possibilité de sélectionner les cellules verrouillées et non verrouillées.

Est-il possible via cette macro de reverrouiller la feuille avec certains critères précis tels que :
  • Format de cellules
  • Format de colonnes
  • Format de lignes
  • Insérer colonnes/lignes
  • Supprimer colonnes/lignes
  • Utiliser le filtre automatique

Merci beaucoup par avance. 🙂
 
Trier par date Trier par votes
Re : Critères de verrouillage via macro

Bonjour,

Dans VBA, tu cliques sur le mot Protect et tu appuies sur F1.
Ensuite tu devras surement choisir l'objet (je pense qu'il s'agit de Worksheet)
et là tu auras tous les arguments de cette méthode (et y'en a pleins je viens d'essayer...)

Caillou
 
Vote positif 0 Vote négatif
Re : Critères de verrouillage via macro

Merci pour cette réponse. Je suis donc allé voir dans VBA, puis tapé ce code :

Code: 
ActiveCell.Offset(-1, 0).Rows("1:1").EntireRow.Select
    Selection.Copy
    ActiveCell.Offset(1, 0).Rows("1:1").EntireRow.Select
    Selection.PasteSpecial Paste:=xlFormats, Operation:=xlNone, SkipBlanks:= _
        False, Transpose:=False
    Application.CutCopyMode = False
    ActiveCell.Offset(-1, 0).Range("A1:E1").Select
    Selection.Copy
    ActiveCell.Offset(1, 0).Range("A1").Select
    Selection.PasteSpecial Paste:=xlFormats, Operation:=xlNone, SkipBlanks:= _
        False, Transpose:=False
    Application.CutCopyMode = False
    ActiveCell.Offset(-1, 3).Range("A1:B1").Select
    Selection.Copy
    ActiveCell.Offset(1, 0).Range("A1").Select
    ActiveSheet.Paste
    ActiveCell.Offset(-2, 0).Range("A1").Select
    Application.CutCopyMode = False
    
    ActiveCell.Offset(1, -3).Range("A1:E1").Select
    Selection.Borders(xlDiagonalDown).LineStyle = xlNone
    Selection.Borders(xlDiagonalUp).LineStyle = xlNone
    With Selection.Borders(xlEdgeLeft)
        .LineStyle = xlContinuous
        .Weight = xlMedium
        .ColorIndex = xlAutomatic
    End With
    With Selection.Borders(xlEdgeTop)
        .LineStyle = xlContinuous
        .Weight = xlThin
        .ColorIndex = xlAutomatic
    End With
    With Selection.Borders(xlEdgeBottom)
        .LineStyle = xlContinuous
        .Weight = xlThin
        .ColorIndex = xlAutomatic
    End With
    With Selection.Borders(xlEdgeRight)
        .LineStyle = xlContinuous
        .Weight = xlMedium
        .ColorIndex = xlAutomatic
    End With

[B][COLOR="Red"]ActiveSheet.Protect AllowFormattingCells:=True, AllowFormattingColumns:=True, AllowFormattingRows:=True, AllowInsertingColumns:=True, AllowInsertingRows:=True, AllowDeletingColumns:=True, AllowDeletingRows:=True
End Sub[/COLOR][/B]

Et... rien ne se passe. 😕

J'ai fait une erreur? (j'ai mis en gras rouge les lignes concernées 🙂)
 
Vote positif 0 Vote négatif
Re : Critères de verrouillage via macro

Oui, mais l'argument contents est par défaut sur True, donc je ne l'ai pas mis. Il faut l'ajouter tout de même?

De plus, lorsque je lance la macro, je ne peux ni ajouter de ligne, ni en supprimer etc. contrairement à ce que je pensais avoir indiqué dans la macro.
 
Vote positif 0 Vote négatif
Re : Critères de verrouillage via macro

Si, tout à l'heure contents était à faux dans ton code, j'ai fait un copier/Coller (pas rêver!)
Par contre à mon avis, pour pouvoir supprimer une ligne sur une feuille protégée il faut que la ligne ne comporte que des cellules non verrouillées!

Caillou
 
Vote positif 0 Vote négatif
Re : Critères de verrouillage via macro


Ah! Oui, en effet, j'ai posté avec contents:=false, mais je m'en suis rendu compte tout de suite, et je l'ai enlevé dans les 10 sec. Tu as donc été très rapide !

Oui, j'ai des cellules verrouillées donc impossible de supprimer les lignes. 🙁

Merci pour tes réponses en tout cas !
 
Vote positif 0 Vote négatif
Re : Critères de verrouillage via macro

J'ai tout de même revérifié, et même en déverrouillant toutes les lignes, je ne peux pas, lorsque je lance la macro, supprimer une ligne, malgré le code :

Code: 
ActiveSheet.Protect AllowFormattingCells:=True,
AllowFormattingColumns:=True, AllowFormattingRows:=True,
AllowInsertingColumns:=True, AllowInsertingRows:=True,
AllowDeletingColumns:=True, AllowDeletingRows:=True
End Sub

J'ai ajouté le fichier en question, si quelqu'un voit une solution. 🙂
 

Pièces jointes

Vote positif 0 Vote négatif
Re : Critères de verrouillage via macro

Attention dans ton fichier, la ligne de code n'affiche que :
ActiveSheet.Protect
et non
ActiveSheet.Protect contents:=True, AllowDeletingRows:=True

de plus je viens d'essayer et ca marche parfaitement

Caillou
 
Vote positif 0 Vote négatif
Re : Critères de verrouillage via macro

J'ai compris..

J'avais 2 fichiers ouverts :

  • Cout de revient M (le fichier joint ici)
  • Cout de revient


Je modifiais depuis tout à l'heure le module Cout de revient, et travaillais sur Cout de revient M.. Forcémenent ça ne pouvait pas aller.

Merci en tout cas pour ton aide Caillou 🙂 Tout est rentré dans l'ordre!
 
Vote positif 0 Vote négatif
Identifiez-vous ou inscrivez-vous pour participer.
Rejoins nos membres "Supporter XLD" et booste ton expérience Excel !
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD

Discussions similaires

M
  • Résolu(e)
XL 2013 Feuille protégée avec certaines cellules verrouillées
2
Réponses
19
Affichages
823
Manutela
M
  • Question Question
Microsoft 365 Macro qui enchaine deshoraires Aller-Retour en fonction de critères
Réponses
10
Affichages
332
bsalv
B
P
  • Question Question
XL 2019 Macro VBA appliquer un filtre lors d'une importation de données
Réponses
1
Affichages
580
fanch55
P
  • Question Question
XL 2016 VBA Appliquer un filtre sur mes données importées
Réponses
4
Affichages
688
sousou
W
  • Question Question
XL 2019 Transformer des lignes de codes pour pratiquer Tablo à 4 colonnes et 40 lignes
2 3
Réponses
40
Affichages
2 K
Webperegrino
W
N
  • Question Question
Microsoft 365 afficher/masquer des lignes en fonction de la valeur d'une cellule qui aura été renseignée par une autre feuille (via un copier/collé automatique)
Réponses
5
Affichages
1 K
Nel'
N
C
  • Question Question
XL 2016 Excel Macro permettant de masquer une ligne lorsque les cellules de 2 colonnes contigües sont vides
Réponses
11
Affichages
668
chris63
C
P
  • Résolu(e)
XL 2016 VBA Insérer une date dans le nom de fichiers PDF publipostés via WORD à partir d"excel
Réponses
3
Affichages
748
PHIL37
P
U
  • Question Question
Autres incorporer une macro dans une autre macro
Réponses
5
Affichages
799
Phil69970
E
  • Question Question
Microsoft 365 effacer formule en fonction de ce qui a été saisi dans une autre cellule
Réponses
6
Affichages
675
Phil69970
W
  • Résolu(e)
XL 2016 Ordonner une cellule ou un pavé de cellules contenant des chr(10)
Réponses
5
Affichages
819
Webperegrino
W
C
  • Résolu(e)
XL 2021 Tri Excel vs Macro
Réponses
9
Affichages
687
claudio54
C
zip And unzip des éléments d'un fichier de type zip y compris les fichiers Excelavec la commande (TAR)
Réponses
2
Affichages
787
patricktoulon
A
  • Résolu(e)
XL 2019 Confirmer la modification d'une cellule avant de la protéger en suite
Réponses
10
Affichages
1 K
arnoldbrice19
A
  • Résolu(e)
XL 2016 Option de verrouillage d'une feuille avec macro
Réponses
7
Affichages
1 K
Phil69970
C
  • Question Question
Autres Afficher lignes contenant des cellules suivant plusieurs critères
Réponses
2
Affichages
602
Hasco
POWERQUERY :: Importer un fichier .csv avec construction de critères dynamiques (5 max) de type texte et sélection entre deux dates possible - V2.0
Réponses
0
Affichages
923
oguruma
G
  • Question Question
Microsoft 365 Incompatibilité de type - Array
Réponses
2
Affichages
840
guiyom
G
D
  • Question Question
XL 2021 Mise en forme automatique de tableaux via vba
Réponses
7
Affichages
1 K
Jacky67
S
  • Résolu(e)
Microsoft 365 - Conseils pour la structuration d'une base de données -
2 3
Réponses
44
Affichages
4 K
crocrocro
C
Menu
Connexion
S'inscrire
Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…