將密碼分配給給定文件夾中的多個工作簿

-1

讓我告訴你這個問題。我們根據報告準備總結報告，我可以將文件拆分爲單獨的工作簿。將密碼分配給給定文件夾中的多個工作簿

的主要問題是：

我嘗試過很多辦法來保護多個工作簿使用不同的密碼。在我的excel密碼文件中，根據excel列，具有列A中的所有excel名稱列和列B中的不同密碼列表（最少100個excel文件，最多可達500個文件）A名稱需要在文件夾中指定密碼列B工作簿。每個月手動執行真的很痛苦

有沒有一種簡單的方法來保護多個工作簿，而無需打開每個工作簿並通過VBA代碼分配密碼？按我的知識，我們可以根據我的Excel中存儲的密碼要求

分配相同的密碼，所有工作簿，但在尋找不同的密碼非常感謝您的幫助

來源

2017-02-12 Basavaraj k.s.

_ 「我嘗試了很多方法來保護多個工作簿使用不同的密碼」_：向我們展示其中一種方法 – user3598756

謝謝您的回覆.... –

Sub Passwordprotect（） '打開密碼保護文件 Application.DisplayAlerts = False Application.ScreenUpdating = False Application.Workbooks.Open「C：\ Cb.xlsx」，False ActiveWorkbook.SaveAs Filename：=「C：\ Cb.xlsx」，Password：=「basu」 ActiveWorkbook.Close SaveChanges： =真結束小組這裏每天我手工編寫...它需要長時間，甚至優於500名和路徑我需要寫 –

一個可能的解決方案

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

來源

2017-02-12 15:51:31 h2so4

你好謝謝你的代碼我得到的錯誤，因爲如何編寫代碼搜索我的文件夾內的代碼分配密碼 –

通過循環....是的，我們可以...需要修改，因爲它應該看看我可以給它的文件夾，然後它應該開始分配所述列A Excel名稱和列B密碼保持循環直到最後請幫我 –

請modi FY如何循環中的文件夾目錄 –

將密碼分配給給定文件夾中的多個工作簿

回答

相關問題