標題: [發問] 如何以VBA設定開啟檔案的密碼 [打印本頁]

---

作者: PKKO    時間: 2015-10-26 18:22     標題: 如何以VBA設定開啟檔案的密碼

為了讓大家看得懂問題,先說明一下

小弟並不是要設定保護活頁簿的結構與視窗

而是要設定開啟活頁簿( 開啟檔案 ) 時的密碼!

[attach]22253[/attach][attach]22254[/attach]

目前僅會透過VBA開啟,有設定活頁簿開啟密碼的文件

但無法透過VBA自動將任意檔案設定開啟檔案的密碼,有大大能解答嗎?

---

作者: lpk187    時間: 2015-10-27 08:24

回復 1# PKKO

是要設定，你圖中權限的密碼？如果是則是設workbook屬性.Password就可以了
如下範例：

1. Sub Ex()
   
2. Dim Bk As Workbook
   
3. Dim nFile As String
   
4.     mPath = ThisWorkbook.Path & "\"
   
5.     nFile = Dir(mPath)
   
6.     Do While Len(nFile)
   
7.         If nFile <> "主程式.xlsm" Then
   
8.             Set Bk = Workbooks.Open(mPath & nFile)
   
9.             Bk.Password = "12345"
   
10.             Bk.Close True
    
11.         End If
    
12.         nFile = Dir
    
13.     Loop
    
14. End Sub

複製代碼

---

作者: PKKO    時間: 2015-10-31 06:53

回復 2# lpk187


    感謝大大,確實可以使用,一直都找不到這個上鎖的方式,原來只要WORKBOOKS(XX).Password = "12345" 就可以了,感謝哦!

---

歡迎光臨 麻辣家族討論版版 (http://forum.twbts.com/)