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

Macro protection

Créer une discussion
  • Initiateur de la discussion Initiateur de la discussion Tom32
  • 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
T

Tom32

XLDnaute Occasionnel
Bonjour,

je cherche le moyen de réaliser une macro me permettant de protéger ou de déprotéger rapidement mes feuilles de calcul Excel, mais je ne vois pas comment faire. J'ai essayé que ma macro fasse les choses suivantes :
si ma feuille de calcul n'est pas protégée :
-quand j'éxécute un raccourci (Ctrl + R), une boite de dialogue s'ouvre (ou userform?)
-dans ce Userform, je pourrai cocher 3 options différentes : "sélectionner les cellules vérouillées"; "sélectionner les cellules dévérouillées" et "utiliser le filtre automatique".
-quand j'ai choisi les options, je clique sur le ok du userform.
-ma feuille se vérouille alors, avec un code (entré dans la macro : toujours le même) selon les options que j'ai choisi précédement. Si j'ai coché utiliser le filtre, alors l'option Allowfiltering = True...

Si jamais ma feuille est déja protégée :
-en utilisant le même raccourci clavier (Ctrl + R), la macro déprotège la feuille en utilisant le même code que précédemment (de même entré dans la macro).

Voila c'est peut être un peu compliqué à faire, mais je ne vois pas du tout comment je pourrai m'y prendre pour réaliser cette macro.
Quelqu'un peut il m'aider ??

Merci d'avance
 
Trier par date Trier par votes
Re : Macro protection

Bonjour Tom, bonjour le forum,

C'eût été juducieux de joindre ta macro.....

tu pourrais déprotéger tes onglets à l'initialisation de l'UserForm et les reprotéger à la validation du bouton Ok.
 
Vote positif 0 Vote négatif
Re : Macro protection

La macro que j'ai actuellement est la suivante (c'est une de celles que vous m'avez concocté) :
Code: 
Sub de_et_reproteger()
With ActiveSheet
If .ProtectContents Then
.Unprotect ("[COLOR="Red"]code de protection[/COLOR]")
Else
.Protect ("[COLOR="Red"]code de protection[/COLOR]"), AllowFiltering:=True
End If
End With
End Sub

Cette macro ne me convient pas car elle pose quelques problèmes techniques et elle ne me permet pas de choisir les différentes options exposées précedemment (seléectionner cellules (dé)vérouillé).

J'aimerais donc une macro foctionnant sur la même base mais avec un userform me permettant de choisir les différentes options
 
Vote positif 0 Vote négatif
Re : Macro protection

J'ai fait un essai : j'ai créer le user form et le module permettant de le charger.

Il ne me reste qu'un truc à faire (le plus dur). quand je clique sur le bouton ok, il faudrait que je puisse protéger ma feuille en fonction des 3 paramètres choisis dans le user form.

Quel code dois entrer ? je suis un peu pommé là j'avoue, il doit falloir entrer des If, ... mais je ne sais pas comment faire

Merci de votre aide
 

Pièces jointes

Vote positif 0 Vote négatif
Re : Macro protection

Bonjour



A tester
Code: 
Private Sub Ok_Click()
If cell_déver = True Then
With ActiveSheet
    .Protect
    .EnableSelection = xlUnlockedCells
End With
End If
If cell_ver = True Then
With ActiveSheet
    .Protect
    .EnableSelection = xlLockedCells
End With
End If
Me.Hide
End Sub
Reste le cas du filtre automatique
 
Vote positif 0 Vote négatif
Re : Macro protection

Il y a de ça, mais ton code ne marche pas si je ne veux pas pouvoir sélectionner ni les céllules vérouillées ni les cellules dévérouillées
 
Dernière édition:
Vote positif 0 Vote négatif
Re : Macro protection

Si je veux que personne ne puisse sélectionner une seule des cellules dans la feuilles. Alors je décoche les options "sélectionner les cellules vérouillées" et "sélectionner les cellules dévérouillées". Seulement dans le code que tu as fait ne prend pas en compte cette possibilité.

j'ai réussi à intégrer le cas du filtre avec ce code, est ce que ça te semble bon ?

Code: 
Private Sub Ok_Click()
If cell_déver = True Then
With ActiveSheet
    .Protect ("code")
    .EnableSelection = xlUnlockedCells
End With
End If
If cell_ver = True Then
With ActiveSheet
    .Protect ("code")
    .EnableSelection = xlLockedCells
End With
End If
If Me.use_filter = True Then
With ActiveSheet
    .Protect ("code"), AllowFiltering:=True
End With
End If
Me.Hide
End Sub
 
Vote positif 0 Vote négatif
Re : Macro protection

En fait il faudrait pouvoir rajouter les lignes de codes suivantes, mais j'ai fait une erreur parce que ça ne fontionne pas :

Code: 
If Me.cell_ver = False And Me.cell_déver = False Then
With ActiveSheet
    .Protect ("code")
    .DisableSelection = xlUnlockedCells
    .DisableSelection = xlLockedCells
End With
End If
 
Vote positif 0 Vote négatif
Re : Macro protection

Re



Une cellule est soit vérouillée
(Format/Cellule/Protection/ Vérouillée [cochée]

Une cellule est soit dévérouillée
(Format/Cellule/Protection/Vérouillée [décochée]

Je ne comprends donc pas ta logique
 
Vote positif 0 Vote négatif
Re : Macro protection

Oui en effet tu n'as pas tort.

C'est juste que dans certaines feuilles, j'ai des cellules dévérouillées et des cellules vérouillées et je ne veux pourtant pas qu'on puisse sélectionner les cellules dévérouillées.

C'était pour copier la boite de dialogue d'Excel (dans laquelle on peut décocher les 2 options sélectionner les cellules vérouillées et dévérouillées).

Avec ce Userform, si les gens ne veulent pas pouvoir sélectionner une seule des cellules, ils sont obligés de cocher la case "sélectionner les cellules dévérouillées" dans le Userform, c'est pas très intuitif.

J'essaie de me faire comprendre mais c'est pas spécialement facile à expliquer
 
Vote positif 0 Vote négatif
Re : Macro protection

oui je les ai regardées, elles ne m'apportent pas beaucoup d'informations.
Tant pis pour ce dont je viens de te parler, j'expliquerai aux gens utilisant la macro les différentes manoeuvres à effectuer.

En fait si j'abandonne cette histoire, c'est parce que je viens de me rendre compte d'un problème de taille :
une fois que j'ai protégé ma feuille avec les options voulues, je ferme mon fichier puis je l'enregistre. Et quand je l'ouvre à nouveau, les options de protection que j'avais choisi ne sont plus les mêmes. Par exemple si j'avais choisi de ne pas pouvoir sélectionner les cellules vérouillées, quand je re-ouvre mon fichier, je peux sélectionner les cellules vérouillées (même si elles sont toujours protégée).
Ceci est très embêtant, essaie tu vas voir.

Comment résoudre ce problème ?
 
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

S
  • Résolu(e)
Microsoft 365 Listes déroulantes multi-sélections et feuilles protégées.
Réponses
6
Affichages
731
selkis
S
XLS : Evènements souris 'click' sur la grille & astuces
Réponses
3
Affichages
675
Lu76Fer
Office XLS : Fonction simplifiant l'utilisation de la fenêtre FileDialog
Réponses
6
Affichages
891
Lu76Fer
  • Question Question
Microsoft 365 Création d'un fichier entier par rapport à des entrées via UserForm
Réponses
1
Affichages
786
job75
C
  • Résolu(e)
Microsoft 365 Mise en forme d'une ligne d'après listes déroulantes + clic sur un bouton
Réponses
2
Affichages
788
casualexcel
C
K
  • Résolu(e)
XL 2019 Imprimer une feuille via userform
2
Réponses
21
Affichages
2 K
Kevin38
K
D
  • Question Question
XL 2016 Insertion commentaire dans cellule d'une feuille protégée ?
Réponses
5
Affichages
803
sylvanu
A
  • Question Question
Microsoft 365 Essai d'une création de macro
Réponses
8
Affichages
950
Dranreb
N
  • Question Question
XL 2021 BESOIN D'aide macro
Réponses
7
Affichages
1 K
Gégé-45550
N
  • Question Question
XL 2013 Raccourci clavier appelant macro introuvable
Réponses
0
Affichages
767
Naaave
N
M
  • Résolu(e)
Microsoft 365 Image stockée dans une feuille à l'initialisation du userform
2
Réponses
20
Affichages
2 K
meyscal
M
F
  • Question Question
XL 2016 Blocage macro sur instruction SET
Réponses
6
Affichages
792
job75
O
  • Résolu(e)
XL 2016 Macro qui ne fonctionne pas quand la feuille est protégée
Réponses
3
Affichages
1 K
sylvanu
S
  • Question Question
XL 2016 projet macros excel indicateurs et cloud
Réponses
2
Affichages
972
stevy44
S
V
  • Résolu(e)
Microsoft 365 Afficher filtres appliqués par macro dans la cellule B3 directement et non par F5 puis Réinitialiser
Réponses
12
Affichages
2 K
VirginieG
V
A
  • Résolu(e)
Microsoft 365 Aide pour une Userform compliqué
Réponses
2
Affichages
775
Arch974
A
M
  • Résolu(e)
Microsoft 365 Recherche sur une feuille protégée
Réponses
2
Affichages
2 K
mvcs
M
D
  • Question Question
XL 2010 Création et mise à jour d'un TCD tableau croisé dynamique avec macro VBA
Réponses
1
Affichages
3 K
chris
S
  • Question Question
XL 2010 VBA - macro avec 1 boucle qui alterne 1 action à conditions et 1 action sans conditions
2 3 4
Réponses
58
Affichages
9 K
Scorp0211
S
P
  • Question Question
XL 2013 Sélectionner une cellule par macro
Réponses
8
Affichages
2 K
Petitom42
P
Menu
Connexion
S'inscrire
Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…