Enregister onglets si classeur protegé et le proteger de nouveaux

J'ai une macro qui enregistrer juste un onglet et ferme la fenêtre et je voudrais la reverrouiller a la fin

Merci

Sub enregisteronglet()

ActiveSheet.Unprotect Password:="test"


Sheets("123").Select
Sheets("123").Copy
Cells.Select
Range("A4").Activate
Selection.Copy
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Application.CutCopyMode = False

ActiveSheet.Protect DrawingObjects:=False, Contents:=True, Scenarios:= _
False

NomFichier = Range("O7") & "_" & Range("O8") & "_" & Range("O12") & "_" & Range("O14")
ActiveWorkbook.SaveAs Filename:= _
"T:\test-" & Day(Date) & "." & Month(Date) & "." & Year(Date) & " " & Hour(Time) & "-" & Minute(Time) & ".xls", _
FileFormat:=xlNormal, _
ReadOnlyRecommended:=False, CreateBackup:=False

ActiveSheet.Protect DrawingObjects:=False, Contents:=True, Scenarios:= _
False

ActiveWindow.Close


End Sub