以下是HUNGCHILIN兄的程式
Option Explicit
Public Const APPNAME As String = "作者:Hung-Chi Lin"
Private Sub VBProjectProtection()
On Error Resume Next
Application.ScreenUpdating = False
回復 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
發表於 2010-5-10 00:18
| 
發表於 2010-5-9 09:42
| 
發表於 2010-5-7 17:49
| 