VBA to open the list of excel files and save with password

Hi Team,

I have split of 100 files and need to do a password protect all of them. Can this be done via macro. Password remains same for all the files.

Kind Regards,

This is one way. Assume your file names are listed in column A.

Sub t()
Dim wb As Workbook, c As Range
    For Each c In Range("A1", Cells(Rows.Count, 1).End(xlUp))
        Set wb = Workbooks.Open(ThisWorkbook.Path & "\" & c.Value)
        wb.Protect Password:="Password" 'substitute your password here
        wb.Close True
    Next
End Sub

Thanks JLGWhiz,

Macro opens up the file, but password is not set. It just closed the file by opening it.

Please advise.

Thanks,

This should work.

Sub test()
Dim wb As Workbook, c As Range
    For Each c In Range("A1", Range("A" & Rows.Count).End(xlUp))
        Workbooks.Open ThisWorkbook.Path & "\" & c.Value
        With ActiveWorkbook
            Application.DisplayAlerts = False
            .SaveAs ActiveWorkbook.FullName, , "password"
            Application.DisplayAlerts = True
            .Close False
        End With
    Next
End Sub