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

[eduraiss]

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

 

[camarchepas]

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

Bonjour,

J'ai fais quelques essais avec en chemin c:\temp et je n'ai aucun souci.

J'ai protégé la structure du classeur et je l'ai chiffré .

Pour mes essais la macro est embarquée dans ce classeur .

Donc , je vois pas , pourrais tu créer un petit fichier nous présentant le problème ?

 

[eduraiss]

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

Re
merci camarchepas pour cette réponse
disons que les fichiers en démo c'est pas simple

Mais par rapport à mon message voici plus d'explication
J'ai un classeur A que je veux sauvegarder sur un disque dur.Ce classeur est protéger par un code de protection "123"
Lorsque je ferme le classeurA je déclenche le code par le private Before close et l'archive sur le disque dure se met en route mais bug a cause du mot de passe
Quel est la ligne de code qu'il me faut pour désactiver la protection?
Merci