Proteger toutes les feuilles

Question

J'ai un dossier sur mon bureau qui contient plusieurs classeurs format csv. j'aimerai bien proteger toutes les feuilles des classeurs dans ce dossier avec le même mot de passe. merci d'avance...

Parrish · Accepted Answer

Bonjour :

Pour verrouiller toutes les feuilles d'un classeur :

' Auteur : https://www.linkedin.com/in/spilerstheo/
Sub ProtegerFeuilles()
    Dim feuille As Worksheet
    For Each feuille In ThisWorkbook.Worksheets
        feuille.Protect Password:="MDP"
    Next feuille
End Sub

Pour verrouiller tous tes fichiers Excels :

' Auteur : https://www.linkedin.com/in/spilerstheo/
Sub ProtegerTousLesClasseurs()
    Dim wb As Workbook
    Dim ws As Worksheet

    For Each wb In Application.Workbooks
        For Each ws In wb.Worksheets
            ws.Protect Password:="MDP"
        Next ws
    Next wb
End Sub

(Je te conseil de faire une copie avant de tester)

Cordialement,
T.PARRISH