Logo GNT
Actualités Tests & Guides Bons Plans
Twitter iPhone pliant OnePlus 11 PS5 Disney+ Orange Livebox Windows 11
Entraide Applications Microsoft Office Excel Empecher l'utilisation de la touche "Delete"

Empecher l'utilisation de la touche "Delete"

11 réponses
Avatar
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
Signaler un problème avec ce contenu

10 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
1 2
Avatar
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" amarre des spams> a écrit dans le 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



Avatar
ChrisV
Bonjour Claudy,

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

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


ChrisV


"Claudy" amarre des spams> a écrit dans le
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



Avatar
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" a écrit dans le message de news:

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" amarre des spams> a écrit dans le 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



Avatar
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
Avatar
Claudy
Super..rapide et ça marche!
Merci.
"Tatanka" a écrit dans le message de news:

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" amarre des spams> a écrit dans le
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







Avatar
Tatanka
;-)))

Serge

"MichDenis" a écrit dans le message de news:
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" a écrit dans le message de news:

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" amarre des spams> a écrit dans le 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








Avatar
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" a écrit dans le message de 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



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

Serge

"ChrisV" a écrit dans le message de news:
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" a écrit dans le message de 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







Avatar
ChrisV
Souvent, tout dépend de ce que souhaites exactement le demandeur...


ChrisV


"Tatanka" a écrit dans le message de news:

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

Serge

"ChrisV" a écrit dans le message de news:

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" a écrit dans le message de
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











Avatar
Claudy
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" a écrit dans le message de news:

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

Serge

"ChrisV" a écrit dans le message de news:

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" a écrit dans le message de
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











1 2