返回列表 上一主題 發帖

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

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

建議一下:輸入對了就執行程序..輸入錯誤就離開Sub
再把程序上鎖
不然會有"按鈕仍是灰色"問題
  1. Private Sub CommandButton1_Click()
  2. x = InputBox("請輸入密碼", "密碼")
  3. If x = 12345 Then
  4.     Call Splitbook
  5. Else
  6.     MsgBox "輸入錯誤"
  7.     Exit Sub
  8. End If
  9. End Sub

  10. Sub Splitbook()
複製代碼

TOP

        靜思自在 : 為自己找藉口的人永遠不會進步。
返回列表 上一主題