如何禁止使用VBA按鈕 - Excel程式區

帖子: 2833
主題: 10
精華: 0
積分: 2889
點名: 0
作業系統: 〔略〕
軟體版本: 〔略〕
閱讀權限: 100
性別: 男
來自: 〔略〕
註冊時間: 2013-5-13
最後登錄: 2024-11-15

11^# 跳轉到 »

發表於 2015-9-28 14:53 | 只看該作者

Sub Splitbook()
AA = InputBox("請輸入密碼")
If AA = "" Then Exit Sub
If AA <> "12345" Then MsgBox "※密碼錯誤! ": Exit Sub
　
～～接另存檔程式碼～～
End Sub

密碼未輸入或錯誤，直接跳開，不需對按鈕另作處理～～

TOP

missbb

中學生 Rank: 2

帖子: 216
主題: 71
精華: 0
積分: 292
點名: 0
作業系統: window xp
軟體版本: 2007
閱讀權限: 20
性別: 女
註冊時間: 2012-6-27
最後登錄: 2024-9-28

12^#

發表於 2015-9-28 15:13 | 只看該作者

回復 11# 准提部林

成功了, 感謝指導.

TOP

lpk187

高中生 Rank: 3 Rank: 3

帖子: 552
主題: 3
精華: 0
積分: 578
點名: 0
作業系統: win7
軟體版本: office 2010
閱讀權限: 50
性別: 男
註冊時間: 2015-2-8
最後登錄: 2024-7-9

2016猴年全勤獎章 2015羊年全勤獎章熱烈參與勳章

13^#

發表於 2015-9-28 17:34 | 只看該作者

回復 9# missbb

你應該看清楚2樓的解說，
CommandButton1.Enabled = False'為不可使用，會變成灰色的
CommandButton1.Enabled =True'為可使用，會成為正常可使用情況
，而2樓的例子
在 Workbook_Open時，會關閉按鈕的使用，直到執行pas程式時方可解開按鈕的使用
Private Sub Workbook_Open()
Worksheets("工作表1").CommandButton1.Enabled = False
End Sub
下再利用巨集來啟用它
Private Sub pas_Click()
aa = InputBox("請輸入密碼")
pass = "12345"
If aa = pass Then
CommandButton1.Enabled = True'密碼對時，則CommandButton1按鈕變可以使用，
Else
CommandButton1.Enabled = False'密碼錯誤時，則CommandButton1則維持不組使用，按鈕為灰色的
MsgBox "錯誤輸入"
Exit Sub'密碼錯誤時跳出程式，甚至不能執行下面程式
End If

...
...
...

End Sub
這程式例子，是說明，當打開檔案時，CommandButton1按鈕為不可以使用，
直到使用者，按下pas 按鈕時，密碼對時，才可以使用CommandButton1按鈕，繼續可以使用其他巨集程式否則為保護狀態！如下圖：
開啟檔案時，CommandButton1按鈕為不何使用狀態