|
皆さんこんにちは
MsgBoxでのWクリックを防止するにはどうしたら良いでしょうか。
例:保存先に指定されたフォルダにファイルがあれば
上書きするかメッセージを出します。
OKならそのまま上書きを行い、キャンセルなら
TextBoxにセットフォーカスを行い、ユーザに
再度、保存先を指定しなおしてもらいます。
このとき、OKボタンを早く押すと、エラーが出ます。
一回目のOKボタンでクリックで、このまま本文のモジュールを
動かすのですが、2回目のクリックですぐ本文のモジュールを
続いて追いかけて動かすために、エラーになってるようです。
この2回目のクリックを防ぎたいのです。
Sub test
dim SavePath as string
SavePath = D:\D:\Temp\test.XLS
If Dir(SavePath, vbNormal) <> "" Then
If MsgBox("指定されたフォルダには" & vbCrLf & _
" " & SavePath & vbCrLf & _
"と同名ファイルが存在しています。上書きしますか?", _
vbInformation + vbOKCancel, ActiveSheet.Name) = vbCancel Then
TextBox_FileSavePath.SetFocus
Exit Function
End If
End If
end sub
特にこの時だけでなく、今までメッセージボックスのvbOKCancelボタンで
Wクリックについての処置をしてません。
みなさんはどのように処理されてますでしょうか。
教えて下さい。
|
|