Sub Mdp()
Workbooks.Open Filename:="C:\Transfert\MDP\Test.xls"
ActiveWorkbook.SetPasswordEncryptionOptions PasswordEncryptionProvider:= _
"Microsoft Strong Cryptographic Provider", PasswordEncryptionAlgorithm:="RC4", _
PasswordEncryptionKeyLength:=128, PasswordEncryptionFileProperties:=True
ActiveWorkbook.SaveAs Filename:="C:\Transfert\MDP\Test_Mdp.xls", FileFormat:= _
xlNormal, Password:="Azerty", WriteResPassword:="", _
ReadOnlyRecommended:=False, CreateBackup:=False
ActiveWindow.Close
End Sub
Sub ProtegeFichiers()
Dim Dossier(), i As Byte, chemin$, nomfich$
Application.ScreenUpdating = False
Application.DisplayAlerts = False
On Error Resume Next 'au cas où des fichiers sont déjà protégés
Dossier = Array("Dossier1", "Dossier2")
For i = 0 To UBound(Dossier)
chemin = ThisWorkbook.Path & "\" & Dossier(i) & "\"
nomfich = Dir(chemin & "*.xls") '1er fichier du dossier
While nomfich <> ""
SendKeys "{ESC}" 'ferme la boîte de dialogue du mot de passe quand le fichier est protégé
Workbooks.Open chemin & nomfich
If Err = 0 Then 'si le fichier n'est pas protégé
Workbooks(nomfich).SaveAs chemin & nomfich, Password:="toto" 'la fenêtre du fichier peut être masquée
Workbooks(nomfich).Close
End If
Err = 0
nomfich = Dir 'fichier suivant du dossier
Wend
Next
End Sub