返回列表 上一主題 發帖

[發問] 自動解開活頁簿設定的密碼 (不要跳出視窗來)

chiang0320

帖子
45 
主題
15 
精華
0 
積分
92 
點名
0  
作業系統
? 
軟體版本
? 
閱讀權限
20 
註冊時間
2016-3-17 
最後登錄
2019-11-19 
1# 跳轉到 » 倒序看帖
打印
tT
發表於 2017-9-19 12:06 | 顯示全部帖子

[發問] 自動解開活頁簿設定的密碼 (不要跳出視窗來)

2017-09-19_115517.jpg
2017-9-19 12:01

自動解開工作簿設定的密碼.tar (39 KB)
共有兩個檔案
活頁簿1抓取活頁簿2
活頁簿有設定密碼保護
請問如何使用VBA自動解開活頁簿設定的密碼，不要跳出視窗來需人工按掉，謝謝!
(PS: 密碼是已知的情況   PASSWORD: 122333 )
收藏 分享

chiang0320

帖子
45 
主題
15 
精華
0 
積分
92 
點名
0  
作業系統
? 
軟體版本
? 
閱讀權限
20 
註冊時間
2016-3-17 
最後登錄
2019-11-19 
2#
發表於 2017-9-19 15:48 | 顯示全部帖子
回復 2# prin.huang

試過這個程式碼，仍會跳出輸入密碼的視窗

TOP

chiang0320

帖子
45 
主題
15 
精華
0 
積分
92 
點名
0  
作業系統
? 
軟體版本
? 
閱讀權限
20 
註冊時間
2016-3-17 
最後登錄
2019-11-19 
3#
發表於 2017-9-20 14:21 | 顯示全部帖子
回復 4# Hsieh

Hsieh 版主  謝謝!

已經不會跳出視窗

TOP

chiang0320

帖子
45 
主題
15 
精華
0 
積分
92 
點名
0  
作業系統
? 
軟體版本
? 
閱讀權限
20 
註冊時間
2016-3-17 
最後登錄
2019-11-19 
4#
發表於 2017-9-20 14:52 | 顯示全部帖子
回復 4# Hsieh

請問Hsieh 版主  

假如兩個檔案在不同資料夾，我放路徑會顯示錯誤，找不到路徑位置，要怎麼修改?謝謝!

    Workbooks.Open ThisWorkbook.Path & "C:\Users\C0001\Desktop\自動解開工作簿設定的密碼\活頁簿2.xlsx", Password:="122333"

TOP

chiang0320

帖子
45 
主題
15 
精華
0 
積分
92 
點名
0  
作業系統
? 
軟體版本
? 
閱讀權限
20 
註冊時間
2016-3-17 
最後登錄
2019-11-19 
5#
發表於 2017-9-20 16:50 | 顯示全部帖子
回復 7# chiang0320

自己有試出來了如下，謝謝版主

'依據路徑，打開總表檔案
    MMMpath = Sheets("檔案路徑").Range("D6").Value
    Workbooks.Open MMMpath & "\活頁簿2.xlsx", Password:="122333"

TOP

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