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

XL 2021 Macro protege cellule avec Intersect

Créer une discussion

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
M

Michel_ja

XLDnaute Occasionnel
Bonjour à tous,
j'ai trouvé le code suivant qui permet, via une macro, d'interdire un utilisateur de sélectionner une cellule (une range, donc colonne par exemple). Ce code est écrit dans une worksheet et fonctionne parfaitement.
J'ai une autre macro qui me copie cette feuille sur un nouveau fichier, puis me renomme la feuille et j'enregistre ce nouveau fichier sous un autre nom. Malheureusement la macro suivante ne fonctionne plus et me renvoit un message d'erreur.
J'ai essayé de mettre ce code sur Workbook et nom la feuille mais ça ne fonctionne pas. Est-ce que vous auriez une idée ?
Merci d'avance.
Michel

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Not Intersect(Range("AM7:AM500,BA7:BG500"), Target) Is Nothing Then
Target.Offset(0, 1).Select
End If
End Sub
 
Trier par date Trier par votes
La macro event (c'est à dire le code que j'ai écrit plus haut) qui est sur la feuille active du fichier de départ ne fonctionne pas lorsque je duplique cette même feuille dans un nouveau classeur.
Peut-être faudrait-il avoir un event différent que celui de selection change ?
Est ce qu'on peut avoir une macro, qui protêge donc des cellules, qui se déclenche autrement ? Au bout de quelques secondes ou autres ?
Je me suis demandé aussi si on pouvait intégrer dans une macro standard, un code qui viendrait créer cette macro event dans l'active sheet?
Autre piste, c'est aussi peut-être parce que dans une macro je selectionne des lignes entières que je veux supprimer et qui se trouvent donc à l'intersection de celles-ci qui sont protégées.
Je reçois le message d'erreur "Erreur d'exécution '1004': La méthode 'SaveAs' de l'objet'_... a échoué".
Merci
 
Dernière édition:
Vote positif 0 Vote négatif
Pensez-vous qu'il serait possible d'avoir une macro qui ouvre un fichier et qui vient créer le code suivant dans une feuille (le nom de la feuille est variable) ou un workbooks ?
Je pense que le code ne pouvait pas fonctionner (premier post) car je supprimais des lignes et colonnes protégées justement par ce code. Alors je pense qu'il faudrait deux macros.

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Not Intersect(Range("AM7:AM500,BA7:BG500"), Target) Is Nothing Then
Target.Offset(0, 1).Select
End If
End Sub
 
Vote positif 0 Vote négatif
Bonjour,

VB: 
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    If Not Intersect(Range("AM7:AM500,BA7:BG500"), Target) Is Nothing Then Target.Offset(0, 1).Select
End Sub
Ton code doit fonctionner pour toute feuille dans laquelle il se trouve.


Michel_ja à dit:
Malheureusement la macro suivante ne fonctionne plus et me renvoit un message d'erreur.
Cliquez pour agrandir...
👍


Pourquoi n'utilises-tu pas simplement la protection de la feuille pour empêcher de sélectionner ou modifier les cellules que tu veux ?
 
Dernière édition:
Vote positif 0 Vote négatif
Merci pour ton retour TooFatBoy. Mon code ne fonctionne pas car le nouveau fichier est créer par une macro et dans cette macro je supprime des cellules qui sont protégées par le code macro "Worksheet_SelectionChange.

Je n'ai pas utilisé de code de protection de la feuilles et verrouille les cellules car par la suite j'ai une autre macro qui vient ouvrir ce nouveau fichier et copier les nouvelles informations mises à jours par des collègues. S'il y a une protection, ça bloque cette macro.


 
Vote positif 0 Vote négatif
Michel_ja à dit:
Mon code ne fonctionne pas car le nouveau fichier est créer par une macro et dans cette macro je supprime des cellules qui sont protégées par le code macro "Worksheet_SelectionChange.
Cliquez pour agrandir...
Perso, je ne comprends pas le rapport.


Là non plus, je ne comprends pas en quoi la protection de la feuille est gênante : tu peux soit déprotéger avant de coller les données et reprotéger ensuite, soit protéger la feuille uniquement pour l'utilisateur.
As-tu essayé quelque chose dans ce genre ?
 
Vote positif 0 Vote négatif
Je n'ai pas essayé de code qui vérouillerait les cellules en fonction de l'utilsateur. Je ne connais pas. Tu veux dire que lorsque c'est une personne X qui ouvre le fichier les cellules sont vérouillées et si c'est moi, elles ne le sont pas ? Merci
 
Vote positif 0 Vote négatif
Michel_ja à dit:
Tu veux dire que lorsque c'est une personne X qui ouvre le fichier les cellules sont vérouillées et si c'est moi, elles ne le sont pas ?
Cliquez pour agrandir...
Non, pas tout à fait : je veux dire que si tu protèges la feuille uniquement pour l'utilisateur et pas pour les macros VBA (en utilisant UserInterfaceOnly), ta macro pourra tout de même écrire dans ta feuille protégée.

Je ne dis pas que c'est LA solution qu'il te faut, mais c'est une possibilité. 😉
 
Dernière édition:
Vote positif 0 Vote négatif
Bonjour TooFatBoy. Petit retour sur mon problème. J'ai fini par opté pour une macro événementielle qui se déclenche ou pas en fonction de l'utilisateur. Sans ça, elle s'arrêtait lorsque je souhaitais supprimer des colonnes ou lignes où se trouvaient les cellules protégées. Avec le code suivant, ça fonctionne, les cellules ne sont pas protégées lorsque c'est moi qui fait tourner la macro. Merci beaucoup pour nos échanges, j'ai apris encore des nouvelles choses. J'ai choisi le MsgBox pour informer les collègues de l'interdiction.

Private Sub Worksheet_SelectionChange(ByVal Target As Range)

Dim Utilisateur As String
Utilisateur = Environ("username")
Application.DisplayAlerts = False

If Utilisateur = "XXXX" Then Exit Sub

With ActiveSheet

If Not Intersect(Range("A2:A300,O2:U300"), Target) Is Nothing Then
MsgBox "Do not select Column A, and Columns O to U"
Target.Offset(2, 8).Select
End If
End With
Application.DisplayAlerts = True

End Sub
 
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
  • Question Question
Microsoft 365 Une macro dans un fichier qui crée une macro event dans un autre fichier
Réponses
13
Affichages
805
TooFatBoy
C
  • Question Question
Microsoft 365 worksheet_change
2
Réponses
29
Affichages
250
CortoXls
C
J
  • Question Question
Microsoft 365 Probléme VBA
Réponses
8
Affichages
233
jalaba
J
S
  • Résolu(e)
XL 2019 VBA automatiser hauteur de lignes
Réponses
7
Affichages
192
sofmat
S
D
  • Résolu(e)
Microsoft 365 VBA Déplacement de la cellule active dans une ligne sélectionnée
Réponses
11
Affichages
118
danielco
D
S
  • Résolu(e)
Microsoft 365 VBA Concaténer contenu de plusieurs cellules dans une seule avec séparateurs / évolutifs
Réponses
3
Affichages
114
spike29
S
M
  • Question Question
XL 2021 macro VBA
Réponses
4
Affichages
148
ManuEven
M
M
  • Question Question
Microsoft 365 macro en fct de l'état d'une autre (boucle)
Réponses
3
Affichages
108
sylvanu
A
  • Question Question
Microsoft 365 Macro pour recherche de cellules entre 2 fichiers Excel
Réponses
6
Affichages
78
wDog66
A
  • Question Question
insertion d'une ligne automatique dans un tableau excel.
Réponses
1
Affichages
335
sylvanu
S
  • Résolu(e)
XL 2016 Coller nom classeur sur plage cellules
Réponses
9
Affichages
98
safranien
S
M
  • Question Question
XL 2013 MACRO VBA pour imprimer tous les bulletins d'un établissement scolaire
Réponses
4
Affichages
305
MBEPID
M
A
  • Résolu(e)
Microsoft 365 Enregistrer copie d'un fichier avec pour nom le contenu d'une cellule excel (macro)
2
Réponses
15
Affichages
897
firecarl
F
H
  • Résolu(e)
XL 2016 Copier cellule dans un autre onglets
2
Réponses
16
Affichages
417
Phil69970
  • Résolu(e)
Microsoft 365 VBA - BeforeDoubleClick, 1ère cellule vide à partir de cellule active pour insertion de ligne
Réponses
4
Affichages
191
AlCapone
C
  • Question Question
XL 2016 VBA Détecter la suppression de la dernière ligne d'un Tableau
Réponses
9
Affichages
511
crocrocro
C
F
  • Question Question
Microsoft 365 Problème avec VBA ( Résolu)
Réponses
2
Affichages
340
firecarl
F
S
  • Résolu(e)
Microsoft 365 Ecrasement d'une ligne si déjà existante
Réponses
2
Affichages
198
sebastien176
S
T
  • Résolu(e)
XL 2021 Incompatibilité de type avec un userform
2
Réponses
19
Affichages
821
Bernard38
B
  • Question Question
XL 2019 Dans une macro de démarrage de fichier masquer le code par des Astérix ou point
Réponses
3
Affichages
92
sylvanu
Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…