[發問] 請教各位先進，如何禁用view code功能？

本帖最後由 mmxxxx 於 2014-11-12 09:09 編輯

撰寫SPC xBar & R Chart程式，使用Excel VBA,
Excel畫面的Ribon,狀態列...均藏起來，只剩sheet-tab及標題.
為保護程式碼，也加密碼，工作表右鍵也鎖住，
但仍無法阻止Alt-F11 及在Sheet-tab上按右鍵的View Code進入VBE.
有何方法可阻止，不讓使用者無法進入VBE.

感謝。

樓主熱帖

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^#

發表於 2014-11-12 16:06 | 只看該作者

回復 1# mmxxxx
為保護程式碼，也加密碼是這樣做嗎?

感恩的心......(在麻辣家族討論區.用心學習會有進步的)
但資源無限,後援有限, 一天1元的贊助,人人有能力.

TOP

mmxxxx

中學生 Rank: 2

帖子: 61
主題: 7
精華: 0
積分: 72
點名: 0
作業系統: win 7
軟體版本: Office 2010
閱讀權限: 20
性別: 男
註冊時間: 2014-11-4
最後登錄: 2015-9-16

3^#

發表於 2014-11-12 16:13 | 只看該作者

是的, 加密有設定.
如何不讓VBE的環境, 可以進入.
google查到的方法, 試不出來.
如下請參考.
'// Run DisableGettingIntoVBE from a Event procedure
'// eg. Workbook_Open or Worksheet_Activate

'// THEN run EnableGettingIntoVBE from the Opp Event procedure
'// eg. Workbook_Close or Worksheet_Deactivate

Sub DisableVBE()
Application.VBE.MainWindow.Visible = False '// Close ALL windows 1st!
CmdControl 1695, False                   '// Visual basics Editor
CmdControl 186, False                   '// Macros...
CmdControl 184, False                   '// Record New Macro...
CmdControl 1561, False                   '// View Code
CmdControl 1605, False                   '// Design Mode
Application.OnDoubleClick = "Dummy"
CommandBars("ToolBar List").Enabled = False
Application.OnKey "%{F11}", "Dummy"
End Sub

Sub EnableVBE()
CmdControl 1695, True                   '// Visual basics Editor
CmdControl 186, True                   '// Macros...
CmdControl 184, True                   '// Record New Macro...
CmdControl 1561, True                   '// View Code
CmdControl 1605, True                   '// Design Mode
Application.OnDoubleClick = ""
CommandBars("ToolBar List").Enabled = True
Application.OnKey "%{F11}", ""
End Sub

Sub CmdControl(Id As Integer, TF As Boolean)
  Dim CBar As CommandBar
  Dim C As CommandBarControl
  On Error Resume Next
  For Each CBar In Application.CommandBars
Set C = CBar.FindControl(Id:=Id, recursive:=True)
If Not C Is Nothing Then C.Enabled = TF
  Next
End Sub

Sub Dummy()
'// NoGo, leave blank OR Display a message eg.
'MsgBox "Sorry you this command is NOT available", vbCritical
End Sub

TOP

GBKEE