禁止使用者使用EXCEL VBE編輯器 - Excel程式區

HUNGCHILIN 發短消息加為好友 HUNGCHILIN (阿吉)當前離線不恥下問,不斷學習,才會進步 UID 27 帖子 647 主題 190 精華 24 積分 1037 金錢 1037 點名 0 作業系統 windows7 軟體版本 Office 2010 ; OOO3.0 ; Google 閱讀權限 100 性別男來自竹南在線時間 783 小時註冊時間 2010-5-2 最後登錄 2022-6-24 　暱稱: 阿吉　頭銜: 不恥下問,不斷學習,才會進步版主帖子 647 主題 190 精華 24 積分 1037 點名 0 作業系統 windows7 軟體版本 Office 2010 ; OOO3.0 ; Google 閱讀權限 100 性別男來自竹南註冊時間 2010-5-2 最後登錄 2022-6-24	*1^# 跳轉到 »* 倒序看帖** 打印字體大小: tT 發表於 2010-5-4 23:34 \| 只看該作者 [原創] 禁止使用者使用EXCEL VBE編輯器 VBE 購買主題已購買人數:20 記錄本主題需向作者支付 5 金錢才能瀏覽收藏分享
	Hung-Chi Lin/林宏吉 HUNGCHILIN/林宏吉的OFFICE專欄

GBKEE

超級版主 Rank: 8 Rank: 8

帖子: 5923
主題: 13
精華: 1
積分: 5986
點名: 0
作業系統: win10
軟體版本: Office 2010
閱讀權限: 150
性別: 男
來自: 台灣基隆
註冊時間: 2010-5-1
最後登錄: 2022-1-23

2017 雞年全勤獎章 2016猴年全勤獎章 2015羊年全勤獎章 2014馬年全勤獎章 2013蛇年全勤獎章 2012龍年全勤獎章論壇貢獻勳章熱烈參與勳章 2011兔年全勤獎章

2^#

發表於 2010-5-7 17:49 | 只看該作者

本帖最後由 GBKEE 於 2010-5-8 14:46 編輯

回復 1# HUNGCHILIN
不知道你的密碼看不到你的內容雖然無法進入 EXCEL VBE編輯器可是你還留了錄製新巨集的指令這道門
我利用巨集指令->編輯進入VBE編輯器寫了以下程式可以正常進入VBE編輯器也恢復VBE編輯器的功能表
Sub Ex()
Dim E As CommandBar
On Error Resume Next
For Each E In Application.VBE.CommandBars
      E.Reset
      E.Enabled = True
      E.Visible = True
Next
For Each E In Application.CommandBars
      E.Reset
Next
End Sub

TOP

luhpro

高中生 Rank: 3 Rank: 3

帖子: 835
主題: 6
精華: 0
積分: 915
點名: 15
作業系統: Win 10,7
軟體版本: 2019,2013,2003
閱讀權限: 50
性別: 男
註冊時間: 2010-5-3
最後登錄: 2024-11-12

3^#

發表於 2010-5-9 09:42 | 只看該作者

本帖最後由 luhpro 於 2010-5-9 09:43 編輯

GBKEE 說到 :
> 不知道你的密碼看不到你的內容雖然無法進入 EXCEL VBE編輯器可是你還留了錄製新巨集 ...
(餘恕刪)

在執行了阿吉的 A19.xls 檔案後發現 :
之後不論執行哪個 Excel 檔案,
只要內含巨集都會 "自動開啟" 阿吉的 A19.xls 中的巨集程式,
導致我自己在別個Excel檔案內設計的程式反而只能執行而無法編輯.

這篇剛好救了我的燃眉之急,
也好在阿吉之前並沒有鎖掉錄製新巨集的功能.^^

TOP

Min

　暱稱: 閔

版主 Rank: 7 Rank: 7 Rank: 7

帖子: 172
主題: 39
精華: 20
積分: 177
點名: 0
作業系統: Microsoft Windows XP
軟體版本: Microsoft Office 2003
閱讀權限: 100
性別: 男
來自: 高雄
註冊時間: 2010-5-1
最後登錄: 2023-3-19

論壇貢獻勳章帥哥勳章

4^#

發表於 2010-5-9 20:05 | 只看該作者

HUNGCHILIN兄小弟用了幾個非正統的方式解開了!
1.首先先由您的專案密碼著手! 所以重新編寫破解(16進位方式...)
2.用VBS CreateObject方式先開啟! 所以可以避過AUTO_OPEN...

以下是HUNGCHILIN兄的程式
Option Explicit
Public Const APPNAME As String = "作者:Hung-Chi Lin"
Private Sub VBProjectProtection()
On Error Resume Next
Application.ScreenUpdating = False

HUNGCHILIN兄的方式果然高招能用如此的方式加密...
對了 HUNGCHILIN兄的程式都沒有縮排小弟看得好辛苦喔>"< 呵呵呵~

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

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

5^#

發表於 2010-5-10 00:18 | 只看該作者

^^那時想沒縮排可以節省檔案大小就都把空格刪了

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

6^#

發表於 2010-5-17 05:46 | 只看該作者

在執行了阿吉的 A19.xls 檔案後發現 :
之後不論執行哪個 Excel 檔案,
只要內含巨集都會 "自動開啟" 阿吉的 A19.xls 中的巨集程式,
導致我自己在別個Excel檔案內設計的程式反而只能執行而無法編輯.

我應如何修正才能擁有原來之編輯功能??????/

TOP

GBKEE

超級版主 Rank: 8 Rank: 8

帖子: 5923
主題: 13
精華: 1
積分: 5986
點名: 0
作業系統: win10
軟體版本: Office 2010
閱讀權限: 150
性別: 男
來自: 台灣基隆
註冊時間: 2010-5-1
最後登錄: 2022-1-23

2017 雞年全勤獎章 2016猴年全勤獎章 2015羊年全勤獎章 2014馬年全勤獎章 2013蛇年全勤獎章 2012龍年全勤獎章論壇貢獻勳章熱烈參與勳章 2011兔年全勤獎章

7^#

發表於 2010-5-17 20:16 | 只看該作者

回復 6# jim
你可再詳看一次這篇中的回復文

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

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

8^#

發表於 2010-5-17 20:26 | 只看該作者

本帖最後由 HUNGCHILIN 於 2010-5-17 20:37 編輯

這個檔案我製作了數年至少五六年以上
我自己都快忘記裡面我寫了什麼
只大概知道是什麼類型的檔
抓了就放上來當此類型的範例
----------------------------------------------------
剛自己下載打開來看看--不開不知道開了嚇一跳
連我自己都忘記我裡面有加入"輸入密碼"才能使用這回事...暈
^^""

關於解除此檔的程式的方法
1.請在此網頁上按 CTRL+A
2.在選擇狀態下到網頁最上方"1#帖處"觀看就可以瞭解解除方法

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

TOP

jim