missbb

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

1^# 跳轉到 » 倒序看帖

打印

字體大小: tT

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

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

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

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

請賜教!

樓主熱帖

lpk187

高中生 Rank: 3 Rank: 3

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

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

2^#

發表於 2015-9-28 00:03 | 只看該作者

回復 1# missbb

按鈕必須是ActiveX是控制項
其屬性為.Enabled，可控制可使用或不可使用
例如：
CommandButton1.Enabled = False'為不可使用
CommandButton1.Enabled =True'為可使用

當然你必須寫一巨集，利用密碼來掌控可否使用
在 Workbook_Open關閉使用如下
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 = False
End If
End Sub

TOP

missbb

中學生 Rank: 2

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

3^#

發表於 2015-9-28 00:56 | 只看該作者

回復 2# lpk187

感謝解答!:) 中秋節快樂!

TOP

missbb

中學生 Rank: 2

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

4^#

發表於 2015-9-28 12:33 | 只看該作者

回復 2# lpk187
你好, 我加入了密碼錯誤出現MSGBOX及退出, 但COMMANDBUTTON變了灰色, 請問問題在那??求指點?

03 VBA 另存新檔 OK 20150928.rar (27.31 KB)

Private Sub CommandButton1_Click()
Call Splitbook
End Sub
Sub Splitbook()
aa = InputBox("請輸入密碼")
pass = "12345"
If aa = pass Then
CommandButton1.Enabled = False
If aa <> pass Then
MsgBox "錯誤輸入"
End If
End If
Dim xPath As String
xPath = Application.ActiveWorkbook.Path
Application.ScreenUpdating = False
Application.DisplayAlerts = False
For Each xWs In ThisWorkbook.Sheets
xWs.Copy
Application.ActiveWorkbook.SaveAs Filename:=xPath & "\" & xWs.Name & ".xlsx"
Application.ActiveWorkbook.Close False
Next
Application.DisplayAlerts = True
Application.ScreenUpdating = True
End Sub

複製代碼

TOP

lpk187

高中生 Rank: 3 Rank: 3

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

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

5^#

發表於 2015-9-28 12:56 | 只看該作者

回復 4# missbb

If aa = pass Then
CommandButton1.Enabled = False<<這裡應該為True才對，不好意思。

TOP

missbb

中學生 Rank: 2

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

6^#

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

回復 5# lpk187

我試了OK, 但如密碼不符卻沒有出現MSGBOX, 而會繼續執行儲存, 是CALL的錯誤?

:dizzy:

03 VBA 另存新檔 OK 20150928 v2.rar (28.09 KB)

TOP

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兔年全勤獎章

7^#

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

回復 6# missbb
試試看

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

複製代碼

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

TOP

lpk187

高中生 Rank: 3 Rank: 3

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

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

missbb

中學生 Rank: 2

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

9^#

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

回復 8# lpk187

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

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

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

TOP

missbb

中學生 Rank: 2

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

10^#

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

回復 7# GBKEE

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

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

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

TOP