返回列表 上一主題 發帖

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

cowww

帖子
122 
主題
26 
精華
0 
積分
148 
點名
0  
作業系統
windos10 
軟體版本
office2016 
閱讀權限
20 
註冊時間
2021-7-8 
最後登錄
2023-8-28 
1# 跳轉到 » 倒序看帖
打印
tT
發表於 2023-3-29 16:03 | 顯示全部帖子

[發問] 驗證三次錯誤後關閉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
收藏 分享

cowww

帖子
122 
主題
26 
精華
0 
積分
148 
點名
0  
作業系統
windos10 
軟體版本
office2016 
閱讀權限
20 
註冊時間
2021-7-8 
最後登錄
2023-8-28 
2#
發表於 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

cowww

帖子
122 
主題
26 
精華
0 
積分
148 
點名
0  
作業系統
windos10 
軟體版本
office2016 
閱讀權限
20 
註冊時間
2021-7-8 
最後登錄
2023-8-28 
3#
發表於 2023-3-30 11:03 | 顯示全部帖子
回復 4# Andy2483


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

TOP

        靜思自在 : 多做多得。少做多失。
返回列表 上一主題