Password Protect Multiple Excel Workbook

[heartyy]

Hi everyone - I was wondering does anyone have a script that would password protect multiple workbook all at one time? It's so time consuming to do it one by one. Please help. Thank you.

 

[Cubist]

You can start with this. Test on copy.

Sub PasswordProtectMultipleWorkbooks()
    Dim folderPath As String
    Dim password As String
    Dim fileName As String
    Dim wb As Workbook

    ' Set the folder path and password
    folderPath = "C:\path\to\your\directory\"
    password = "yourpassword"

    ' Check if the folder path ends with a backslash, if not add it
    If Right(folderPath, 1) <> "\" Then
        folderPath = folderPath & "\"
    End If

    fileName = Dir(folderPath & "*.xls*")
    Do While fileName <> ""
        Set wb = Workbooks.Open(folderPath & fileName)
        wb.Password = password
        wb.Save
        wb.Close SaveChanges:=True
        fileName = Dir
    Loop
End Sub

 

[heartyy]

You can start with this. Test on copy.

Sub PasswordProtectMultipleWorkbooks()
    Dim folderPath As String
    Dim password As String
    Dim fileName As String
    Dim wb As Workbook

    ' Set the folder path and password
    folderPath = "C:\path\to\your\directory\"
    password = "yourpassword"

    ' Check if the folder path ends with a backslash, if not add it
    If Right(folderPath, 1) <> "\" Then
        folderPath = folderPath & "\"
    End If

    fileName = Dir(folderPath & "*.xls*")
    Do While fileName <> ""
        Set wb = Workbooks.Open(folderPath & fileName)
        wb.Password = password
        wb.Save
        wb.Close SaveChanges:=True
        fileName = Dir
    Loop
End Sub

Thank you. This work. You have no idea how much time this will save me.

 

[Cubist]

You're welcome.

 

[smozgur]

Thank you. This work. You have no idea how much time this will save me.

The marked solution has been changed accordingly. In your future questions, please mark the post as the solution that actually answered your question, instead of your feedback message as it will help future readers. No further action is required for this thread.