Mot de passe

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