Problème visa électronique
Le
Jean-Paul V
Bonjour à tous
J’ai un fichier Note de Frais protégé par un mot de passe.
J'ai dans mon fichier une liste du personnel, pour chaque personne on
connaît le supérieur hiérarchique, comment résoudre le problème du visa
électronique de la note de frais. Comment avoir une cellule protégée, en fait
3 cellules fusionnées ( où doit figurer le visa ( par un mot de passe lié au
nom du supérieur hiérarchique ou plus exactement le COUPLE ''EMETTEUR" Note
de Frais ,''SUPERIEUR HIERARCHIQUE'').
Qui pourrait me mettre sur des pistes de solutions à ce problème?
Bonne journée à tous
J’ai un fichier Note de Frais protégé par un mot de passe.
J'ai dans mon fichier une liste du personnel, pour chaque personne on
connaît le supérieur hiérarchique, comment résoudre le problème du visa
électronique de la note de frais. Comment avoir une cellule protégée, en fait
3 cellules fusionnées ( où doit figurer le visa ( par un mot de passe lié au
nom du supérieur hiérarchique ou plus exactement le COUPLE ''EMETTEUR" Note
de Frais ,''SUPERIEUR HIERARCHIQUE'').
Qui pourrait me mettre sur des pistes de solutions à ce problème?
Bonne journée à tous
Poser une question
je ne connais pas le principe du visa électronique de note de frais
mais je peux vous donner le conseil que m'a soumis Patrick Penet :
vous pouvez effectivement vous passer de verrouiller ces cellules, vous
interceptez la saisie ds ces cellules par Worksheet_Change,
faites une demande de mot de passe et en fonction du résultat vous
affichez ou non (avace un message d'erreur)
Il m'a soumis aussi l'idée d'utitliser une userform
Moi je ne connais que le fait de verrouiller l'ensemble d'une page en
laissant libre certaines cellules; après le nombre de cellules libres
peut être important; mais ce n'est peut-êtr ap la meilleure solution
bonne journée
tenez moi au courant
Céline
Sans vouloir contrarier excel est un tableur, pas une solution de sécurité
Suivant l'idée de déverrouillage et du Worksheet_change qui pourrait être
bonne,
Application.enableeventsúlse
et on modifie comme on veut
il n'y a pas de solution vraiment fiable d'un point de vue de sécurité.
Au mieux (ou au pire, selon le sens qu'on lui donne) laisser la feuille
protègée
(le cas échéant avec userinterfaceonly à true, ce sera à peine moins sûr)
et gèrer la possibilité de saisie des mdp via un userform et protèger
l'accès au code de celui-ci.
Mais faudrait pas qu'il y ait plein de mdp à gèrer et cela peut être très
aisément contourné, donc amha peine perdue.
Cordialement.
lSteph
"Jean-Paul V" de news:
Malgré les conseils peu encourageants de lSteph sur ce PB, j’ai essayé la
solution suivante :
- Sur la feuil 2 nommée Note de Frais j’ai crée le range ‘’ Approbation’’
concernant les cellules fusionnée I47 :L48
- A l’ouverture du fichier la feuille est protégée par le mot de passe jpv
- Dans le code de la feuil 2 j’ai mis :
-
'Solution Clic sur les cellules I47:I49 fusionnées nommées "Approbation"
Private Sub Workbook_SheetSelectionChange(ByVal Sh As Object, ByVal Target
As Range)
If Target.Address = "Approbation" Then
UserForm1.Show
End If
End Sub
Pourquoi mon Userform1 n’apparait pas quand je clic sur Approbation
(cellules fusionnées) ?
@+ j'espère si vous avez la solution
Mon niveau malheureusement est insuffisant pour comprendre toutes vos
explications.
Je n'ai donc pas tenté vos pistes.
Malgré vos conseils peu encourageants sur ce PB, j’ai essayé la solution
suivante :
- Sur la feuil 2 nommée Note de Frais j’ai crée le range ‘’ Approbation’’
concernant les cellules fusionnée I47 :L48
- A l’ouverture du fichier la feuille est protégée par le mot de passe jpv
- Dans le code de la feuil 2 j’ai mis :
-
'Solution Clic sur les cellules I47:I49 fusionnées nommées "Approbation"
Private Sub Workbook_SheetSelectionChange(ByVal Sh As Object, ByVal Target
As Range)
If Target.Address = "Approbation" Then
UserForm1.Show
End If
End Sub
Pourquoi mon Userform1 n’apparait pas quand je clic sur Approbation
(cellules fusionnées) ?
Le but suivant est de gérer un mot de passe approbation grâce au Userform.
@+ j'espère si vous pouvez m'expliquer ce qui cloche.
si vous faites un test simple dans la procédure qui ferait
Msgbox target.address vous verrez qu'il n'affiche jamais "Approbation"
Donc le test n'est jamais validé
En revanche, je vous conseille : (chez moi ça fonctionne) :
If Not Intersect(Target,
ThisWorkbook.Names("Approbation").RefersToRange) Is Nothing Then
UserForm1.Show
End If
à la place !
bonne journée
Céline