特定のフォルダ内の複数のブックにパスワードを割り当てる

Question

問題を教えてください。私たちは別のワークブックでファイルを分割することができるレポートに基づいて要約レポートを作成します。

主な問題は次のとおりです。

私は別のパスワードで複数のワークブックを保護するために多くの方法を試してみました。私のExcelパスワードファイルには、列AのすべてのExcel名リストと、列Bのパスワードのリスト（最小100個のExcelファイルと最大500個のファイルに達する可能性があります）がExcelの列に表示されます。ワークブック。手動で毎月行うのは本当に苦労します

複数のブックを個別に開き、VBAコードでパスワードを割り当てることなく簡単に保護する方法はありますか？私の知識あたりのように、我々はすべてのワークブックに同じパスワードを割り当てることができますが、

が本当に_あなたの助け

Answer 1

可能な解決策

Sub protectwpwd() 
Dim i As Long, wb As Workbook, ws As Worksheet 
    i = 1 
    Set wb = ThisWorkbook 
    Set ws = wb.ActiveSheet 
    While ws.Cells(i, 1) <> "" 
     Workbooks.Open ws.Cells(i, 1) 
     ActiveWorkbook.Saveas ws.cells(i,1),Password:=ws.Cells(i, 2) 
     ActiveWorkbook.Close 
     i = i + 1 
    Wend 
End Sub