[發問] 保護vba源碼的方法探討

帖子: 50
主題: 8
精華: 0
積分: 66
點名: 0
作業系統: WIN7
軟體版本: OFFICE 2013
閱讀權限: 20
性別: 男
註冊時間: 2015-2-3
最後登錄: 2022-3-5

2^#

發表於 2016-5-29 04:35 | 只看該作者

小弟先在此拋磚引玉一下，想到一個解決方案

在vba寫下一段程式碼
只要visual Basic或巨集這二個功能被點擊開啟，就出現一組密碼。
輸入錯誤，這彈出的vbe視窗或巨集視窗立刻自動關閉。

可能得用到尋找窗體的功能

但如何寫到偵測這二個窗體被打開，系統不斷偵測這二個視窗的狀況卻又不佔資源，可能得再想一想可行性了。

EXCEL VBA新手，請前輩多多指教

PKKO

　暱稱: PKKO

高中生 Rank: 3 Rank: 3

帖子: 549
主題: 152
精華: 0
積分: 691
點名: 0
作業系統: WIN7
軟體版本: OFFICE 2010
閱讀權限: 50
性別: 男
註冊時間: 2013-8-10
最後登錄: 2022-9-7

論壇榮譽勳章論壇贊助勳章

3^#

發表於 2016-5-29 12:20 | 只看該作者

回復 2# ketrddem

Lockxls=>付費軟體
將EXCEL轉為.EXE檔案
參考之~
http://www.lockxls.com/product.asp

PKKO

帖子: 50
主題: 8
精華: 0
積分: 66
點名: 0
作業系統: WIN7
軟體版本: OFFICE 2013
閱讀權限: 20
性別: 男
註冊時間: 2015-2-3
最後登錄: 2022-3-5

4^#

發表於 2016-5-29 21:57 | 只看該作者

回復 3# PKKO

哇，看了售價
這付費軟體也太貴了吧

EXCEL VBA新手，請前輩多多指教

Scott090

高中生 Rank: 3 Rank: 3

帖子: 519
主題: 54
精華: 0
積分: 595
點名: 247
作業系統: win 10
軟體版本: []
閱讀權限: 50
性別: 男
註冊時間: 2013-3-19
最後登錄: 2024-11-11

2023年全勤獎章 2022虎年全勤獎章 2021牛年全勤獎章 2020鼠年全勤獎章 2019 豬年全勤獎章 2018 狗年全勤獎章 2017 雞年全勤獎章 2016猴年全勤獎章論壇榮譽勳章論壇贊助勳章 2015羊年全勤獎章

5^#

發表於 2016-5-30 08:28 | 只看該作者

回復 1# ketrddem

以下是另一思考模式，不知是否可行?
Private Sub Workbook_Open()
(是否能在這個地方寫一段vab 以byte 的方式讀取 workbook 搜尋放置密碼的地方，並置入自己的密碼?)
End Sub

stillfish00

大學生 Rank: 4

帖子: 1018
主題: 15
精華: 0
積分: 1058
點名: 0
作業系統: win7 32bit
軟體版本: Office 2016 64-bit
閱讀權限: 50
性別: 男
來自: 桃園
註冊時間: 2012-5-9
最後登錄: 2022-9-28

6^#

發表於 2016-5-30 10:51 | 只看該作者

回復 1# ketrddem
有興趣可以參考大師的研究
http://forum.twbts.com/viewthread.php?tid=51

表達不清、題意不明確、沒附檔案格式、沒有討論問題的態度~~~~~~以上愛莫能助。

帖子: 50
主題: 8
精華: 0
積分: 66
點名: 0
作業系統: WIN7
軟體版本: OFFICE 2013
閱讀權限: 20
性別: 男
註冊時間: 2015-2-3
最後登錄: 2022-3-5

7^#

發表於 2016-5-30 18:16 | 只看該作者

回復 6# stillfish00

有在關注這位版主的文章
但有些方法都已有破解法
小弟因寫出一套系統，想說可以嚐試拿出來賣，但.....源碼的保護是我最確切要完美實現的部份

EXCEL VBA新手，請前輩多多指教

帖子: 50
主題: 8
精華: 0
積分: 66
點名: 0
作業系統: WIN7
軟體版本: OFFICE 2013
閱讀權限: 20
性別: 男
註冊時間: 2015-2-3
最後登錄: 2022-3-5

8^#

發表於 2016-5-30 18:18 | 只看該作者

回復 5# Scott090

重點有「vb專案不可現」的實現
如果以現有vb專案的密碼保護，破解方法根本不用開啟本檔，而是用另一個軟體，指定檔案路徑就可以將密碼取消掉
如果有方法讓vbe完全打不開，那就完美了。
或是vbe打開了，馬上被關掉，那也蠻不錯的。

EXCEL VBA新手，請前輩多多指教

帖子: 50
主題: 8
精華: 0
積分: 66
點名: 0
作業系統: WIN7
軟體版本: OFFICE 2013
閱讀權限: 20
性別: 男
註冊時間: 2015-2-3
最後登錄: 2022-3-5

9^#

發表於 2016-5-30 19:24 | 只看該作者

禁用VBE編輯窗口

Option Explicit
Private Sub Workbook_BeforeClose(Cancel As Boolean)
vbewin = False
End Sub
Private Sub Workbook_Open()
'檔案開啟前先關閉VBE視窗(如果VBE視窗已開啟)
If Application.VBE.MainWindow.Visible Then
Application.VBE.CommandBars.FindControl(ID:=752).Execute
End If
vbewin = True
VBEwindow
End Sub
'-----------------------------------------------------------------
Public Declare Function GetActiveWindow Lib "user32" () As Long
Public Declare Function GetClassName Lib "user32" Alias "GetClassNameA" (ByVal hwnd As Long, _
ByVal lpClassName As String, ByVal nMaxCount As Long) As Long
Public vbewin As Boolean
Sub VBEwindow()
'直到檔案關閉
Do While vbewin
DoEvents
Call CheckVBE_Event
Loop
End Sub
Sub CheckVBE_Event()
Dim hwnd As Long
Dim WText As String
Dim L As Long: L = 255
WText = String(255, " ")
'取得當前視窗 Hwnd
hwnd = GetActiveWindow
'取得當前視窗類別名稱
L = GetClassName(hwnd, WText, L)
WText = Left(WText, L)
'VBE視窗的類別名稱為:wndclass_desked_gsk
If WText = "wndclass_desked_gsk" Then
MsgBox "已偵測到VBE視窗開啟，VBE視窗將自行關閉"
'關閉VBE視窗
Application.VBE.CommandBars.FindControl(ID:=752).Execute
End If
End Sub

'----------------------------------------------------------------------------------------------
說明:
Excel 視窗的 ClassName="XLMAIN"
Application.VBE.CommandBars.FindControl(ID:=752)就是VBE視窗中的檔案=>關閉並回到 MicrosoftExcel
VBE 視窗的 ClassName="wndclass_desked_gsk"
UserForm 視窗的 ClassName="" ThunderDFrame"，如果是Excel 97版(含)以後的則為 ClassName="ThunderXFrame"

在網路上找到這個教學
但不知是不是版本問題
我試過了
結果變成全部的功能鍵全都被禁止了，只剩下儲存格可以使用。
有沒有高手願意出手相助，看一下是那一段程式碼須修改的呢?
小弟使用的是 office 2013 32位元

EXCEL VBA新手，請前輩多多指教

stillfish00

大學生 Rank: 4

帖子: 1018
主題: 15
精華: 0
積分: 1058
點名: 0
作業系統: win7 32bit
軟體版本: Office 2016 64-bit
閱讀權限: 50
性別: 男
來自: 桃園
註冊時間: 2012-5-9
最後登錄: 2022-9-28

10^#

發表於 2016-5-31 10:17 | 只看該作者

回復 9# ketrddem
老實說打開時不啟用巨集或是按Shift打開跳過workbook_open()，那就沒用了。
用VBA程式來保護的方法，基本上都要面對這個問題。

表達不清、題意不明確、沒附檔案格式、沒有討論問題的態度~~~~~~以上愛莫能助。