Limitation de la saisie d'une valeur

Bonjour

Afin de limiter l'utilisation de la valeur "CAV" dans le tableau, je souhaiterais que la saisie (et le copier/coller) de cette valeur ne soit autorisée dans le tableau uniquement par la saisie d'un mot de passe ou par le biais du déverrouillage de la protection de la feuille par exemple.
J'ai interdit son utilisation par la validation des données mais par exemple est-il possible d'enlever ponctuellement cette validation afin de permettre la saisie de cette valeur?

Merci par avance

Salut.

Ca veut dire quoi "ponctuellement"?

Autrement dit, quelle est la règle qui devrait permettre ou interdire la saisie de "CAV"? Quelle est l'utilité de la démarche?

Le fichier est utilisé par une dizaine de personne mais je souhaiterais que seulement 2 personnes aient la possibilité de saisir la valeur CAV.
Je m"entends par ponctuellement c'est qu'à chaque fois que cette valeur doit être saisie, il doit y avoir un mot de passe à renseigner.
Un peu comme si les 2 personnes sont les administrateurs avec plus de droits que les 8 autres utilisateurs.

Salut, il te suffit de verrouiller les cellules avec un mdp, pas besoin de vba

Pour le faire, sélectionne toute les cellules de ta feuille, clic droit --> format cellules--> protection --> déverrouille tout

En suite sélectionne les cellules que tu veux verrouiller --> clic droit --> format cellules --> protection --> verrouille

En suite tu va dans l'onglet révision --> proteger la feuille --> protège avec un mot de passe

Tu communique le mot de passe aux personnes a qui tu veux donner l’accès.

A+

CB

Salut Christian,

De ce que j'ai compris, ce n'est pas aussi simple, puisque la validation n'a que faire de la protection. Donc même si les personnes autorisées déprotègent la feuille, elles seront limitées par la validation mise en place et devront d'abord désactiver celles-ci.


On pourrait par exemple placer un bouton sur la feuille pour appeler la macro Unprotect

Code:

---

1 2 3 4 5 6 7 8 9 10

Sub UnprotectValidation() Dim Pwd As String   Pwd = InputBox("Mot de passe svp (sensible à la casse!)") If Pwd = "Pwd" Then Feuil1.Range("b2:k9").Validation.ShowError = False Else MsgBox "Mot de passe erroné" End If End Sub

---

On verrouillerait alors la validation par exemple lorsque l'on quitte la feuille:

Code:

---

1 2 3 4 5 6 7

Private Sub Worksheet_Deactivate() ProtectValidation End Sub   Sub ProtectValidation() Range("b2:k9").Validation.ShowError = True End Sub

---

Dans ce cas de figure, on verrouille le projet par mot de passe pour ne pas que l'on puisse y accéder librement.

Oui Pierre désolé j'avais mal compris.

Sinon tu rajoute a ta liste le "CAV", a l’événement change de ta feuille tu teste la valeur de la sélection, si c'est "CAV" tu demande un mdp, si il est faux tu vide la sélection.

Code:

---

1 2 3 4 5 6 7 8 9 10

Private Sub Worksheet_Change(ByVal Target As Range) If UCase(Target.Value) = UCase("CAV") Then psw = InputBox("Veuillez entrer le mot de passe pour entrer la valeur <CAV> dans le tableau", "Valeur bloquée") If psw = "psw" Then Else MsgBox "Mot de passe erroné", vbCritical, "Erreur mot de passe" Target.Value = "" End If End If End Sub

---

Parfait

merci bien

@Christian,

Pas de soucis, les cas ne sont pas toujours simples ni à expliquer ni à comprendre.


A contrario de ma solution, la tienne permet de garder la liste de validation active et évite le triangle vert d'alerte si cette alerte d'erreur est active. Donc j'achète :mouarf: