Déprotéger mon classeur

Bonjour,
J'aimerais savoir de quel façon je peux corriger mon code. J'ai vérouillé mon classeur avec le mot de passe suivant: 123, mais je n'arrive pas à faire fonctionner ma macro.
De plus à la fin je veux remettre mon mot de passe.

Voici le code:

Private Sub CommandButton1_Click()
If Not Len(TextBoxNumero) = 4 Then
MsgBox "Le numéro doit comporter 4 chiffres !" & vbCrLf & "Veuillez recommencer", vbOKOnly + vbExclamation, "NUMERO NON VALIDE"
Exit Sub
End If
Workbook.Unprotect Password = 123
ActiveWorkbook.Unprotect
Sheets("Transfert de données (log)").Visible = True
Sheets("Transfert de données (log)").Select
Range("M6").Value = TextBoxNumero
Range("A6:M6").Select
Application.CutCopyMode = False
Selection.Copy
Sheets("Générateur").Visible = True
Sheets("Générateur").Select
Range("P53").Select
Selection.Hyperlinks(1).Follow NewWindow:=False, AddHistory:=True
Sheets("Bride").Select
Rows("10:10").Select
Selection.Insert Shift:=xlDown, CopyOrigin:=xlFormatFromLeftOrAbove
Range("A10").Select
Selection.PasteSpecial Paste:=xlPasteValuesAndNumberFormats, Operation:= _
xlNone, SkipBlanks:=False, Transpose:=False
Application.CutCopyMode = False
Range("A9:M9").Select
Selection.Copy
Range("A10:M10").Select
Selection.PasteSpecial Paste:=xlPasteFormats, Operation:=xlNone, _
SkipBlanks:=False, Transpose:=False
Application.CutCopyMode = False
Range("A10").Select
ActiveWorkbook.Save
ActiveWindow.Close
Sheets("Formulaire moule O-1").Select
Sheets("Générateur").Visible = False
Sheets("Transfert de données (log)").Visible = False
ActiveWorkbook.Protect
Workbook.Protect Password = 123
UserForm6.Hide
End Sub

Quel est le problème?.

Merci

Audrey🙂