- ©«¤l
- 122
- ¥DÃD
- 26
- ºëµØ
- 0
- ¿n¤À
- 148
- ÂI¦W
- 0
- §@·~¨t²Î
- windos10
- ³nÅ骩¥»
- office2016
- ¾\ŪÅv
- 20
- µù¥U®É¶¡
- 2021-7-8
- ³Ì«áµn¿ý
- 2023-8-28
|
Option Explicit
Dim N&
Sub TEST_20230329_1()
Application.DisplayAlerts = False
Dim strAdminPWord As String
Do
strAdminPWord = InputBox("ª`·N¡A¦¹«ö¶s·|Åý¥ÕªO¸ê°Tªì©l¤Æ¡I", "½Ð¿é¤J±K½X")
If strAdminPWord = "6556" Then
MsgBox "±K½X¥¿½T¡I ", vbOKOnly, "®¥³ß¡I"
Exit Do
ElseIf StrPtr(strAdminPWord) <> 0 Then
MsgBox "±K½X¿ù»~¡I", , "´Ý©À¡ã"
End If
If N = 2 Then ActiveWindow.Close Else N = N + 1: MsgBox "¤£n®ð¾k¡A½ÐÄ~Äò¥[ªo¡I"
Loop Until strAdminPWord = "6556"
MsgBox "Ä~Äò°õ¦æ": N = 0
End Sub
³oÓ¼gªk§ÚµLªk°õ¦æ
§Ú¦³¨âÓ°ÝÃD
1.Sub TEST_20230329_1()¬°¦ó¤§«e·|¦³
Option Explicit
Dim N&
2.End If
MsgBox "¤£n®ð¾k¡A½ÐÄ~Äò¥[ªo¡I"
Loop Until StrPtr(i) <> 0
³o¤@¬q»yªk¬On¦b«ö"¨ú®ø"©Î"X"ªº±¡ªp¤Uµ¹¤©¦^ÂÐ
If N = 2 Then ActiveWindow.Close Else N = N + 1: MsgBox "¤£n®ð¾k¡A½ÐÄ~Äò¥[ªo¡I"
Loop Until strAdminPWord = "6556"
MsgBox "Ä~Äò°õ¦æ": N = 0
§ï¦¨³o¼Ë·|¤£·|¾ÉP«ö"¨ú®ø"©Î"X"ªº±¡ªp¤U°õ¦æ«áÄòªº¤u§@
(¦]¬°³o¬qµ{¦¡½X«á±¨ä¹êÁÙ¦³¤@¬q±K½XµL²§±`´N°õ¦æ§ó·sªº°Ê§@) |
|