Ouverture fichier en fonction d'un mot de passe

[delouest]

Bonjour à tous,


J'ai deux fichiers Excel qui fonctionnent ensemble (fiche de contrôle + fichier de traitement de données CNOMO). Quand on ouvre la fiche de contrôle il faut rentrer un mot de passe. Je voudrai qu'en fonction du mot passe rentré, le fichier de traitement de données d'ouvre ou non.
Dans mon cas:
-si le mot de passe est "JULIEN", "JM" ou "JOHNNY" le fichier de traitement de données d'ouvre.
-si le mot de passe est "didier" ou "marjolaine" seul la fiche de contrôle s'ouvre.


Je joins les fichiers, en espérant que vous puissiez m'aider.

Pour accéder à la fiche de contrôle taper un des mot de passe ci-dessus puis renseigner un numéro d'OF ( exemple 50000), ne renseignez pas les numéro de lots (cliquez directement sur OK).

 

[delouest]

Re : Ouverture fichier en fonction d'un mot de passe

Up, j'ai fais ce code là, mais dans tous le cas j'ai les 2 fichiers qui s'ouvrent .......... :? Je comprends pas d'ou vient le problème.

    If état3 And ActiveSheet.Range("D36") = 95 Then
            SheetUnprotect
            Set FC = Workbooks.Open("C:\Users\thomas\Desktop\pilotage tableaux excel ULTIME\CNOMO\CNOMO.xlsx")
            ActiveSheet.Unprotect
            
            Else
            If état3 And ActiveSheet.Range("D36") = 125 Then
            SheetUnprotect
            Set FC = Workbooks.Open("C:\Users\thomas\Desktop\pilotage tableaux excel ULTIME\CNOMO\CNOMO.xlsx")
            ActiveSheet.Unprotect
            
            Else
            If état3 And ActiveSheet.Range("D37") = 110 Then
            GoTo fin3
            
            Else
            If état3 And ActiveSheet.Range("D37") = 126 Then
            GoTo fin3
            
            End If
            End If
            End If
            End If
fin3:
ActiveSheet.Range("E8").Select