Logo GNT
Actualités Tests & Guides Bons Plans
GTA 6 iPhone 17 Copilot Switch 2 Temu ChatGPT Tesla
OVH Cloud OVH Cloud
Entraide Applications Microsoft Office Excel Invalider recopie vers le bas et copier coller.

Invalider recopie vers le bas et copier coller.

6 réponses
Avatar
Patrick BASTARD
Bonsoir à tous.

Y a t'il moyen d'invalider la recopie vers le bas ?
Et le copier-coller ?

Sur une feuille, les utilisateurs doivent entrer des valeurs (OK, NOK) dans
des cellules d'une même colonne, valeurs que j'ai limitées avec une
validation par liste.
Pour gagner du temps, au détriment parfois de l'attention qu'ils portent à
la saisie des infos, ils utilisent la recopie vers le bas, soit avec la
poignée de recopie, soit avec Ctrl+B. (au détriment des mises en forme :
encadrement, couleur, polices...)

Je cherche donc une solution qui interdirait cette recopie vers le bas, et
même, pourquoi pas, les 3 méthodes du copier-coller (édition -
copier -coller, Ctrl+C - Ctrl+V, clic droit).

Je précise qu'il peut arriver que d'autres classeurs soient ouverts, et que
je souhaite n'interdire ces fonctionnalités que sur le classeur concerné.

Comme d'habitude, toutes vos idées seront les bienvenues.

Et je vous en remercie par avance.

--
Bien cordialement,
P. Bastard
Signaler un problème avec ce contenu

6 réponses

Supprimer
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire

Veuillez sélectionner un problème

Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
Avatar
Michel.Girard
Bonsoir pour interdire le copier/coller
Michel

Sub InterdireCopierCouper()
On Error Resume Next
With Application
'disables shortcut keys
.OnKey "^c", ""
.OnKey "^v", ""
.OnKey "^x", ""
'Disables Copy
.CommandBars("Edit").FindControl(ID:).Enabled = False
.CommandBars("Edit").FindControl(ID:„8).Enabled = False
.CommandBars("Cell").FindControl(ID:).Enabled = False
.CommandBars("Column").FindControl(ID:).Enabled = False
.CommandBars("Row").FindControl(ID:).Enabled = False
.CommandBars("Button").FindControl(ID:).Enabled = False
.CommandBars("Formula Bar").FindControl(ID:).Enabled = False
.CommandBars("Worksheet Menu Bar").FindControl(ID:).Enabled = False
.CommandBars("Standard").FindControl(ID:).Enabled = False
.CommandBars("Button").FindControl(ID:„8).Enabled = False
.CommandBars("Formula Bar").FindControl(ID:„8).Enabled = False
.CommandBars("Worksheet Menu Bar").FindControl(ID:„8).Enabled = False
.CommandBars("Standard").FindControl(ID:„8).Enabled = False
.CommandBars("Ply").FindControl(ID:„8).Enabled = False
'Disables Cut
.CommandBars("Edit").FindControl(ID:!).Enabled = False
.CommandBars("Cell").FindControl(ID:!).Enabled = False
.CommandBars("Column").FindControl(ID:!).Enabled = False
.CommandBars("Row").FindControl(ID:!).Enabled = False
.CommandBars("Button").FindControl(ID:!).Enabled = False
.CommandBars("Formula Bar").FindControl(ID:!).Enabled = False
.CommandBars("Worksheet Menu Bar").FindControl(ID:!).Enabled = False
.CommandBars("Standard").FindControl(ID:!).Enabled = False

End With
End Sub

Sub RetablirCopierCouper()
On Error Resume Next
With Application
.OnKey "^c"
.OnKey "^v"
.OnKey "^x"

'Enables Copy
.CommandBars("Edit").FindControl(ID:).Enabled = True
.CommandBars("Edit").FindControl(ID:„8).Enabled = True
.CommandBars("Cell").FindControl(ID:).Enabled = True
.CommandBars("Column").FindControl(ID:).Enabled = True
.CommandBars("Row").FindControl(ID:).Enabled = True
.CommandBars("Button").FindControl(ID:).Enabled = True
.CommandBars("Formula Bar").FindControl(ID:).Enabled = True
.CommandBars("Worksheet Menu Bar").FindControl(ID:).Enabled = True
.CommandBars("Standard").FindControl(ID:).Enabled = True
.CommandBars("Button").FindControl(ID:„8).Enabled = True
.CommandBars("Formula Bar").FindControl(ID:„8).Enabled = True
.CommandBars("Worksheet Menu Bar").FindControl(ID:„8).Enabled = True
.CommandBars("Standard").FindControl(ID:„8).Enabled = True
.CommandBars("Ply").FindControl(ID:„8).Enabled = True
' Enables Cut
.CommandBars("Edit").FindControl(ID:!).Enabled = True
.CommandBars("Cell").FindControl(ID:!).Enabled = True
.CommandBars("Column").FindControl(ID:!).Enabled = True
.CommandBars("Row").FindControl(ID:!).Enabled = True
.CommandBars("Button").FindControl(ID:!).Enabled = True
.CommandBars("Formula Bar").FindControl(ID:!).Enabled = True
.CommandBars("Worksheet Menu Bar").FindControl(ID:!).Enabled = True
.CommandBars("Standard").FindControl(ID:!).Enabled = True

End With
End Sub
"Patrick BASTARD" a écrit dans le
message de news: %
Bonsoir à tous.

Y a t'il moyen d'invalider la recopie vers le bas ?
Et le copier-coller ?

Sur une feuille, les utilisateurs doivent entrer des valeurs (OK, NOK)
dans des cellules d'une même colonne, valeurs que j'ai limitées avec une
validation par liste.
Pour gagner du temps, au détriment parfois de l'attention qu'ils portent à
la saisie des infos, ils utilisent la recopie vers le bas, soit avec la
poignée de recopie, soit avec Ctrl+B. (au détriment des mises en forme :
encadrement, couleur, polices...)

Je cherche donc une solution qui interdirait cette recopie vers le bas, et
même, pourquoi pas, les 3 méthodes du copier-coller (édition -
copier -coller, Ctrl+C - Ctrl+V, clic droit).

Je précise qu'il peut arriver que d'autres classeurs soient ouverts, et
que je souhaite n'interdire ces fonctionnalités que sur le classeur
concerné.

Comme d'habitude, toutes vos idées seront les bienvenues.

Et je vous en remercie par avance.

--
Bien cordialement,
P. Bastard



Avatar
Martin
Salut Patrick

Si tu protège ta feuille ça foncionne...?

Martin

"Patrick BASTARD" a écrit dans le
message de news: #
Bonsoir à tous.

Y a t'il moyen d'invalider la recopie vers le bas ?
Et le copier-coller ?

Sur une feuille, les utilisateurs doivent entrer des valeurs (OK, NOK)
dans

des cellules d'une même colonne, valeurs que j'ai limitées avec une
validation par liste.
Pour gagner du temps, au détriment parfois de l'attention qu'ils portent à
la saisie des infos, ils utilisent la recopie vers le bas, soit avec la
poignée de recopie, soit avec Ctrl+B. (au détriment des mises en forme :
encadrement, couleur, polices...)

Je cherche donc une solution qui interdirait cette recopie vers le bas, et
même, pourquoi pas, les 3 méthodes du copier-coller (édition -
copier -coller, Ctrl+C - Ctrl+V, clic droit).

Je précise qu'il peut arriver que d'autres classeurs soient ouverts, et
que

je souhaite n'interdire ces fonctionnalités que sur le classeur concerné.

Comme d'habitude, toutes vos idées seront les bienvenues.

Et je vous en remercie par avance.

--
Bien cordialement,
P. Bastard




Avatar
Patrick BASTARD
Bonjour, *Michel.Girard*
J'ai lu ton post
avec le plus grand intéret :

Et je te remercie, c'est un début de solution
Les copier-coller sont inhibés à partir du ment édition, et du clic droit.
Cependant, ils restent possibles à partir de la poignée de recopie.
Et ce code agit sur tous les fichiers Excel ouverts.

J'attends avec impatience d'autres pistes.


--
Bien cordialement,
P. Bastard


Bonsoir pour interdire le copier/coller
Michel

Sub InterdireCopierCouper()
On Error Resume Next
With Application
'disables shortcut keys
.OnKey "^c", ""
.OnKey "^v", ""
.OnKey "^x", ""
'Disables Copy
.CommandBars("Edit").FindControl(ID:).Enabled = False
.CommandBars("Edit").FindControl(ID:„8).Enabled = False
.CommandBars("Cell").FindControl(ID:).Enabled = False
.CommandBars("Column").FindControl(ID:).Enabled = False
.CommandBars("Row").FindControl(ID:).Enabled = False
.CommandBars("Button").FindControl(ID:).Enabled = False
.CommandBars("Formula Bar").FindControl(ID:).Enabled = False
.CommandBars("Worksheet Menu Bar").FindControl(ID:).Enabled > False .CommandBars("Standard").FindControl(ID:).Enabled = False
.CommandBars("Button").FindControl(ID:„8).Enabled = False
.CommandBars("Formula Bar").FindControl(ID:„8).Enabled = False
.CommandBars("Worksheet Menu Bar").FindControl(ID:„8).Enabled > False .CommandBars("Standard").FindControl(ID:„8).Enabled = False
.CommandBars("Ply").FindControl(ID:„8).Enabled = False
'Disables Cut
.CommandBars("Edit").FindControl(ID:!).Enabled = False
.CommandBars("Cell").FindControl(ID:!).Enabled = False
.CommandBars("Column").FindControl(ID:!).Enabled = False
.CommandBars("Row").FindControl(ID:!).Enabled = False
.CommandBars("Button").FindControl(ID:!).Enabled = False
.CommandBars("Formula Bar").FindControl(ID:!).Enabled = False
.CommandBars("Worksheet Menu Bar").FindControl(ID:!).Enabled > False .CommandBars("Standard").FindControl(ID:!).Enabled = False

End With
End Sub

Sub RetablirCopierCouper()
On Error Resume Next
With Application
.OnKey "^c"
.OnKey "^v"
.OnKey "^x"

'Enables Copy
.CommandBars("Edit").FindControl(ID:).Enabled = True
.CommandBars("Edit").FindControl(ID:„8).Enabled = True
.CommandBars("Cell").FindControl(ID:).Enabled = True
.CommandBars("Column").FindControl(ID:).Enabled = True
.CommandBars("Row").FindControl(ID:).Enabled = True
.CommandBars("Button").FindControl(ID:).Enabled = True
.CommandBars("Formula Bar").FindControl(ID:).Enabled = True
.CommandBars("Worksheet Menu Bar").FindControl(ID:).Enabled > True .CommandBars("Standard").FindControl(ID:).Enabled = True
.CommandBars("Button").FindControl(ID:„8).Enabled = True
.CommandBars("Formula Bar").FindControl(ID:„8).Enabled = True
.CommandBars("Worksheet Menu Bar").FindControl(ID:„8).Enabled > True .CommandBars("Standard").FindControl(ID:„8).Enabled = True
.CommandBars("Ply").FindControl(ID:„8).Enabled = True
' Enables Cut
.CommandBars("Edit").FindControl(ID:!).Enabled = True
.CommandBars("Cell").FindControl(ID:!).Enabled = True
.CommandBars("Column").FindControl(ID:!).Enabled = True
.CommandBars("Row").FindControl(ID:!).Enabled = True
.CommandBars("Button").FindControl(ID:!).Enabled = True
.CommandBars("Formula Bar").FindControl(ID:!).Enabled = True
.CommandBars("Worksheet Menu Bar").FindControl(ID:!).Enabled > True .CommandBars("Standard").FindControl(ID:!).Enabled = True

End With
End Sub
"Patrick BASTARD" a écrit dans le
message de news: %
Bonsoir à tous.

Y a t'il moyen d'invalider la recopie vers le bas ?
Et le copier-coller ?

Sur une feuille, les utilisateurs doivent entrer des valeurs (OK,
NOK) dans des cellules d'une même colonne, valeurs que j'ai limitées
avec une validation par liste.
Pour gagner du temps, au détriment parfois de l'attention qu'ils
portent à la saisie des infos, ils utilisent la recopie vers le bas,
soit avec la poignée de recopie, soit avec Ctrl+B. (au détriment des
mises en forme : encadrement, couleur, polices...)

Je cherche donc une solution qui interdirait cette recopie vers le
bas, et même, pourquoi pas, les 3 méthodes du copier-coller (édition
- copier -coller, Ctrl+C - Ctrl+V, clic droit).

Je précise qu'il peut arriver que d'autres classeurs soient ouverts,
et que je souhaite n'interdire ces fonctionnalités que sur le
classeur concerné.

Comme d'habitude, toutes vos idées seront les bienvenues.

Et je vous en remercie par avance.

--
Bien cordialement,
P. Bastard




Avatar
Patrick BASTARD
Bonjour, *Martin*
Merci de ton intéret :

Si tu protège ta feuille ça foncionne...?


La protection de la feuille n'empêche pas la modification des zones non
protégées (et heureusement ;-) ), y compris par le copier-coller ou la
recopie avec Ctrl-B ou la poignée de recopie.
Mais nul doute que les idées ne vont pas tarder à pleuvoir.


--
Bien cordialement,
P. Bastard

Avatar
Patrick BASTARD
Bonjour, le groupe.

J'ai retrouvé sur Google un fil du 11/3/2003 où *michdenis* préconisait :

Application.CellDragAndDrop = False

Ce qui permet d'inhiber la recopie avec la poignée.

Je voulais vous le faire partager.
;-)


--
Bien cordialement,
P. Bastard

Bonsoir à tous.

Y a t'il moyen d'invalider la recopie vers le bas ?
Et le copier-coller ?

Sur une feuille, les utilisateurs doivent entrer des valeurs (OK,
NOK) dans des cellules d'une même colonne, valeurs que j'ai limitées
avec une validation par liste.
Pour gagner du temps, au détriment parfois de l'attention qu'ils
portent à la saisie des infos, ils utilisent la recopie vers le bas,
soit avec la poignée de recopie, soit avec Ctrl+B. (au détriment des
mises en forme : encadrement, couleur, polices...)

Je cherche donc une solution qui interdirait cette recopie vers le
bas, et même, pourquoi pas, les 3 méthodes du copier-coller (édition -
copier -coller, Ctrl+C - Ctrl+V, clic droit).

Je précise qu'il peut arriver que d'autres classeurs soient ouverts,
et que je souhaite n'interdire ces fonctionnalités que sur le
classeur concerné.
Comme d'habitude, toutes vos idées seront les bienvenues.

Et je vous en remercie par avance.


Avatar
Michel.Girard
C'est très sympa de ta part
Merci
Michel

"Patrick BASTARD" a écrit dans le
message de news:
Bonjour, le groupe.

J'ai retrouvé sur Google un fil du 11/3/2003 où *michdenis* préconisait :

Application.CellDragAndDrop = False

Ce qui permet d'inhiber la recopie avec la poignée.

Je voulais vous le faire partager.
;-)


--
Bien cordialement,
P. Bastard

Bonsoir à tous.

Y a t'il moyen d'invalider la recopie vers le bas ?
Et le copier-coller ?

Sur une feuille, les utilisateurs doivent entrer des valeurs (OK,
NOK) dans des cellules d'une même colonne, valeurs que j'ai limitées
avec une validation par liste.
Pour gagner du temps, au détriment parfois de l'attention qu'ils
portent à la saisie des infos, ils utilisent la recopie vers le bas,
soit avec la poignée de recopie, soit avec Ctrl+B. (au détriment des
mises en forme : encadrement, couleur, polices...)

Je cherche donc une solution qui interdirait cette recopie vers le
bas, et même, pourquoi pas, les 3 méthodes du copier-coller (édition -
copier -coller, Ctrl+C - Ctrl+V, clic droit).

Je précise qu'il peut arriver que d'autres classeurs soient ouverts,
et que je souhaite n'interdire ces fonctionnalités que sur le
classeur concerné.
Comme d'habitude, toutes vos idées seront les bienvenues.

Et je vous en remercie par avance.