- 帖子
- 60
- 主題
- 4
- 精華
- 0
- 積分
- 64
- 點名
- 0
- 作業系統
- w7-32
- 軟體版本
- 2013.2003
- 閱讀權限
- 20
- 註冊時間
- 2014-11-23
- 最後登錄
- 2016-6-6
|
本帖最後由 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()
|
|
發表於 2015-10-24 16:38
| 