Private Sub Workbook_Open()
If MsgBox("Êtes-vous sûr d'être autorisé à lire ce fichier ?", vbQuestion + vbYesNo, "Confirmation1") = vbYes Then
Workbooks.Open Filename:="nom de ton fichier"
Else
Workbooks.close Filename:="nom de ton fichier"
End If
End Sub