HUNGCHILIN

　暱稱: 阿吉
　頭銜: 不恥下問,不斷學習,才會進步

版主 Rank: 7 Rank: 7 Rank: 7

帖子: 647
主題: 190
精華: 24
積分: 1037
點名: 0
作業系統: windows7
軟體版本: Office 2010 ; OOO3.0 ; Google
閱讀權限: 100
性別: 男
來自: 竹南
註冊時間: 2010-5-2
最後登錄: 2022-6-24

貴賓勳章熱烈參與勳章好學求知勳章

1^# 跳轉到 » 倒序看帖

打印

字體大小: tT

發表於 2011-2-19 13:36 | 只看該作者

[原創] 使用VBA開啟另一個帶有檔案保護的EXCEL檔

本帖最後由 HUNGCHILIN 於 2011-2-19 16:05 編輯

這一則是很簡單的一個小技巧與想法的實現

運用時機與想法:
1.檔案有設定保護密碼時，不想跟別人說密碼
2.檔案有設定保護密碼時，怕密碼忘記
3.檔案有設定保護密碼時，不想每次自己打密碼

紫微斗數排盤程式.part1.rar (1.43 MB)

紫微斗數排盤程式.part2.rar (1018.94 KB)

紫微斗數排盤程式KEY.rar (5.07 KB)

P.S.
4.KEY製成EXE檔時可讓KEY檔與KEY所開啟的檔案避開巨集安全設定
也是一個，檔案有設定保護密碼時，檔案避開巨集安全設定的一個方法

紫微斗數排盤程式KEYexed.rar (6.66 KB)

我們在ThisWorkbook 中輸入下列簡單程序就可完成

Option Explicit
Private Sub Workbook_Open()
On Error GoTo ERROR1
Dim pa As String
pa = Application.GetOpenFilename
Workbooks.Open Filename:=pa, Password:="11686106"
ERROR1: ThisWorkbook.Close
End Sub

複製代碼

樓主熱帖

Hung-Chi Lin/林宏吉
HUNGCHILIN/林宏吉的OFFICE專欄

v60i

中學生 Rank: 2

帖子: 106
主題: 25
精華: 0
積分: 141
點名: 0
作業系統: XP
軟體版本: 2003
閱讀權限: 20
註冊時間: 2011-10-27
最後登錄: 2016-4-10

2^#

發表於 2011-11-26 02:16 | 只看該作者

被'防毒檔住了= =

TOP

HUNGCHILIN

　暱稱: 阿吉
　頭銜: 不恥下問,不斷學習,才會進步

版主 Rank: 7 Rank: 7 Rank: 7

帖子: 647
主題: 190
精華: 24
積分: 1037
點名: 0
作業系統: windows7
軟體版本: Office 2010 ; OOO3.0 ; Google
閱讀權限: 100
性別: 男
來自: 竹南
註冊時間: 2010-5-2
最後登錄: 2022-6-24

貴賓勳章熱烈參與勳章好學求知勳章

3^#

發表於 2011-11-26 12:14 | 只看該作者

^^ 這個KEY.EXE 確實會被防毒軟體隔離

當然這個KEY 的VBA代碼已經放上來了許久
我們可以隨時用EXCEL檔放入VBA代碼作一個新的KEY檔
只是沒有作成EXE檔

Hung-Chi Lin/林宏吉
HUNGCHILIN/林宏吉的OFFICE專欄

TOP

jim

中學生 Rank: 2

帖子: 87
主題: 26
精華: 0
積分: 119
點名: 0
作業系統: win 7
軟體版本: office2003
閱讀權限: 20
性別: 男
來自: taiwan
註冊時間: 2010-5-7
最後登錄: 2020-9-28

4^#

發表於 2012-3-29 16:29 | 只看該作者

HUNGCHILIN 兄
請教 KEYexed 檔如果直接鍵入在某個 XLS內 (Sheet1.xls)而此Sheet1.xls放在桌面上是否可行
(即安全性為高或最高均衡執行vba) 因為我試著執行你的KEYexed檔 = pa是選項
我想當直接執行在桌面上的Sheet1.xls檔時不管其安全性如何均可執行vba

TOP

HUNGCHILIN