0

指定されたパスワードが正しい場合に Excel ファイルを開くスクリプトがあります。間違っている場合は、メッセージが表示されます。最後にループを追加すると完全に機能します。ただし、問題は、パスワードが間違っている場合は常に、ループのためにスクリプトがパスワードの要求を停止しないことです。私が欲しいのは、パスワードが間違っている場合にスクリプトを終了/閉じることです。ループを削除して「wscript.quit」に置き換えようとしましたが、常に「expected loop」というメッセージが表示されます。ここに私が作ったコードがあります。

password = "pass"
do
ask=inputbox ("Please enter password:","DProject")
select case ask
case password
answer=true 

Set xl = CreateObject("Excel.application")

xl.Application.Workbooks.Open "C:\Users\test1\Desktop\test.xlsx"
xl.Application.Visible = True
Set xl = Nothing
wscript.quit
end select

answer=false
x=msgbox("Password incorrect... Aborting")
loop until answer=true

中止時にカウントされるようなメッセージを入れることは可能ですか。「3.... 2... 1で中止」のように。

4

1 に答える 1

0

Popup関数の代わりにメソッドを使用しMsgBoxます。

password = "pass"
do
  ...
  x = CreateObject("WScript.Shell").Popup("Password incorrect... Aborting", 3)
Loop Until answer = True Or x < 0
于 2013-11-01T23:35:22.400 に答える