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
Up, j'ai fais ce code là, mais dans tous le cas j'ai les 2 fichiers qui s'ouvrent ..........
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