Verrouiller par MDP et Login l'ouverture d'un xlsm

Option Explicit
Private Sub Workbook_BeforeClose(Cancel As Boolean)
 'remettre l'affichage d'un classeur s'il est ouvert alors que l'exécution
'des macros est désactivée dans les options de sécurité
ThisWorkbook.IsAddin = True
End Sub
Private Sub Workbook_Open()
Dim nom As String
nom = Left(ThisWorkbook.Name, InStrRev(ThisWorkbook.Name, ".") - 1) 'nom fichier sans l'extension
 'empêcher l'affichage d'un classeur s'il est ouvert alors que l'exécution
'des macros est désactivée dans les options de sécurité
ThisWorkbook.IsAddin = False
If "24/06/2018" < Date Then 'mettre la date de dernière utilisation
MsgBox "La date est dépassée!", vbCritical, nom
ThisWorkbook.Close
Else
MsgBox "Il vous reste: " & DateDiff("d", #6/24/2018#, Date) & " jours", vbInformation, nom 'mettre la date de dernière utilisation
End If
End Sub