Защита паролем нескольких файлов Excel в папке с другим паролем

Question

У меня есть файл, который содержит список всех паролей для разных операторов поставщика.Все пароли различаются в зависимости от имени поставщика, но содержат одинаковую числовую часть, которая затем меняется ежемесячно.Например, первый месяц может иметь пароли, такие как SupplierA655456 и SupplierB655456, а затем в следующем месяце они могут быть SupplierA789987 и SupplierB789987.

Все выписки сохраняются в одной папке, мне просто интересно, можно ли создать код для защиты этих файлов паролем?

Спасибо

У меня естьсоздал код, который сохраняет все файлы с одинаковым паролем, но они должны быть разными.

Sub ProtectAll()
    Dim xWorkBooks As Workbook
    Dim xExitFile As String
    Dim xPassWord As Variant
    Dim xStrPath As String
    Dim xFileDialog As FileDialog
    Dim xFile As String
    On Error Resume Next
    Set xFileDialog = Application.FileDialog(msoFileDialogFolderPicker)
    xFileDialog.AllowMultiSelect = False
    xFileDialog.Title = "Select a folder [Kutools for Excel]"
    If xFileDialog.Show = -1 Then
        xStrPath = xFileDialog.SelectedItems(1)
    End If
    If xStrPath = "" Then
        Exit Sub
    Else
        xStrPath = xStrPath + "\"
    End If
    xPassWord = Application.InputBox("Enter password", "Kutools for Excel", , , , , , 2)
    If (xPassWord = False) Or (xPassWord = "") Then
        MsgBox "Password cannot be blank!", vbInformation, "Kutools for Excel"
        Exit Sub
    End If
<span style="background-color: #ffff00;">    xFile = "*.xls"</span>
    xExitFile = Dir(xStrPath & xFile)
    On Error Resume Next
    Application.ScreenUpdating = False
    Do While xExitFile <> ""
        Set xWorkBooks = Workbooks.Open(xStrPath & xExitFile)
        Application.DisplayAlerts = False
        xWorkBooks.SaveAs Filename:=xWorkBooks.FullName, Password:=xPassWord
        Application.DisplayAlerts = True
        Workbooks(xExitFile).Close False
        Set xWorkBooks = Nothing
        xExitFile = Dir
    Loop
    Application.ScreenUpdating = True
    MsgBox "Successfully protect!", vbInformation, "Kutools for Excel"
End Sub

Этот код отлично работает для защиты всех файлов, но могу ли я использовать его для различения паролей?