XL 2016 désactiver la possibilté de copier

linebich

XLDnaute Junior
Bonjour les gens , s'il vous plait comment est ce que je peux désactiver la possibilité d'utiliser copier et couper soit par tabulation soit par menu
et ceci via une macros sur le classeur
 

Staple1600

XLDnaute Barbatruc
Bonjour le fil, linebich, GALOUGALOU

=>linebich
Poser des questions, c'est bien
Se manifester par un petit retour dans la précédente, c'est mieux ;)
(En tout cas, c'est apprécié par ceux qui déposent conseils, macros et formules)

Pour infos: Il suffit d'ouvrir ton classeur en désactivant les macros, pour pouvoir copier/coller.
 

Eric C

XLDnaute Barbatruc
Bonsoir le forum
Bonsoir linebich (tiens compte de la remarque de notre ami Staple, merci), GALOUGALOU, Staple

@ GALOUGALOU. L'utilisateur pourra toujours user des fonctions du "ruban Excel" qui semblerait ne pas être désactivées.
Bonne soirée
 

GALOUGALOU

XLDnaute Accro
ahhhh oui j'ai oublié le ruban bien vue eric c
une manière de supprimer l'option
supprimer le presse papier du ruban

Bonjour Pour supprimer le Presse papier du ruban: Se rendre dans les Options d’Excel (Fichier>Options) Dans Personnaliser le ruban, sélectionner Presse-Papiers sous l’onglet Accueil, et cliquer sur Supprimer [image] Résultat: [image] Plus de presse papiers, copier/coller devient impossible.
cordialement
galougalou
 

Staple1600

XLDnaute Barbatruc
Bonsoir à toi aussi GALOUGALOU... :rolleyes:

=> Pour infos
Ouvrez le classeur sans activer les macros
(pour éviter le côté liberticide ;))
Et pour le Ruban , faire l'inverse
Au lieu de cliquer sur Supprimer , cliquer sur Ajouter

NB: L'utilisateur final est censé rester libre d'utiliser l'Excel installé sur son PC, non ?
Car la personnalisation du Ruban impactera tous les classeurs.
 

GALOUGALOU

XLDnaute Accro
bonjour le forum
une autre solution préférable au différent post qui précéde

à placer dans le module de la feuille et adapter les colonnes

Dim NoCopCol As Boolean

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Not Intersect(Target, Union(Me.Columns("A:B"), Me.Columns("C:D"))) _
Is Nothing Then
Application.CutCopyMode = False
NoCopCol = True
Else
If NoCopCol Then Application.CutCopyMode = False
NoCopCol = False
End If
End Sub

cordialement galougalou
 

Staple1600

XLDnaute Barbatruc
Bonjour le fil, GALOUGALOU (tu ne salues pas quand on te salue?)

=>Pour infos
Cette solution qu'elle soit préférable ou pas sera tout aussi inefficace puisqu'Excel permet d'ouvrir un classeur sans activer les macros
(Je ne parle même pas de la possibilité de l'ouvrir dans Libre Office)
 

Discussions similaires

Réponses
3
Affichages
502
Compte Supprimé 979
C

Statistiques des forums

Discussions
312 103
Messages
2 085 322
Membres
102 862
dernier inscrit
Emma35400