Logo GNT
Actualités Tests & Guides Bons Plans
GTA 6 iPhone 17 Copilot Switch 2 Temu ChatGPT Tesla
OVH Cloud OVH Cloud
Entraide Applications Microsoft Office Excel Problème visa électronique

Problème visa électronique

13 réponses
Avatar
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
Signaler un problème avec ce contenu

3 réponses

Supprimer
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire

Veuillez sélectionner un problème

Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
1 2
Avatar
Jean-Paul V
Bonjour Isteph

ça marche merci
Concernant vos mises en garde si le fichier est protégé par un mot de passe
ainsi que les macros et que la zône approbation est vérouillée comment
peut-on mettre un visa lorsque l'on ouvre le fichier sans macros?Même sans
les macros la zone est bien verrouillée ?Comment fait on pour mettre un visa
sans mot de passe?

@+ et merci encore


Bonjour,
Si tu utilises un événement de niveau classeur, il doit être
placé dans thisworkbook, mais attention celui que tu as choisi, s'appliquera
à toutes feuilles du classeur.
Plus simplement dans le code de lafeuille Private sub
Worksheet_selectionchange suffirait à faire ce que tu veux.
exemple:
http://cjoint.com/?kgrejkXeNN
......pour la finalité
je me permets d'insister sur les réserves émises à commencer par celle
qu'il suffit de désactiver macros ou events pour que ce genre de chose ne
fonctionne plus.

Cordialement.

lSteph

"Jean-Paul V" a écrit dans le message
de news:
Bonjour Céline

J'ai essayé sur un petit fichier,chez moi cela ne marche pas.
Je n'ai pas tout compris.Pourriez-vous essayer de corriger ce petit
fichier
mis dans ci-joint:
http://cjoint.com/?kfufdpZluR

Et que veut dire Intersect

J'ai une casserole sur le feu et y-a pas de doute ça crame ! ! !

J'espère plus tard vous lire.
Bonne Soirée



bonjour JPV

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



Bonjour Steph

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.


Bonjour " JPV ",

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" a écrit dans le
message
de news:
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






















Avatar
lSteph
Bonjour Jean-PaulV,

Concernant vos mises en garde
Il faut en être bien averti et je vois que le message est passé.


Pour être plus pondéré, ce n'est pas injouable, s'adressant à des personnes
n'ayant pas ou que peu de curiosité envers l'informatique à part de s'en
servir.
Cela conviendrait donc déjà dans une relative proportion.

Pour préciser ces réserves:
1-Outre que l'on peut bricoler cela soi-même en vba ou autre .
(Pour des raisons évidentes, on en dira pas plus sur ce forum)
Il existe et voir gratuitement sur la toile de quoi s'affranchir d'un mdp en
moins de 5 minutes.
2-Effectivement, par macro, puisqu'on les laisse agir,
la protection mise dans l'exemple avec userinterfaceonly évite juste les
actions de l'utilisateur.
Cette option userinterfaceonly évite pour celui qui code d'avoir à
déprotèger reprotèger à chaque action d'une macro.
3-Tel que c'est mis dans l'exemple c'est fait par événement Workbook_open ,
donc à l'ouverture du classeur.
Ainsi, si une feuille avait été déprotégée la dernière fois pour
maintenance, elle est reprotégée.
Sauf si l'on désactive les macros .
4-il en va de même pour l'apparition du userform que tu as prévue par
Selection_Change.
Si les événements sont désactivés cela ne fonctionne plus non plus.

Cordialement.

lSteph

(Dans la version beta 2007 , les macros sont selon ce que j'ai pu déplorer
en la testant par défaut désactivées.)

"Jean-Paul V" a écrit dans le message
de news:
Bonjour Isteph

ça marche merci
Concernant vos mises en garde si le fichier est protégé par un mot de
passe
ainsi que les macros et que la zône approbation est vérouillée comment
peut-on mettre un visa lorsque l'on ouvre le fichier sans macros?Même sans
les macros la zone est bien verrouillée ?Comment fait on pour mettre un
visa
sans mot de passe?

@+ et merci encore


Bonjour,
Si tu utilises un événement de niveau classeur, il doit être
placé dans thisworkbook, mais attention celui que tu as choisi,
s'appliquera
à toutes feuilles du classeur.
Plus simplement dans le code de lafeuille Private sub
Worksheet_selectionchange suffirait à faire ce que tu veux.
exemple:
http://cjoint.com/?kgrejkXeNN
......pour la finalité
je me permets d'insister sur les réserves émises à commencer par celle
qu'il suffit de désactiver macros ou events pour que ce genre de chose
ne
fonctionne plus.

Cordialement.

lSteph

"Jean-Paul V" a écrit dans le
message
de news:
Bonjour Céline

J'ai essayé sur un petit fichier,chez moi cela ne marche pas.
Je n'ai pas tout compris.Pourriez-vous essayer de corriger ce petit
fichier
mis dans ci-joint:
http://cjoint.com/?kfufdpZluR

Et que veut dire Intersect

J'ai une casserole sur le feu et y-a pas de doute ça crame ! ! !

J'espère plus tard vous lire.
Bonne Soirée



bonjour JPV

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



Bonjour Steph

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.


Bonjour " JPV ",

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" a écrit dans
le
message
de news:
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
























Avatar
Jean-Paul V
Bonjour Isteph

Merci pour cette réponse détaillée

@+


Bonjour Jean-PaulV,

Concernant vos mises en garde
Il faut en être bien averti et je vois que le message est passé.


Pour être plus pondéré, ce n'est pas injouable, s'adressant à des personnes
n'ayant pas ou que peu de curiosité envers l'informatique à part de s'en
servir.
Cela conviendrait donc déjà dans une relative proportion.

Pour préciser ces réserves:
1-Outre que l'on peut bricoler cela soi-même en vba ou autre .
(Pour des raisons évidentes, on en dira pas plus sur ce forum)
Il existe et voir gratuitement sur la toile de quoi s'affranchir d'un mdp en
moins de 5 minutes.
2-Effectivement, par macro, puisqu'on les laisse agir,
la protection mise dans l'exemple avec userinterfaceonly évite juste les
actions de l'utilisateur.
Cette option userinterfaceonly évite pour celui qui code d'avoir à
déprotèger reprotèger à chaque action d'une macro.
3-Tel que c'est mis dans l'exemple c'est fait par événement Workbook_open ,
donc à l'ouverture du classeur.
Ainsi, si une feuille avait été déprotégée la dernière fois pour
maintenance, elle est reprotégée.
Sauf si l'on désactive les macros .
4-il en va de même pour l'apparition du userform que tu as prévue par
Selection_Change.
Si les événements sont désactivés cela ne fonctionne plus non plus.

Cordialement.

lSteph

(Dans la version beta 2007 , les macros sont selon ce que j'ai pu déplorer
en la testant par défaut désactivées.)

"Jean-Paul V" a écrit dans le message
de news:
Bonjour Isteph

ça marche merci
Concernant vos mises en garde si le fichier est protégé par un mot de
passe
ainsi que les macros et que la zône approbation est vérouillée comment
peut-on mettre un visa lorsque l'on ouvre le fichier sans macros?Même sans
les macros la zone est bien verrouillée ?Comment fait on pour mettre un
visa
sans mot de passe?

@+ et merci encore


Bonjour,
Si tu utilises un événement de niveau classeur, il doit être
placé dans thisworkbook, mais attention celui que tu as choisi,
s'appliquera
à toutes feuilles du classeur.
Plus simplement dans le code de lafeuille Private sub
Worksheet_selectionchange suffirait à faire ce que tu veux.
exemple:
http://cjoint.com/?kgrejkXeNN
......pour la finalité
je me permets d'insister sur les réserves émises à commencer par celle
qu'il suffit de désactiver macros ou events pour que ce genre de chose
ne
fonctionne plus.

Cordialement.

lSteph

"Jean-Paul V" a écrit dans le
message
de news:
Bonjour Céline

J'ai essayé sur un petit fichier,chez moi cela ne marche pas.
Je n'ai pas tout compris.Pourriez-vous essayer de corriger ce petit
fichier
mis dans ci-joint:
http://cjoint.com/?kfufdpZluR

Et que veut dire Intersect

J'ai une casserole sur le feu et y-a pas de doute ça crame ! ! !

J'espère plus tard vous lire.
Bonne Soirée



bonjour JPV

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



Bonjour Steph

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.


Bonjour " JPV ",

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" a écrit dans
le
message
de news:
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





























1 2