Empecher l'utilisation de la touche "Delete"

Le
Claudy
Bonsoir à tous
Tout est est dans l'objet:
dans un classeur, par vba, comment empecher l'utilisation de la touche
"Delete" ?
Merci et bonne soirée,
Claudy
Vidéos High-Tech et Jeu Vidéo
Téléchargements
Vos réponses Page 1 / 2
Gagnez chaque mois un abonnement Premium avec GNT : Inscrivez-vous !
Trier par : date / pertinence
Tatanka
Le #5282811
Bonsoir Claudy,

Dans ThisWorkbook :
Private Sub Workbook_Open()
Application.OnKey "{DELETE}", "Rien"
End Sub

Private Sub Workbook_BeforeClose(Cancel As Boolean)
Application.OnKey "{DELETE}"
End Sub

Et dans un module standard :
Sub Rien()

End Sub

Tant que ton classeur sera ouvert, la touche Delete
ne fonctionnera dans aucun classeur.
Elle reviendra à son état normal quand tu fermeras ton classeur.

Serge


"Claudy"
Bonsoir à tous...
Tout est est dans l'objet:
dans un classeur, par vba, comment empecher l'utilisation de la touche "Delete" ?
Merci et bonne soirée,
Claudy



ChrisV
Le #5282781
Bonjour Claudy,

Sub supSupppr()
Application.OnKey "{DEL}", ""
End Sub

Sub retSuppr()
Application.OnKey "{DEL}"
End Sub


ChrisV


"Claudy" message de news: 47a8b48d$0$2982$
Bonsoir à tous...
Tout est est dans l'objet:
dans un classeur, par vba, comment empecher l'utilisation de la touche
"Delete" ?
Merci et bonne soirée,
Claudy



MichDenis
Le #5282761
Si tu utilises ceci pour annhiler la touche "Delete"
tu n'auras pas besoin de procédure "Rien()"

Quand même..... une procédure pour rien faire ...
Faut bien être à la retraite .... ;-)))))

Private Sub Workbook_Open()
Application.OnKey "{DELETE}", ""
End Sub




"Tatanka"
Bonsoir Claudy,

Dans ThisWorkbook :
Private Sub Workbook_Open()
Application.OnKey "{DELETE}", "Rien"
End Sub

Private Sub Workbook_BeforeClose(Cancel As Boolean)
Application.OnKey "{DELETE}"
End Sub

Et dans un module standard :
Sub Rien()

End Sub

Tant que ton classeur sera ouvert, la touche Delete
ne fonctionnera dans aucun classeur.
Elle reviendra à son état normal quand tu fermeras ton classeur.

Serge


"Claudy" 47a8b48d$0$2982$
Bonsoir à tous...
Tout est est dans l'objet:
dans un classeur, par vba, comment empecher l'utilisation de la touche "Delete" ?
Merci et bonne soirée,
Claudy



Tatanka
Le #5282741
ReBonsoir,

Bien sûr, ChrisV a proposé quelque chose de plus simple ;-)
Une variante pour l'utilisation de ses macros :
Faire un clic droit sur l'icône juste à gauche du menu Fichier,
cliquer sur « Visualiser le code » et coller ces deux macros
sur la feuille qui apparaîtra.

Private Sub Workbook_Open()
Application.OnKey "{DEL}", ""
End Sub

Private Sub Workbook_BeforeClose(Cancel As Boolean)
Application.OnKey "{DEL}"
End Sub

Tant que ton classeur sera ouvert, la touche Delete
ne fonctionnera dans aucun classeur.
Elle reviendra à son état normal quand tu fermeras ton classeur.

Serge
Claudy
Le #5282731
Super..rapide et ça marche!
Merci.
"Tatanka"
Bonsoir Claudy,

Dans ThisWorkbook :
Private Sub Workbook_Open()
Application.OnKey "{DELETE}", "Rien"
End Sub

Private Sub Workbook_BeforeClose(Cancel As Boolean)
Application.OnKey "{DELETE}"
End Sub

Et dans un module standard :
Sub Rien()

End Sub

Tant que ton classeur sera ouvert, la touche Delete
ne fonctionnera dans aucun classeur.
Elle reviendra à son état normal quand tu fermeras ton classeur.

Serge


"Claudy" message de news: 47a8b48d$0$2982$
Bonsoir à tous...
Tout est est dans l'objet:
dans un classeur, par vba, comment empecher l'utilisation de la touche
"Delete" ?
Merci et bonne soirée,
Claudy







Tatanka
Le #5282721
;-)))

Serge

"MichDenis"
Si tu utilises ceci pour annhiler la touche "Delete"
tu n'auras pas besoin de procédure "Rien()"

Quand même..... une procédure pour rien faire ...
Faut bien être à la retraite .... ;-)))))

Private Sub Workbook_Open()
Application.OnKey "{DELETE}", ""
End Sub




"Tatanka"
Bonsoir Claudy,

Dans ThisWorkbook :
Private Sub Workbook_Open()
Application.OnKey "{DELETE}", "Rien"
End Sub

Private Sub Workbook_BeforeClose(Cancel As Boolean)
Application.OnKey "{DELETE}"
End Sub

Et dans un module standard :
Sub Rien()

End Sub

Tant que ton classeur sera ouvert, la touche Delete
ne fonctionnera dans aucun classeur.
Elle reviendra à son état normal quand tu fermeras ton classeur.

Serge


"Claudy" 47a8b48d$0$2982$
Bonsoir à tous...
Tout est est dans l'objet:
dans un classeur, par vba, comment empecher l'utilisation de la touche "Delete" ?
Merci et bonne soirée,
Claudy








ChrisV
Le #5282691
Salut Serge,

Il faudrait néanmoins savoir si Claudy a déjà inhiber les commandes:
a) Supprimer du clic-droit ainsi que
b) Edition/Supprimer de la barre des menus
c) ainsi que le déplacement d'une cellule vide par exemple sur une autre
contenant une entrée...
d) le copier/coller
etc, etc...

;-)

ChrisV


"Tatanka" ei%23T4$
ReBonsoir,

Bien sûr, ChrisV a proposé quelque chose de plus simple ;-)
Une variante pour l'utilisation de ses macros :
Faire un clic droit sur l'icône juste à gauche du menu Fichier,
cliquer sur « Visualiser le code » et coller ces deux macros
sur la feuille qui apparaîtra.

Private Sub Workbook_Open()
Application.OnKey "{DEL}", ""
End Sub

Private Sub Workbook_BeforeClose(Cancel As Boolean)
Application.OnKey "{DEL}"
End Sub

Tant que ton classeur sera ouvert, la touche Delete
ne fonctionnera dans aucun classeur.
Elle reviendra à son état normal quand tu fermeras ton classeur.

Serge



Tatanka
Le #5282681
Alors aussi bien passer par une protection de feuille ou de classeur, non ?

Serge

"ChrisV"
Salut Serge,

Il faudrait néanmoins savoir si Claudy a déjà inhiber les commandes:
a) Supprimer du clic-droit ainsi que
b) Edition/Supprimer de la barre des menus
c) ainsi que le déplacement d'une cellule vide par exemple sur une autre contenant une entrée...
d) le copier/coller
etc, etc...

;-)

ChrisV


"Tatanka"
ReBonsoir,

Bien sûr, ChrisV a proposé quelque chose de plus simple ;-)
Une variante pour l'utilisation de ses macros :
Faire un clic droit sur l'icône juste à gauche du menu Fichier,
cliquer sur « Visualiser le code » et coller ces deux macros
sur la feuille qui apparaîtra.

Private Sub Workbook_Open()
Application.OnKey "{DEL}", ""
End Sub

Private Sub Workbook_BeforeClose(Cancel As Boolean)
Application.OnKey "{DEL}"
End Sub

Tant que ton classeur sera ouvert, la touche Delete
ne fonctionnera dans aucun classeur.
Elle reviendra à son état normal quand tu fermeras ton classeur.

Serge







ChrisV
Le #5282651
Souvent, tout dépend de ce que souhaites exactement le demandeur...


ChrisV


"Tatanka"
Alors aussi bien passer par une protection de feuille ou de classeur, non
?

Serge

"ChrisV"
Salut Serge,

Il faudrait néanmoins savoir si Claudy a déjà inhiber les commandes:
a) Supprimer du clic-droit ainsi que
b) Edition/Supprimer de la barre des menus
c) ainsi que le déplacement d'une cellule vide par exemple sur une autre
contenant une entrée...
d) le copier/coller
etc, etc...

;-)

ChrisV


"Tatanka" news: ei%23T4$
ReBonsoir,

Bien sûr, ChrisV a proposé quelque chose de plus simple ;-)
Une variante pour l'utilisation de ses macros :
Faire un clic droit sur l'icône juste à gauche du menu Fichier,
cliquer sur « Visualiser le code » et coller ces deux macros
sur la feuille qui apparaîtra.

Private Sub Workbook_Open()
Application.OnKey "{DEL}", ""
End Sub

Private Sub Workbook_BeforeClose(Cancel As Boolean)
Application.OnKey "{DEL}"
End Sub

Tant que ton classeur sera ouvert, la touche Delete
ne fonctionnera dans aucun classeur.
Elle reviendra à son état normal quand tu fermeras ton classeur.

Serge











Claudy
Le #5282641
Bonsoir..
la personne à qui est destiné ce classeur n'utilise que le "Delete" et les
autres..
Sans connaitre les raccourcis claviers, les menus, les clics droits, les
copier coller...bref le minimum!
Merci pour votre aide à tous,
j'ai ce qui me fallait...
Bonne soirée

"Tatanka"
Alors aussi bien passer par une protection de feuille ou de classeur, non
?

Serge

"ChrisV"
Salut Serge,

Il faudrait néanmoins savoir si Claudy a déjà inhiber les commandes:
a) Supprimer du clic-droit ainsi que
b) Edition/Supprimer de la barre des menus
c) ainsi que le déplacement d'une cellule vide par exemple sur une autre
contenant une entrée...
d) le copier/coller
etc, etc...

;-)

ChrisV


"Tatanka" news: ei%23T4$
ReBonsoir,

Bien sûr, ChrisV a proposé quelque chose de plus simple ;-)
Une variante pour l'utilisation de ses macros :
Faire un clic droit sur l'icône juste à gauche du menu Fichier,
cliquer sur « Visualiser le code » et coller ces deux macros
sur la feuille qui apparaîtra.

Private Sub Workbook_Open()
Application.OnKey "{DEL}", ""
End Sub

Private Sub Workbook_BeforeClose(Cancel As Boolean)
Application.OnKey "{DEL}"
End Sub

Tant que ton classeur sera ouvert, la touche Delete
ne fonctionnera dans aucun classeur.
Elle reviendra à son état normal quand tu fermeras ton classeur.

Serge











Publicité
Poster une réponse
Anonyme