12
返回列表 上一主題 發帖

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

missbb

帖子
215 
主題
70 
精華
0 
積分
290 
點名
0  
作業系統
window xp 
軟體版本
2007 
閱讀權限
20 
性別
女 
註冊時間
2012-6-27 
最後登錄
2024-1-29 
6# 跳轉到 »
發表於 2015-9-28 13:09 | 只看該作者
回復 5# lpk187

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

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

TOP

lpk187

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

2016猴年全勤獎章2015羊年全勤獎章熱烈參與勳章
5#
發表於 2015-9-28 12:56 | 只看該作者
回復 4# missbb


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

TOP

missbb

帖子
215 
主題
70 
精華
0 
積分
290 
點名
0  
作業系統
window xp 
軟體版本
2007 
閱讀權限
20 
性別
女 
註冊時間
2012-6-27 
最後登錄
2024-1-29 
4#
發表於 2015-9-28 12:33 | 只看該作者
回復 2# lpk187
你好, 我加入了密碼錯誤出現MSGBOX及退出, 但COMMANDBUTTON變了灰色, 請問問題在那??求指點? 03 VBA 另存新檔 OK 20150928.rar (27.31 KB)
  1. Private Sub CommandButton1_Click()
  2. Call Splitbook
  3. End Sub

  5. Sub Splitbook()

  7. aa = InputBox("請輸入密碼")
  8. pass = "12345"
  9. If aa = pass Then
  10.     CommandButton1.Enabled = False
  11. If aa <> pass Then
  12. MsgBox "錯誤輸入"
  13. End If

  15. End If


  18. Dim xPath As String
  19. xPath = Application.ActiveWorkbook.Path
  20. Application.ScreenUpdating = False
  21. Application.DisplayAlerts = False
  22. For Each xWs In ThisWorkbook.Sheets
  23.     xWs.Copy
  24.     Application.ActiveWorkbook.SaveAs Filename:=xPath & "\" & xWs.Name & ".xlsx"
  25.     Application.ActiveWorkbook.Close False
  26. Next
  27. Application.DisplayAlerts = True
  28. Application.ScreenUpdating = True
  29. End Sub
複製代碼

TOP

missbb

帖子
215 
主題
70 
精華
0 
積分
290 
點名
0  
作業系統
window xp 
軟體版本
2007 
閱讀權限
20 
性別
女 
註冊時間
2012-6-27 
最後登錄
2024-1-29 
3#
發表於 2015-9-28 00:56 | 只看該作者
回復 2# lpk187

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

TOP

lpk187

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

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

        靜思自在 : 愛不是要求對方，而是要由自身的付出。
12
返回列表 上一主題