Private Sub Workbook_Open()
If MsgBox("Mettre à jour les liens?", vbYesNoCancel, "Mise à jour") = vbYes Then
Set wbk = Workbooks.Open(Filename:="C:\Users\STAPLE\Fichier Protégé.xlsx", Password:="Azerty", UpdateLinks:=1)
wbk.Close False
End If
End Sub