Erreur d'argument exécution ou appel de procédure incorrect

[enos]

User
erreur d’argument exécution ou appel de procédure incorrect pour le code vba suivant "Option Explicit

Private Sub Workbook_Open()
Dim correctPassword As String
Dim storedPassword As String

' Définir le mot de passe correct
correctPassword = "VotreMotDePasse"

' Récupérer le mot de passe stocké dans les propriétés du document
storedPassword = ThisWorkbook.CustomDocumentProperties("MotDePasse")

' Vérifier si le mot de passe a déjà été saisi et est correct
If storedPassword <> correctPassword Then
    ' Demander le mot de passe à l'utilisateur
    Do
        storedPassword = InputBox("Veuillez entrer le mot de passe :", "Mot de passe requis")

        ' Vérifier la validité du mot de passe
        If storedPassword = correctPassword Then
            ' Stocker le mot de passe dans les propriétés du document pour les ouvertures ultérieures
            ThisWorkbook.CustomDocumentProperties.Add Name:="MotDePasse", _
                LinkToContent:=False, Type:=msoPropertyTypeString, _
                Value:=correctPassword
            Exit Do
        Else
            MsgBox "Mot de passe incorrect. Veuillez réessayer.", vbExclamation, "Erreur"
        End If
    Loop
End If

' Si le mot de passe est correct, continuer avec l'ouverture du fichier
MsgBox "Mot de passe correct. Bienvenue !", vbInformation, "Succès"

End Sub "

[Cow18]

je ne sais pas l’utilité mais …

Private Sub Workbook_Open()
     Dim correctPassword As String
     Dim storedPassword As Variant

     ' Définir le mot de passe correct
     correctPassword = "VotreMotDePasse"

     ' Récupérer le mot de passe stocké dans les propriétés du document
     On Error Resume Next
     storedPassword = ThisWorkbook.CustomDocumentProperties("MotDePasse")
     If IsEmpty(storedPassword) Then storedPassword = ""
     On Error GoTo 0

     ' Vérifier si le mot de passe a déjà été saisi et est correct
     If storedPassword <> correctPassword Then
          ' Demander le mot de passe à l'utilisateur
          Do
               storedPassword = InputBox("Veuillez entrer le mot de passe :", "Mot de passe requis")

               ' Vérifier la validité du mot de passe
               If storedPassword = correctPassword Then
                    ' Stocker le mot de passe dans les propriétés du document pour les ouvertures ultérieures
                    ThisWorkbook.CustomDocumentProperties.Add Name:="MotDePasse", _
                                                              LinkToContent:=False, Type:=msoPropertyTypeString, _
                                                              Value:=correctPassword
                    Exit Do
               Else
                    MsgBox "Mot de passe incorrect. Veuillez réessayer.", vbExclamation, "Erreur"
               End If
          Loop
     End If

     ' Si le mot de passe est correct, continuer avec l'ouverture du fichier
     MsgBox "Mot de passe correct. Bienvenue !", vbInformation, "Succès"
End Sub