Discussion :

[jayroom]

Bonjour à tous !
Etant depuis peu un jeune padawan sur excel et encore plus en language vba, je me permets de faire appel à vos connaissances pour la première fois.
Je vais donc essayer de vous expliquer ce que je cherche à faire de la façon la plus précise possible :

J'ai un classeur excel composé de plusieurs feuille.
Les cellules de la feuille 1 sont toutes "verrouillées" et "masquées" (format, cellule, protection) à l'exception de certaines cellules qui ne sont pas "verrouillées".
La feuille 1 est protégé par un mot de passe ("test") et je n'autorise pas les utilisateurs à "sélectionner les cellules verrouillées" (car il faut qu'il puisse naviguer de cellule déverrouillée en cellule déverrouillée avec le curseur mais également avec la touche "tab").
Pour info, mon classeur excel est également protégé par mot de passe ("test").

Certaines cellules déverrouillées de ma feuille 1 sont sur fond vert clair : les utilisateurs doivent pouvoir les modifier sans mot de passe.
D'autres sont sur fond jaune pâle : ces cellules sont pré-remplies (par du texte ou des formules) et doivent pouvoir être modifiables uniquement par les utilisateurs connaissant le mot de passe.
Ce mot de passe doit être différent de celui utilisé pour protéger la feuille ou le classeur : en exemple, prenons "cdir".
Après que l'utilisateur est entré la nouvelle donnée dans la cellule, Une InputBox devra apparaître et demander :"Cette cellule a été protégé par l'administrateur. Si vous souhaitez modifier cette cellule, veuillez saisir le mot de passe :".
Si le mot de passe saisi est correct, la nouvelle donnée saisie par l'utilisateur est validée.
Si le mot de passe saisi est faux, la donnée (ou formule) pré-remplie n'est pas modifiée.

J'espère avoir été assez clair dans la description de ce que je cherche à faire ?...

Etant réellement tout "neuf" dans les macros, je serais intéressé si l'un d'entre vous arrive à m'expliquer "pas-à-pas" la création de cette macro.

Merci d'avance à tous ceux qui prendront le temps de regarder ce post et à votre disposition si vous avez besoin de plus de renseignements !

Ps : je mets en pièce jointe un fichier excel de test (si cela peut servir)...

[casefayere]

Bonsoir,

essayes avec ces codes
dans ta feuille (VBA), copies ces codes

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Value <> contenu Then
    For x = 1 To 3
        mess = InputBox("Saisir  le mot de passe")
        If mess <> mdpcel Then
            MsgBox "le mot de passe est incorrect, recommencez " & Chr(10) & "      " & x & " essai sur 3"
        Else
            Exit For
        End If
    Next x
    If mess <> mdpcel Then Target = contenu
End If
 
 
End Sub
 
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
contenu = Target
End Sub

dans un module, en tete :

Code :

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

1
2
Option Explicit
Public Const mdpcel As String = "cdir"

Bonne soirée

[fring]

Bonjour,

@ Dominique, je pense qu'il manque deux choses :

1. vérification qu'il s'agit d'une cellule à fond jaune avant de demander le mdp
2. chargement de la variable "contenu" lors de l'évènement SelectionChange

[casefayere]

Bonjour le forum, jayroom, Fred

vérification qu'il s'agit d'une cellule à fond jaune avant de demander le mdp

Pour moi le fond jaune n'était qu'un exemple pour stipuler les cellules donc je n'en ai pas tenu compte

chargement de la variable "contenu" lors de l'évènement SelectionChange

j'ai omis de recopier le code complet

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
Dim contenu 'en début de module
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Value <> contenu Then
    For x = 1 To 3
        mess = InputBox("Saisir  le mot de passe")
        If mess <> mdpcel Then
            MsgBox "le mot de passe est incorrect, recommencez " & Chr(10) & "      " & x & " essai sur 3"
        Else
            Exit For
        End If
    Next x
    If mess <> mdpcel Then Target = contenu
End If
End Sub

Code :

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

1
2
3
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
contenu = Target
End Sub

dans un module, en tete :

Code :

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

1
2
Option Explicit
Public Const mdpcel As String = "cdir"

Bonne journée

[fring]

Pour moi le fond jaune n'était qu'un exemple pour stipuler les cellules donc je n'en ai pas tenu compte

Et pourtant...

D'autres sont sur fond jaune pâle : ces cellules sont pré-remplies (par du texte ou des formules) et doivent pouvoir être modifiables uniquement par les utilisateurs connaissant le mot de passe.

Seules les cellules sur fond jaune nécessitent un mdp pour être modifiées

[jayroom]

Bonsoir casefayere, fring, le forum,
merci pour vos réponses et le fait que vous vous soyez penché sur mon problème !
casefayere, ton code fonctionne à merveille si je place le premier dans la feuille et le second en module !!! Un grand merci !
Par contre, du coup, les cellules qui étaient en fond vert pâle ne sont maintenant plus modifiables sans MdP : il semble que toutes les cellules qui ne sont pas verrouillées nécessitent maintenant un MdP pour être modifiées.
Il est effectivement vrai que la couleur (repère pour les utilisateurs) est importante...
Avez-vous une solution pour que seules les cellules en jaune pâle nécessitent un MdP pour être modifiées ? (Ps : j'ai également des cellules en jaune foncé pouvant être modifié sans MdP - je me permet de le préciser si une validation doit être fait vs la couleur de la cellule...).
Idéalement également, il faudrait que ce MdP soit demandé même si l'utilisateur cherche à modifier deux cellules en jaune pâle (à chaque modification de cellule en jaune pâle en fait): le but étant de sensibiliser l'utilisateur sur le fait qu'il cherche à modifier des cellules qui représentent des données "rarement" à modifier....

J'espère ne pas demander la lune en terme de faisabilité ?...

En tout cas, encore un grand merci à vous deux pour vos réponses et "aiguillages" !

[casefayere]

Bonsoir,
Je constate que la remarque de fred parait judicieuse, sur mon PC, ton jaune donne la couleur N° 36, à toi d'adapter

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
Option Explicit
 
Dim contenu, x As Integer, mess 'en début de module
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Value <> contenu And Target.Interior.ColorIndex = 36 Then
    For x = 1 To 3
        mess = InputBox("Saisir  le mot de passe")
        If mess <> mdpcel Then
            MsgBox "le mot de passe est incorrect, recommencez " & Chr(10) & "      " & x & " essai sur 3"
        Else
            Exit For
        End If
    Next x
    If mess <> mdpcel Then Target = contenu
End If
End Sub

Code :

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

1
2
3
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
contenu = Target
End Sub

[jayroom]

Bonjour casefayere, fring, le forum,

Casefayere, ton code marche à merveille et effectyivement, seules les cellules en jaune pâle nécessitent maintenant un MdP pour être modifiées !!!

J'ai juste encore un point que je souhaiterais pouvoir modifier (oui, oui, je saisi : je suis chiant) :
lorsque je remets à blanc une cellules verte pâle, un code d'erreur s'affiche à savoir :

Erreur d'execution "13":
Incompatibilité de type

Ce même code d'erreur apparaît à chaque changement dans une cellule contenant une mise en forme conditionnelle)...

Y a-t-il une solution pour palier à ceci ?
Ou bien peut-on peut-être faire un contrôle non pas sur la couleur mais sur la référence des cellules (type AO16, BN44...) ?

Un grand merci d'avance à vous tous !

[casefayere]

Bonjour le forum, jayroom,
Dans ton fichier, il n'y avait pas de MFC, alors comment vérifier....

Ou bien peut-on peut-être faire un contrôle non pas sur la couleur mais sur la référence des cellules (type AO16, BN44...) ?

Oui tu peux si tu es sur que les cellules seront toujours celles-ci, en vérifiant l'adreese, par exemple :

Code :

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

If Target.Address = "$AO$16" or ....... Then

Bonne journée

[jayroom]

Re-bonjour Casefayere,

effectivement (et désolé), je n'avais pas fait référence aux cellules avec une MFC ! Les cellules en question seront effectivement toujours les mêmes.
Merci pour ta modification !
Par contre, je pense que je dois recopier cette modif au mauvais endroit car le même message d'erreur apparait.
Voilà l'endroit où j'ai ajouté ta modif :

Code :

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

1
2
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Value <> contenu And Target.Address = "$AO$16" Or "$O$36" Then

La ligne en rouge est celle qui ressort en erreur...
Ai-je introduit ta modif au mauvais endroit ?

Ps : peux-tu me dire comment tu fais pouur copier le code macro dans un fond bleu (plus lisible que ce que je viens de faire) sur le forum ?

Encore un grand merci à toi !

[casefayere]

Code :

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

1
2
3
4
5
If Target.Value <> contenu Then
   If Target.Address = "$AO$16" Or Target.Address = "$O$36" Then
   '........................
   End If
End If

[jayroom]

Super !!!!
Un grand merci Caserfayere !
Le code fonctionne à merveille !
Merci donc pour ton aide et ton accompagnement !
Je passe donc de post en "résolu".
Bonne journée à tous et sûrement à bientôt