DEAR ALL 大大
1.圖一為變更密碼之程式.問題點請教如下
1.1 使用數字密碼運作無問題
1.2使用 英文+數字 則 InputBox秀出 "不正確之數字"
2.請問可有解決方式.煩不吝賜教.THANKS*10000
圖一
Sub 變更密碼()
'Sheet3.Range("C2").Value
If Sheet1.Range("F3") = Sheet3.Range("A2") Then
X = Application.InputBox("請輸入原密碼", "輸入新密碼", , , , , , 1)
If X = False Then MsgBox "已取消輸入": Exit Sub Else MsgBox "輸入數值為" & X
If Sheet3.Range("C2").Value <> X Then
MsgBox "舊密碼與資料庫值不同-無法變更-煩重新輸入"
End If
If Sheet3.Range("C2").Value = X Then
If Not (X = "" Or X = " ") Then
i = Application.InputBox("請輸入新密碼", "輸入密碼", , , , , , 1)
J = Application.InputBox("請重覆輸入新密碼", "重覆輸入密碼", , , , , , 1)
If i = False Or J = False Then MsgBox "已取消輸入": Exit Sub Else MsgBox "輸入數值為" & i
End If
If i = J Then
Sheet3.Range("C2").Value = i
MsgBox "密碼變更完成"
End If
If i <> J Then
MsgBox "新密碼-重覆輸入之值不同-無法變更-煩重新輸入"
End If
End If
End If
END SUB |
發表於 2018-12-3 16:17
| 
