返回列表 上一主題 發帖

[發問] 如何以VBA設定開啟檔案的密碼

PKKO
　暱稱: PKKO

高中生Rank: 3Rank: 3

帖子
549 
主題
152 
精華
0 
積分
691 
點名
0  
作業系統
WIN7 
軟體版本
OFFICE 2010 
閱讀權限
50 
性別
男 
註冊時間
2013-8-10 
最後登錄
2022-9-7 

論壇榮譽勳章論壇贊助勳章
1# 跳轉到 » 正序看帖
打印
tT
發表於 2015-10-26 18:22 | 只看該作者

[發問] 如何以VBA設定開啟檔案的密碼

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

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

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



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

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

PKKO
　暱稱: PKKO

高中生Rank: 3Rank: 3

帖子
549 
主題
152 
精華
0 
積分
691 
點名
0  
作業系統
WIN7 
軟體版本
OFFICE 2010 
閱讀權限
50 
性別
男 
註冊時間
2013-8-10 
最後登錄
2022-9-7 

論壇榮譽勳章論壇贊助勳章
3#
發表於 2015-10-31 06:53 | 只看該作者
回復 2# lpk187


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

TOP

lpk187

帖子
552 
主題
3 
精華
0 
積分
578 
點名
0  
作業系統
win7 
軟體版本
office 2010 
閱讀權限
50 
性別
男 
註冊時間
2015-2-8 
最後登錄
2024-7-9 

2016猴年全勤獎章2015羊年全勤獎章熱烈參與勳章
2#
發表於 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
複製代碼

TOP

        靜思自在 : 並非有錢魷是快樂，問心無愧心最安。
返回列表 上一主題