missbb

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

1^# 跳轉到 » 正序看帖

打印

字體大小: tT

發表於 2015-9-27 23:30 | 只看該作者

[發問] 如何禁止使用VBA按鈕

請問我在一個活頁部內, 有一個工作表"目錄"是有按鈕並設有巨集, 因活頁部有多人使用, 我將工作表"目錄"保護, 但仍是可以按鍵執行巨集, 只是不能修改工作表內容.

請問除了隱藏工作表外, 尚有甚麼方法?

請賜教!

樓主熱帖

koo

中學生 Rank: 2

帖子: 60
主題: 4
精華: 0
積分: 64
點名: 0
作業系統: w7-32
軟體版本: 2013.2003
閱讀權限: 20
註冊時間: 2014-11-23
最後登錄: 2016-6-6

15^#

發表於 2015-10-24 16:38 | 只看該作者

本帖最後由 koo 於 2015-10-24 16:39 編輯

建議一下:輸入對了就執行程序..輸入錯誤就離開Sub
再把程序上鎖
不然會有"按鈕仍是灰色"問題

Private Sub CommandButton1_Click()
x = InputBox("請輸入密碼", "密碼")
If x = 12345 Then
Call Splitbook
Else
MsgBox "輸入錯誤"
Exit Sub
End If
End Sub
Sub Splitbook()

複製代碼

TOP

missbb

中學生 Rank: 2

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

14^#

發表於 2015-10-2 21:54 | 只看該作者

回復 13# lpk187

多謝指導!

TOP

lpk187

高中生 Rank: 3 Rank: 3

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

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按鈕為不何使用狀態

下圖則為，密碼輸入對後可使用狀態

TOP

missbb

中學生 Rank: 2

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

12^#

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

回復 11# 准提部林

成功了, 感謝指導.

TOP

准提部林

版主 Rank: 7 Rank: 7 Rank: 7

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

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

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

10^#

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

回復 7# GBKEE

抱歉打擾了, 試了兩位大大的方法, 尚有小問題:

GBKEE的方法, 密碼對時無問題, 但如密碼錯誤後, 仍會執行.

Lpk187的方法, 不論密碼對時無問題, 但執行VBA後按鈕變灰, 關閉檔案再開, 按鈕仍是灰色. 如密碼錯誤後, 按鈕變灰, 關閉檔案再開, 按鈕仍是灰色.

TOP

missbb

中學生 Rank: 2

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

9^#

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

回復 8# lpk187

抱歉打擾了, 試了兩位大大的方法, 尚有小問題:

GBKEE的方法, 密碼對時無問題, 但如密碼錯誤後, 仍會執行.

Lpk187的方法, 不論密碼對時無問題, 但執行VBA後按鈕變灰, 關閉檔案再開, 按鈕仍是灰色. 如密碼錯誤後, 按鈕變灰, 關閉檔案再開, 按鈕仍是灰色.

TOP

lpk187

高中生 Rank: 3 Rank: 3

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

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

8^#

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

回復 6# missbb

aa = InputBox("請輸入密碼")
pass = "12345"
If aa = pass Then
CommandButton1.Enabled = True
Else
CommandButton1.Enabled = False
MsgBox "錯誤輸入"
Exit Sub
End If

TOP

GBKEE