返回列表 上一主題 發帖

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

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

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

自動解開工作簿設定的密碼.tar (39 KB)
共有兩個檔案
活頁簿1抓取活頁簿2
活頁簿有設定密碼保護
請問如何使用VBA自動解開活頁簿設定的密碼,不要跳出視窗來需人工按掉,謝謝!
(PS: 密碼是已知的情況   PASSWORD: 122333 )
請詳閱 論壇版規愛惜帳號,一起創造美好的學習討論空間。

網路上查來的

Application.DisplayAlerts = False
Workbooks.Open "BOOK2.XLS的檔案路徑", WriteResPassword:="1234"

TOP

回復 2# prin.huang

試過這個程式碼,仍會跳出輸入密碼的視窗
請詳閱 論壇版規愛惜帳號,一起創造美好的學習討論空間。

TOP

回復 3# chiang0320

假設兩檔案在同目錄下
Workbooks.Open ThisWorkbook.Path & "\活頁簿2.xlsx", Password:="122333"
學海無涯_不恥下問
請詳閱 論壇版規愛惜帳號,一起創造美好的學習討論空間。

TOP

try this:
  1. Sub zz()
  2. Dim ar, b(), d As Object, f, k, t
  3. Set d = CreateObject("scripting.dictionary")
  4. ar = Sheets(1).[b1048576].End(3).CurrentRegion.Value
  5. For i = 1 To UBound(ar)
  6.     d(ar(i, 1)) = ""
  7. Next
  8. f = Application.GetOpenFilename
  9. If f = "Fasle" Or f = "" Then Exit Sub
  10. Application.ScreenUpdating = 0
  11. Workbooks.Open Filename:=f, Password:="122333"
  12. ar = Sheets(1).[b1048576].End(3).CurrentRegion.Value
  13. ReDim b(UBound(ar, 2) - 1)
  14. ActiveWorkbook.Close 0
  15. For i = 1 To UBound(ar)
  16.     If d.exists(ar(i, 1)) Then
  17.         For j = 1 To UBound(ar, 2)
  18.             b(j - 1) = ar(i, j)
  19.         Next
  20.         d(ar(i, 1)) = b
  21.     End If
  22. Next
  23. t = d.items
  24. Sheets(1).[b1].End(4).Select
  25. Sheets(1).[b1].End(4).Resize(d.Count, UBound(ar, 2)) = Application.Transpose(Application.Transpose(t))
  26. Application.ScreenUpdating = 1
  27. End Sub
複製代碼
請詳閱 論壇版規愛惜帳號,一起創造美好的學習討論空間。

TOP

回復 4# Hsieh

Hsieh 版主  謝謝!

已經不會跳出視窗
請詳閱 論壇版規愛惜帳號,一起創造美好的學習討論空間。

TOP

回復 4# Hsieh

請問Hsieh 版主  

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

    Workbooks.Open ThisWorkbook.Path & "C:\Users\C0001\Desktop\自動解開工作簿設定的密碼\活頁簿2.xlsx", Password:="122333"
請詳閱 論壇版規愛惜帳號,一起創造美好的學習討論空間。

TOP

回復 7# chiang0320

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

'依據路徑,打開總表檔案
    MMMpath = Sheets("檔案路徑").Range("D6").Value
    Workbooks.Open MMMpath & "\活頁簿2.xlsx", Password:="122333"
請詳閱 論壇版規愛惜帳號,一起創造美好的學習討論空間。

TOP

        靜思自在 : 君子如水,隨方就圓,無處不自在。
返回列表 上一主題