Option Explicit
Dim N&
Sub TEST_20230329_1()
Application.DisplayAlerts = False
Dim strAdminPWord As String
Do
strAdminPWord = InputBox("注意，此按鈕會讓白板資訊初始化！", "請輸入密碼")
If strAdminPWord = "6556" Then
MsgBox "密碼正確！ ", vbOKOnly, "恭喜！"
Exit Do
ElseIf StrPtr(strAdminPWord) <> 0 Then
MsgBox "密碼錯誤！", , "殘念∼"
End If
If N = 2 Then ActiveWindow.Close Else N = N + 1: MsgBox "不要氣餒，請繼續加油！"
Loop Until strAdminPWord = "6556"
MsgBox "繼續執行": N = 0
End Sub
Option Explicit
'↑強制明確宣告檔案中的所有變數，或允許隱含宣告變數
Dim N%
'↑宣告模組共用變數:N是短整數(次數累計)
Sub 按鈕1_Click()
Application.DisplayAlerts = False
'↑令程序不要問是否存檔!不存關閉檔案!
Dim strAdminPWord As String
'↑宣告變數:strAdminPWord是字串變數
Do
'↑設無限迴圈!要自己想辦法跳出迴圈
strAdminPWord = InputBox("注意，此按鈕會讓白板資訊初始化！", _
"請輸入密碼")
'↑令strAdminPWord這字串變數是 使用者輸入的對話方塊,~~~~
If strAdminPWord = "6556" Then
'↑如果strAdminPWord變數是 "6556" ??
MsgBox "密碼正確！ ", vbOKOnly, "恭喜！"
'↑令跳出提示窗:~~~~
Exit Do
'↑令程序跳出無限迴圈
ElseIf StrPtr(strAdminPWord) <> 0 Then
'↑令如果StrPtr()回傳值不是0 ??
MsgBox "密碼錯誤！ " & N + 1, , "殘念∼"
'↑令跳出提示窗:~~~~
If N = 2 Then ActiveWindow.Close Else: N = N + 1
'↑如果N這短整數是 2!:就令程序關閉此檔案視窗,
'否則令N變數累加 1
Else
MsgBox "不要氣餒，請繼續加油！"
'↑否則就令跳出提示窗:~~~~
Exit Sub
End If
Loop
N = 0
MsgBox "繼續執行"
發表於 2023-3-29 16:46
| 