Ouverture fichier en fonction d'un mot de passe

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).

Merci d'avance

59cnomo.xlsx (51.12 Ko)

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
Rechercher des sujets similaires à "ouverture fichier fonction mot passe"