Discussion :

[manjul1]

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

[Pierre Fauconnier]

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?

[manjul1]

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.

[ChristianBosch]

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

[Pierre Fauconnier]

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 :

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

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 :

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

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.

[ChristianBosch]

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 :

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

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

[manjul1]

Parfait

merci bien

[Pierre Fauconnier]

@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