Discussion :

[flet le kid]

Bonjour,

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
        xlApp.OnKey "^C", ""
        xlApp.OnKey "^c", ""
        xlApp.OnKey "^V", ""
        xlApp.OnKey "^v", ""
        xlApp.OnKey "^A", ""
        xlApp.OnKey "^a", ""

Est-il possible d'utiliser ce code sous Excel ou bien un de semblable pour annuler ces raccourcis claviers?

Oui, somme, je veux annuler l'action de ces combinaisons, ces raccourcis.

Merci

[flet le kid]

Bonjour,

je pose autrement ma question alors. Est-il possible d'empêcher de copier le contenu d'une feuille? J'ai déjà désactiver le menu contextuel du clic droit et j'ai verrouiller les cellules. Mais en faisant un Ctrl+C, on peut copier. Et c'est bien cela que je veux empêcher.
J'ai bien essayer la propriété CutCopyMode = false mais ça ne fait rien.

Merci d'avance

[Fvandermeulen]

Salut,
Je pense que ton idée de CutCopyMode est pas mal, le tout est de voir comment tu l'as utilisé...
D'après moi si tu place le code dans le module de feuille et le module de classeur en "désactivation" ça doit le faire.
A+

[flet le kid]

Mais je ne sais pas comment l'utiliser. Quand je saisis

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

APPLICATION.CUTCOPYMODE=

la machine ne m'affiche que xlCopy et xlCut comme possibilité.
Quand, je mets False, il accepte mais n'empêche pas le copier coller par les raccourcis Ctrl + C - Ctrl + V.
Alors que je veux empêcher celà.
Je lis actuellement le tutoriel de SilkyRoad mais je ne vois aucun évènement du classeur Excel qui me permettra d'atteindre mon objectif sur ma version d'Excel 2003.

[Fvandermeulen]

Re,
Il faut le false comme tu l'avais indiqué, peut-être manquait-il le 'Application', voici le code qui fonctionne chez moi, je viens de tester

Code à mettre sur la feuille (click droit sur l'onglet, ensuite voir code)

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
Private Sub Worksheet_Deactivate()
 
Application.CutCopyMode = False
 
End Sub

A+

[ouskel'n'or]

Tu peux détourner le pb en verrouillant les cellules à ne pas copier et en protégeant la feuille :
Je suppose que tu souhaites empêcher la copie des cellules B1:B2 mais de laisser libres toutes les autres cellules de la feuille de calculs

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
Sub Test()
    'Tu commences par déverrouiller toutes les cellules
    Cells.Locked = False
    'Tu verrouilles les cellules B1:B2
    Range("B1:B2").Locked = True
    'Tu protèges les seules cellules verrouillées contre la sélection
    With ActiveSheet
        .EnableSelection = xlUnlockedCells
        .Protect DrawingObjects:=True, Contents:=True, Scenarios:=True
    End With
 
End Sub

Bonne journée

[CRACOS38]

Salut,
Si tu veux empecher quelqu'un qui s'y connait un tant soit peu à déplomber ton prog tu n'est pas sorti de l'auberge. Si c'est simplement pour éviter des erreurs de manip ou pour une protection pour des bazus le plus simple est la protection avec des mots de passe. Mais n'oublies pas ce que je t'ai dit il y en a des kiwis.

[ouskel'n'or]

Si c'est simplement pour éviter des erreurs de manip

J'opte pour cette hypothèse, les OCR permettant de récupérer les données obtenues par simple copie d'écran... et Google en offre un gratuit...

[flet le kid]

Bonjour,

j'ai finalement utilisé des fichiers Excel ou j'y ai mis le code que je voulais. Et en ouvrant le fichier et en y ajoutant les données, je verrouille les cellules qui contiennet les données (petite combinaison de tous les codes que vous avez donnée).

Merci encore