Déprotéger et reprotéger un classeur en VBA

Bonjour le forum

Le code ci-dessous me permet de sauvegarder un classeur sur un disque dur
Mon problème est ce classeur est protégé par un mot de passe "123"
Comment dans ce code déprotéger pour que l'archive se fasse et reprotéger ensuite

je n'y arrive pas

merci

Sub ArchiveFichiers()

Dim strFichierA, strFichierB
Application.DisplayAlerts = False
ActiveWorkbook.Save
strFichierA = ActiveWorkbook.Name

strFichierB = "\\Bart\gestpers$\" & strFichierA

ActiveWorkbook.SaveAs Filename:=strFichierB

Application.DisplayAlerts = True

End Sub