XL 2019 Tentative mot de passe 2 fois

Sub Ouvrir_feuille_1()
Dim MDP, i As Long, A As Long
A = 1
For i = 1 To 4
i = A
If A <=3 Then
MDP = InputBox("Veuillez indiquer le mot de passe", "SVP")
If MDP = 1234 Then
Sheets(1).Visible = True
Sheets(1).Select
Exit Sub
Else
MsgBox " Mot de passe incorrect"
A = A + 1
End If
ElseIf A > 3 Then
MsgBox " Mot de passe incorrect ! C'est la 3éme tentative le fichier va se fermer"
Call Auto_Close
End If
Next i
End Sub

Sub Auto_Close()
Dim wb As Workbook
For Each wb In Workbooks 'boucle sur tous les classeurs ouverts
wb.Close True 'fermeture du classeur avec sauvegarde
Next
End Sub

Private Sub Workbook_Open()
Dim mdp$, x$, n As Byte
mdp = "toto" 'mot de passe à adapter
Do
    x = Application.InputBox(IIf(n, "Il vous reste 1 essai :", "Vous avez droit à 2 essais :"), "Mot de passe")
    n = n + 1
Loop While x <> mdp And n < 2
If x <> mdp Then Application.OnTime 1, Me.CodeName & ".Fermer"
End Sub

Sub Fermer()
Me.Saved = True
If Workbooks.Count = 1 Then Application.Quit Else Me.Close
End Sub

Private Sub Workbook_Open()
UserForm1.Show
End Sub

Sub Fermer()
Me.Saved = True
If Workbooks.Count = 1 Then Application.Quit Else Me.Close
End Sub

Const mdp$ = "toto" 'mémorise la variable mdp, à adapter

Private Sub CommandButton1_Click()
Static n As Byte 'mémorise la variable
n = n + 1
If TextBox1 = mdp Or n > 1 Then Unload Me Else Label1 = "Il vous reste 1 essai :": TextBox1 = "": TextBox1.SetFocus
End Sub

Private Sub TextBox1_Change()
If TextBox1 = mdp Then Unload Me 'évite de passer par le bouton
End Sub

Private Sub UserForm_QueryClose(Cancel As Integer, CloseMode As Integer)
If TextBox1 <> mdp Then Application.OnTime 1, "ThisWorkbook.Fermer"
End Sub