[原創] vba專案不可見-oldvba方法與OLDVBALOOK增益集

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

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

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

2^#

發表於 2013-1-16 21:44 | 顯示全部帖子

本帖最後由 HUNGCHILIN 於 2013-1-18 11:37 編輯

VISTA 與 OFFICE2007，應該是微軟推出的產品中被拋棄的最快的階段性軟體
甚至很多人願意使用 XP 與 OFFICE2003，也不願意使用VISTA 與 OFFICE2007
VISTA 與 OFFICE2007我只用了大概1 年多就換2010，現在不到1年又有2013版了
EXCEL 2007以上版本存成 5.0/95格式時.巨集會被移除，所以才說是舊技術

以前直接用手動操作，記得97~2003可以做
1.取一個有巨集的檔案
2.存成EXCEL5.0/95格式
3.檔案做 IsAddin=True
3.然後關閉EXCEL他會問你要不要存檔，選存檔
上述就是手動原理

舊技巧了，所以也沒再加上判斷版本，有興趣您可以參考看看

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

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

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

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

3^#

發表於 2013-1-17 20:26 | 顯示全部帖子

本帖最後由 HUNGCHILIN 於 2013-1-18 12:06 編輯

把EXCEL關掉，EXCEL就會說要不要存檔
按存檔就好
但存檔時會移除VBA 你這樣存檔根本沒用，無法做成VBA專案不可見與鎖定

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

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

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

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

4^#

發表於 2013-1-18 11:47 | 顯示全部帖子

本帖最後由 HUNGCHILIN 於 2013-1-18 12:01 編輯

用這支VBA轉換程式.安裝後2007/2010可以使用此增益集

在EXCEL2010 要存成 EXCEL5.0/95格式會跑出這畫面，存檔後VBA巨集會被移除

這是微軟的回覆:系統要求您 Microsoft Office 線上「 VBA 轉換程式」時，搜尋您嘗試開啟或儲存 Excel 活頁簿
微軟提供了 Hotfix 可供下載http://support.microsoft.com/kb/926430/en-us

附註「下載 Hotfix 」表單會顯示此 Hotfix 會出現，以供使用的語言。如果您沒有看到您的語言，是因為此 Hotfix 是不適用您的語言。

但我建議不要使用此下載的程式
原因在於通用性做出來的東西其他電腦不能使用，除非再安裝VBA轉換程式.程式會受限

除非p.s.隨著科技的進步 excel5.0/95 在 Excel2010無法使用此工具也成為阿吉近期捨棄的一項技術
不過如果您即將離開單位或公司.使用此工具來保護VBA 是個不錯的選擇.因為只要公司換Excel2010版以上版本，使用此原理保護過的檔案就不能用了

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

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

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

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

5^#

發表於 2013-1-18 11:53 | 顯示全部帖子

使用此增益集製作出的VBA專案保護檔案

直接按存檔時會不能存檔如[原創] 您無儲存被保護的VBAProject

此時把ISADDIN=FALSE.顯現活頁簿，再另存成最新檔案格式如 'EXCEL97-2003格式 OR XLSM格式就可以存檔

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

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

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

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

6^#

發表於 2013-1-18 19:50 | 顯示全部帖子

本帖最後由 HUNGCHILIN 於 2013-1-19 00:59 編輯

回復 9# lin

這種VB專案鎖定解除方法，主要有兩種

1.轉換法: 把已用此法鎖定的EXCEL檔案開啟後做 isaddin=false，另存檔案為 97-2003格式，再用[vba加鎖解鎖器]解除vba專案不可檢視，就完成解除(這是最常見的方式)

2.一般用法:把已用此法鎖定的EXCEL檔案開啟後做 isaddin=false，另存檔案為 97-2003格式，再保護且共用活頁簿，然後再取消保護且共用活頁簿，就完成解除(這是不常見的方式，只有這方法才可用) 用這個方法解除，再加上前帖手動原理鎖定，根本不需要任何工具就可操作此技巧，所以阿吉喜歡此技巧，因為不用帶工具

以上方法就可以解除此法的vba專案不可檢視

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

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

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

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

7^#

發表於 2013-1-19 00:51 | 顯示全部帖子

本帖最後由 HUNGCHILIN 於 2013-1-19 01:04 編輯

回復 11# lin
這是簡單的顯示方法...不用破解vb專案就可以操作
先借別的活頁簿的vb模組當殼放進去執行就可以
Sub IsAddinFalse()
Workbooks("BOOK1.xls").IsAddin = False
End Sub

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

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

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

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

8^#

發表於 2013-1-30 12:32 | 顯示全部帖子

回復 13# lin

阿吉兄:
承蒙指導，萬分感謝，執行「vba專案不可見-oldvba方法與OLDVBALOOK增益集」，開啟檔案更改屬性後再另存成最新檔案，產生疑問有三：

ANS:
1.這是vba專案不可見的方法之一.重開啟後當然不能見本檔案巨集，也當然不能不能添加巨集。要不做這功能做甚麼
2.這是使用EXCEL5.0的作法，新的功能如userform當然無法使用
3.這個我其他貼有說過了，唯讀檔案用此方法或VBA加鎖解鎖器都不能直接做vba專案不可見鎖定與破解，除非先解除唯讀在做

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

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

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

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

9^#

發表於 2013-2-3 00:29 | 顯示全部帖子

回復 15# lin

解鎖後是可錄制與增加巨集，您有照上面完成破解，試試就知道

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

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

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

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

10^#

發表於 2013-2-5 23:10 | 顯示全部帖子

本帖最後由 HUNGCHILIN 於 2013-2-6 13:42 編輯

回復 17# lin

我可以確定您沒有專心看第#8、#10帖，VBA鎖定也沒破解開來，才一直重複問同樣的問題
我想請您先用#10帖的方法 1 或方法2 先做一次，前面那幾帖您都只做一半，根本沒照 #10法1法2 做

您存成97-2003格式後.有再用 VBA專案加鎖解鎖器再做一次解鎖嗎?(法1)，或者做鎖定共用活頁簿，再解除鎖定共用活頁簿(法2)
您後半段步驟都沒做能破解?枉費我#10帖打那麼多字，都沒在看

照上述做您到底卡在哪邊?
*沒做LWorkbooks("BOOK1.xls").IsAddin = False?
*沒另存檔案為 97-2003格式 OR XLSM?
*沒再用 VBA專案加鎖解鎖器再做一次解鎖嗎?(法1)，或者做鎖定共用活頁簿，再解除鎖定共用活頁簿(法2)?

#13~#17都是衍伸出來的沒有用的帖

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