[發問] 如何透過 VBA語法 開啟專案的密碼

帖子: 151
主題: 25
精華: 0
積分: 194
點名: 0
作業系統: WINDOWS 10
軟體版本: Office 2010 或 2021
閱讀權限: 20
性別: 男
註冊時間: 2011-9-6
最後登錄: 2024-11-8

2^#

發表於 2012-7-4 09:08 | 顯示全部帖子

回復 2# kimbal

謝謝 kimbal 先進的回覆，很抱歉我實在試不出來，
所以我將檔案附上來，當我想要利用附件檔案開啟某個目錄中的全部檔案
同時將每個檔案中的專案密碼(假設是 ABC) 開啟，
不知道程式碼該如何結合在一起？
煩請抽空再協助一下，感激不盡

JS

加班單簽核自動開檔程式test.rar (12.21 KB)

帖子: 151
主題: 25
精華: 0
積分: 194
點名: 0
作業系統: WINDOWS 10
軟體版本: Office 2010 或 2021
閱讀權限: 20
性別: 男
註冊時間: 2011-9-6
最後登錄: 2024-11-8

3^#

發表於 2012-7-4 18:59 | 顯示全部帖子

回復 4# oobird

請教 oobird 先進，您提供的程式碼是否是開啟活頁部的密碼？
我目前要開啟的是 VBA專案中的程式碼的密碼....
是否有一樣？煩請解惑....
謝謝

佳欣

帖子: 151
主題: 25
精華: 0
積分: 194
點名: 0
作業系統: WINDOWS 10
軟體版本: Office 2010 或 2021
閱讀權限: 20
性別: 男
註冊時間: 2011-9-6
最後登錄: 2024-11-8

4^#

發表於 2012-7-26 07:49 | 顯示全部帖子

請教先進
   我在 #3 所附上的例子是否有解？
   我的目的是要用一個 Excel檔案，逐一開啟指定目錄中的所有Excel檔案，
   同時將這些檔案的 VBA專案密碼解開....
   希望有先進可以指點一下，感恩
JS

帖子: 151
主題: 25
精華: 0
積分: 194
點名: 0
作業系統: WINDOWS 10
軟體版本: Office 2010 或 2021
閱讀權限: 20
性別: 男
註冊時間: 2011-9-6
最後登錄: 2024-11-8

5^#

發表於 2012-7-30 21:22 | 顯示全部帖子

前面所提的密碼是已經知道密碼值，
只是希望透過另一個程式來將原本鎖住的 VBA專案密碼打開
不知道程式碼該如何呈現？？？

JS

帖子: 151
主題: 25
精華: 0
積分: 194
點名: 0
作業系統: WINDOWS 10
軟體版本: Office 2010 或 2021
閱讀權限: 20
性別: 男
註冊時間: 2011-9-6
最後登錄: 2024-11-8

6^#

發表於 2012-7-31 21:29 | 顯示全部帖子

回復 8# Hsieh

謝謝 Hsieh 超級版主的協助，我的問題已經全部解決了
感恩

JS

帖子: 151
主題: 25
精華: 0
積分: 194
點名: 0
作業系統: WINDOWS 10
軟體版本: Office 2010 或 2021
閱讀權限: 20
性別: 男
註冊時間: 2011-9-6
最後登錄: 2024-11-8

7^#

發表於 2012-8-4 17:07 | 顯示全部帖子

回復 8# Hsieh

再請教超級版主兩個延伸的問題：
1. 程式執行完後，會留下附件的圖片畫面，能否讓他自動關閉？
2. 如果一次開啟多個檔案，好像只有一個檔案可以解開專案密碼，
其他檔案還是沒有解開，不知道哪裡出問題？？
再麻煩您協助解惑，謝謝

JS

VBA.JPG (24.72 KB)

帖子: 151
主題: 25
精華: 0
積分: 194
點名: 0
作業系統: WINDOWS 10
軟體版本: Office 2010 或 2021
閱讀權限: 20
性別: 男
註冊時間: 2011-9-6
最後登錄: 2024-11-8

8^#

發表於 2012-8-8 21:51 | 顯示全部帖子

本帖最後由 jsleee 於 2012-8-8 21:53 編輯

回復 8# Hsieh

請教超級版主 Hsieh
      我在 10# 所提的問題不知道有無解？
      目前使用迴圈開啟同一目錄中的多個檔案，
      都只有其中一個檔案可以正常開啟專案密碼，
      其餘檔案都只有開啟Excel檔，專案密碼沒有開啟？？？
      (ps. 每一個檔案的檔案密碼 & VBA專案密碼都是一樣的....)
      希望超級版主能夠撥空解惑，謝謝
JS

自動開檔程式test.rar (13.31 KB)

帖子: 151
主題: 25
精華: 0
積分: 194
點名: 0
作業系統: WINDOWS 10
軟體版本: Office 2010 或 2021
閱讀權限: 20
性別: 男
註冊時間: 2011-9-6
最後登錄: 2024-11-8

9^#

發表於 2012-8-9 07:54 | 顯示全部帖子

回復 12# Hsieh

不好意思，再請教超級版主....
我將程式碼複製到檔案中，然後修該密碼後，執行到第 34行，
Application.CommandBars(16).FindControl(ID:=1561, recursive:=True).Execute
就會出現錯誤訊息 "執行階段錯誤 '91' ，沒有設定物件變數或 With 區塊變數"？？？
另外請教，上述程式碼34行中，所代表的含意是甚麼？
CommandBars(16) 中的 16 有無特別意義？
ID:=1561 中的 1561 有無特別意義？

以上請教，謝謝

JS

帖子: 151
主題: 25
精華: 0
積分: 194
點名: 0
作業系統: WINDOWS 10
軟體版本: Office 2010 或 2021
閱讀權限: 20
性別: 男
註冊時間: 2011-9-6
最後登錄: 2024-11-8

10^#

發表於 2012-8-9 22:02 | 顯示全部帖子

回復 14# Hsieh

感謝超級版主的教導，真是令人開了眼界....
原來 VBA 還有這麼多寶藏，真是高深莫測....

   另外一個問題，我在測試的過程，偶爾會有 Sendkeys 失效的狀況 (我猜測的)
   因為測試連續開啟目錄中 7 個檔案，其中就發生三個檔案需要人工輸入 VBA專案密碼？？？
   請問這樣正常嗎？
   是否因為 Sendkeys 執行過程時間差問題導致密碼沒有 send 成功？？？
   很抱歉，雖然一步一步朝目標邁進，不過還是有遇到問題.....
   煩請解惑，謝謝
JS