[發問] 驗證三次錯誤後關閉EXCEL

各位大大最近在幫單位改善報表
以下是我寫的輸入密碼的內容，但長官需要驗證三次錯誤後關閉EXCEL，可否幫我修正一下  感謝各位高人
Sub 按鈕1_Click()

Dim strAdminPWord As String

Do

      strAdminPWord = InputBox("注意，此按鈕會讓白板資訊初始化！", "請輸入密碼")

      If strAdminPWord = "6556" Then
         MsgBox "密碼正確！ ", vbOKOnly, "恭喜！"
         Exit Do

      ElseIf StrPtr(strAdminPWord) <> 0 Then
      MsgBox "密碼錯誤！", , "殘念～"
      Exit Sub '離開程式

      End If
      MsgBox "不要氣餒，請繼續加油！"
Loop Until StrPtr(strAdminPWord) <> 0

MsgBox "繼續執行"
End Sub

樓主熱帖

Andy2483

　暱稱: 厚臉皮的學生

大學生 Rank: 4

帖子: 1425
主題: 40
精華: 0
積分: 1449
點名: 0
作業系統: Windows 7
軟體版本: Excel 2010 & 2016
閱讀權限: 50
性別: 男
來自: 台灣
註冊時間: 2020-7-15
最後登錄: 2024-4-16

2^#

發表於 2023-3-29 16:46 | 只看該作者

回復 1# cowww

謝謝前輩發表此主題與情境
以下是後學學習方案,請前輩參考

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

用行動裝置瀏覽論壇學習很方便,謝謝論壇經營團隊
請大家一起上論壇來交流

TOP

cowww

中學生 Rank: 2

帖子: 122
主題: 26
精華: 0
積分: 148
點名: 0
作業系統: windos10
軟體版本: office2016
閱讀權限: 20
註冊時間: 2021-7-8
最後登錄: 2023-8-28

3^#

發表於 2023-3-29 17:22 | 只看該作者

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

這個寫法我無法執行

我有兩個問題
1.Sub TEST_20230329_1()為何之前會有
Option Explicit
Dim N&

2.End If
      MsgBox "不要氣餒，請繼續加油！"
Loop Until StrPtr(i) <> 0
這一段語法是要在按"取消"或"X"的情況下給予回覆

If N = 2 Then ActiveWindow.Close Else N = N + 1: MsgBox "不要氣餒，請繼續加油！"
Loop Until strAdminPWord = "6556"
MsgBox "繼續執行": N = 0
改成這樣會不會導致按"取消"或"X"的情況下執行後續的工作
(因為這段程式碼後面其實還有一段密碼無異常就執行更新的動作)

TOP

Andy2483

　暱稱: 厚臉皮的學生

大學生 Rank: 4

帖子: 1425
主題: 40
精華: 0
積分: 1449
點名: 0
作業系統: Windows 7
軟體版本: Excel 2010 & 2016
閱讀權限: 50
性別: 男
來自: 台灣
註冊時間: 2020-7-15
最後登錄: 2024-4-16

4^#

發表於 2023-3-30 08:22 | 只看該作者

回復 3# cowww

謝謝前輩回復
後學學習情境解決方案如下,請前輩參考

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 "繼續執行"

'執行後方密碼無異常就執行更新的動作
End Sub

用行動裝置瀏覽論壇學習很方便,謝謝論壇經營團隊
請大家一起上論壇來交流

TOP

cowww

中學生 Rank: 2

帖子: 122
主題: 26
精華: 0
積分: 148
點名: 0
作業系統: windos10
軟體版本: office2016
閱讀權限: 20
註冊時間: 2021-7-8
最後登錄: 2023-8-28

5^#

發表於 2023-3-30 11:03 | 只看該作者

回復 4# Andy2483

成功了
非常感謝Andy2483大大的幫忙

TOP