Liaison de fichier

Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
Dim WB As Workbook
Dim classeurs
Dim i&

'--- Mettre les chemins des classeurs du plus bas niveau jusqu'au ---
'--- plus haut niveau(les groupes, les secteurs, le global)       ---
classeurs = Array("c:\2.xls", "c:\Program files\3.xls", "C:\WINDOWS\4.xls")
'--------------------------------------------------------------------

Application.ScreenUpdating = False
For i& = LBound(classeurs) To UBound(classeurs)
  Set WB = GetObject(classeurs(i&))
  WB.Windows(1).Visible = True
  WB.Save
  WB.Close
  Set WB = Nothing
Next i&
Application.ScreenUpdating = True
End Sub

Private Sub Workbook_Open()
ActiveWorkbook.Unprotect Password:="MDP"
Sheets("feuil1").Visible = True
Sheets("feuil2").Visible = False
ActiveWorkbook.Protect Password:="MDP"
Call mots_de_passe
Sheets(3).Select
Range("a5").Select
End Sub
____________________________________________
Private Sub Workbook_BeforeClose(Cancel As Boolean)
ActiveWorkbook.Unprotect Password:="MDP"
Sheets("feuil1").Visible = True
Sheets("feuil2").Visible = False
ActiveWorkbook.Protect Password:="MDP"
ActiveWorkbook.Save
End Sub
_____________________________________________
Sub mots_de_passe()
ActiveWorkbook.Unprotect Password:="MDP"
Dim Password As String
     Dim feuille As Object
     Dim activeworksheet As Object
     Password = LCase(InputBox("Tapez votre mot de passe, ou exit pour sortir :", _
                              "Mot de Passe"))
                               Select Case Password
          Case "MDP1"
          
               For Each feuille In ActiveWorkbook.Sheets
                    feuille.Visible = True
                    Next
                    Case "MDP2"
                   Sheets("Feuil2").Visible = True
                   Sheets("feuil1").Visible = False
                                   
                    
                      Case "exit"
            Application.DisplayAlerts = False
            ActiveWorkbook.Close
            Application.DisplayAlerts = True
            Application.Quit          
          Case Else
               MsgBox "Mot de passe incorrect. Recommencez."
               'On boucle
               mots_de_passe
     End Select
     ActiveWorkbook.Protect Password:="MDP"

End Sub
______________________________________________