Un fichier, 2 mots de passe, 2 utilisateurs

Bonjour,

Après moultes recherches je n'ai pas trouvé solution a mon problème.

Je voudrai ouvrir un fichier excel avec 2 mot de passe, un mot de passe pour chaque utilisateur

Le premier ouvre le fichier normalement , le second ouvre le fiché caché.

Merci de votre aide

Bonjour,

En gros il te faut une gestion des accès, ==> réalisable

Est ce que ton fichier se trouve sur un pc en réseau (réseau auquel tu accède via login et mot de passe??)

Bonjour,

Un lien pour te montrer différentes approches :

http://boisgontierjacques.free.fr/pages_site/protection.htm

Cdlt

D'abord merci pour vos réponses.

SylChat a écrit :

Bonjour,

En gros il te faut une gestion des accès, ==> réalisable

Est ce que ton fichier se trouve sur un pc en réseau (réseau auquel tu accède via login et mot de passe??)

Les deux fichiers sont sur un dossier DROPBOX. ce dossier est consulté à partir de deux ordinateur différents.

Pour vous expliquer le problème dans son ensemble :

J'ai un fichier A qui va chercher des informations dans un fichier B avec une macro. Pour récupérer ces infos,, la macro ouvre le fichier B et le ferme à la fin de l’exécution.

étant donné que les deux fichiers sont dans le même dossier DROPBOX, il faudrait les protégé avec un mot de passe.

PROBLÈME : Comment exécuter la macro du fichier A (ouverture du fichier B) étant donné que l’utilisateur n'a pas le mot de passe pour ouvrir le fichier B.

D'où l'idée de créer un mot de passe pour ouvrir le fichier B en mode caché lors de l’exécution de la macro

J'espère que mon explication est claire.

si le fichier est toujours ouvert à partir des memes PC

via l'instruction Environ("USERNAME") tu peux récupérer le nom d'utilisateur qui ouvre le fichier

par la suite tu restreint ou non l'acces en fonction de l'utilisateur

quand tu dis ouverture en caché c'est sans affichage du classeur

application.visible=false non??

SylChat a écrit :

si le fichier est toujours ouvert à partir des memes PC

via l'instruction Environ("USERNAME") tu peux récupérer le nom d'utilisateur qui ouvre le fichier

par la suite tu restreint ou non l'acces en fonction de l'utilisateur

quand tu dis ouverture en caché c'est sans affichage du classeur

application.visible=false non??

C'est une bonne piste pour "Environ("USERNAME"), cependant ça ne sera pas forcement sur le même PC.

Je ne veux pas que l'utilisateur A puisse ouvrir le classeur B et vice versa. le pb c'est que la macro du classeur B est obligé de l'ouvrir pendant l’exécution.

Sub auto_open()
'Demande de mot de passe a l'ouverture du fichier
Application.Visible = False 'cache le fichier lors de l'ouverture

Dim mdpA As String
Dim mdpB As String

mdpA = "azerty"
mdpB = "ytreza"
saisie = InputBox("Tapez votre mot de passe", "Ouverture fichier A")
    If saisie = mdpA Then
    Application.Visible = True 'si mot de passe correct, le fichier devient visible

    ElseIf saisie = mdpB Then
    Application.Visible = False 'si mot de passe utilisateur B le fichier s'ouvre en masqué

    Else 
    MsgBox ("Mot de passe erroné, veuillez ouvrir le fichier pour recommencer")
    Workbooks("A.xlsm").Close False 'fermeture du fichier sans enregistrer
    End If
    'sinon fermeture du fichier

End Sub

Ca marche mais ca reste limité