XL 2019 Interdire l'utilisation de la touche supprimer

[Steph44]

Bonjour à tous,

Je souhaiterai savoir s'il est possible d'empêcher l'utilisation de la touche supprimer sur deux cellules par exemple C79 et C80. J'aimerais également (si c'est possible) qu'un message apparaisse pour l'informer que cette touche supprimer n'est pas utilisable. Enfin, il faudrait malgré tout pouvoir la rendre accessible via un mot de passe.
L'utilisateur doit pouvoir saisir uniquement des valeurs numériques.

Je pense que c'est possible avec un code VBA mais je ne suis qu'un utilisateur exceptionnel du VBA et je ne sais pas en écrire. Je vois bien ou je veux en venir mais je ne sais pas le rédiger !!

Merci d'avance pour votre aide,

Cordialement,

Steph

 

[Staple1600]

@Dudu2
Apparemment dès qu'on utilise une formule dans Données/Validation en VBA, cela ne fonctionne plus

Le principe d'une cellule dévolue à la saisie c'est bien de pouvoir effacer sa saisie.
Pour quand on bosse le jour d'aprés, mettre à jour la valeur dans la cellule, non ?

 

[Dudu2]

Enfin, tout ça nous a permis de passer un peu de temps à discuter de tout et de rien et du sexe des formules.
Bonsoir tout le monde, @patricktoulon, @Eric C, @Staple1600 et les autres...

 

[Steph44]

Bonjour à tous
D'abord merci pour toute vos réponses. Désolé @Phil69970 mais je n'étais pas devant mon poste hier soir...

Effectivement je suis d'accord avec vous ce n'est pas une solution 100% secure mais cela permet de dissuader l'utilisation de cette touche suppr sur les cellules concernées.
Je ne pouvais pas utiliser la protection de la feuille de calcul purement et simplement sinon je généralisais la non utilisation de la touche suppr à toute la feuille de calcul alors que je voulais que ce blocage soit utile que sur 2 cellules.
En résumé la solution de @Dudu2 me convient et fonctionne !! merci beaucoup l'ami !

Ce code est utilisé sur un tableur qui permet à nos commerciaux de construire le prix d'un projet étudié. Il s'agit de ne pas laisser le jeu des marges ouvert sans limite. Lorsqu'un dossier nécessite une modification plus importante que la moyenne j'interviens et je dois pouvoir déverrouiller ce blocage.

Encore un grand merci de votre intérêt pour la question.
Steph

 

[Eric C]

Re le fil,

Je voudrais revenir sur le post de notre ami Patrick (que je salue). Le code proposé avec " Application.Undo" ne permet pas d'utiliser la touche "Supp" mais n'autorise pas, non plus, (j'espère ne pas me tromper...) d'effacer via la touche "Back". Le seul risque (entre autreS) dans le présent code est de sélectionner la cellule et de supprimer le contenu avec la barre "Espace".
Bonne journées à toutes & à tous
@+ Eric c

 

[Dudu2]

Bonjour,

Dans ce cas, @Steph44 doit remplacer:

If Len(CStr(Cellule.Value)) = 0 Then

par:

If Len(Trim(CStr(Cellule.Value))) = 0 Then

 

[Eric C]

@Dudu2 - Voili voilou, la boucle est bouclée. P.s : Pour info, il manque une parenthèse à la fin.

If Len(Trim(CStr(Cellule.Value))) = 0 Then

Bonne journée
Eric

 

[Eric C]

J'ai retrouvé quelques chose d'intéressant avec PassWord mais ce matin, je n'ai pas le temps. Je verrais cette après-midi si cela est fonctionnel.

@+ Eric c

 

[patricktoulon]

Re le fil,

Je voudrais revenir sur le post de notre ami Patrick (que je salue). Le code proposé avec " Application.Undo" ne permet pas d'utiliser la touche "Supp" mais n'autorise pas, non plus, (j'espère ne pas me tromper...) d'effacer via la touche "Back". Le seul risque (entre autreS) dans le présent code est de sélectionner la cellule et de supprimer le contenu avec la barre "Espace".
Bonne journées à toutes & à tous
@+ Eric c

Bonjour @Eric C
il faudrait chercher une discussion similaire sur DVP (elle date un peu) et elle fait au moins 5 pages
tout le monde s’était employé a mettre a mal toute les méthodes possibles
a ce jour aucunes n'a résisté

 

[patricktoulon]

il me semble a mon souvenir hein qu'il y avait une méthode intéressante avec un Name
un send y était fait appel dans l'events calculate

mais ca reste du vba donc......

 

[Eric C]

Bonjour le fil
@patrick - Je vais tenter... dès que je le peux ... de déterrer cette discussion.
Il est vrai que tout peut être détourné .. On le voit à grande échelle via les hackers qui prennent possession du centre vital d'un hôpital et des données des patients, qui tentent de forcer nos données bancaires ou des transactions sur le net (Amazon - Ebay - ...) alors à notre petit niveau avec Excel !!!! ....
Quand bien même, il y a des utilisateurs lambdas qui sont bien contents qu'on leur facilitent les saisies en leur procurant des fichiers qui œuvrent dans ce sens (!!Pas ici mais dans cette cellule !! Redirection automatique vers LA cellule que tu dois remplir pour pouvoir suivre le cheminement -- Non non pas touche ...) et qui ne cherchent pas à trouver le code qui les redirige car ne connaissant que les cases à remplir et NON l'envers du décor (si je puis m'exprimer ainsi).
J'avais récupéré un code de notre ami @+Thierry (que je salue au passage...) que j'ai revisité (il y a encore à faire mais je m'amuse en qualité de bidouilleur (ne sachant programmer proprement comme les grands de ce forum). Je le délivre donc pour amélioration si nécessaire. On ne peut ni supprimer la sélection par quelque moyen que ce soit (saut accès au code ), n'entrer que des valeurs numériques et demander un PassWord pour la modification (demande initiale de notre ami Steph).
Bonne fin d'après-midi à toutes & à tous

 

[patricktoulon]

@Eric C
regarde
simplement en déplaçant la cellule d'a coté
et il me demande meme passe le mot de passe pourtant la cellule final sélectionné c'est bien la D3

 

[Eric C]

Re le fil
@patrick - Oui mais toi, tu n'es pas l'utilisateur lambda, tu es le filou du forum
Je plaisante.
@+ Eric c

 

[patricktoulon]

re
oui c'est certain mais ce genre d'erreur de déplacement de cellule ça m'est déjà arrivé involontairement
toujour est il que ca montre encore qu'aucune astuce ne sera sure à 100%

donc a minima d'energie dépensée une simple protection sur cellule verouillée (ou dévérouillé) reste la protection la plus simple et la plus difficile a faire sauter pour un utilisateur "Lambda" comme tu dis

il est important de proposer les choses les plus simples et qui demandent le moins d’énergie possible

 

[Eric C]

@patrick - Tu sais bien que je suis simple (je n'ai pas inventé le fil à couper le beurre ). Une nouvelle version. Qu'en penses tu ? Je fais mumuse... Lol

 

[Dudu2]

Oh bon, Ok. S'il faut mettre que des valeurs numériques et un mot de passe pour modifier...
Le mot de passe est "Messi" (voir le code en Workbook).

Edit: Voir ci-dessous