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

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

2^#

發表於 2015-9-28 00:56 | 顯示全部帖子

回復 2# lpk187

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

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

3^#

發表於 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

複製代碼

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

4^#

發表於 2015-9-28 13:09 | 顯示全部帖子

回復 5# lpk187

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

:dizzy:

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

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

5^#

發表於 2015-9-28 14:39 | 顯示全部帖子

回復 8# lpk187

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

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

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

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

6^#

發表於 2015-9-28 14:39 | 顯示全部帖子

回復 7# GBKEE

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

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

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