Excel (VBA)

Excel VBAに関するフォーラムです。
  • 解決済みのトピックにはコメントできません。
このトピックは解決済みです。
質問

 
(Windows 10 Pro : Excel 2016)
急に保存確認を二回訊いてくるようになった
投稿日時: 19/11/15 13:03:44
投稿者: Yoasn_3218

ファイル整理のために番号を自動付与し、ファイル名につけて保存する
というコードを書き、これまでテストしておおむね設計通りにファイル保存できていました。
 
しかし、ある時から「名前をつけて保存する」で保存を選択しても、また再び同じ
「名前をつけて保存する」確認画面が表示され、再度 保存を選択すると
 「同名ファイルがある、上書きしますか」のアラート表示があり、「はい」で
ようやく保存がされるようになってしまいました。
 
以下がコードの一部です。
 
因みに保存しますかで「キャンセル」を選択したときも、一度キャンセル選択すると
また選択を求める画面が表示され、しつこくキャンセルを再び押すと、やっとコードに
書いた”キャンセルされました”が表示されます。
 (このあとは×でExcel終了、再度Excel起動からになっている)
 
 
これらの原因はどこにあるのでしょうか?
解決法のご教授をお願いします。
 
(以下、コードの一部)
 
'カウンターを1インクリメント
  Sheets("Template").Range("D4").Value = Sheets("Template").Range("D4").Value + 1
 
'C4の文字列をファイル名につけて保存、Templateの保存時にカウンター以外の入力クリア
   
  Application.DisplayAlerts = False '確認ダイアログを表示しない
  Application.Dialogs(xlDialogSaveAs).Show Arg1:=Range("C4").Value, Arg2:=12
   
'保存キャンセルされた時 カウンターを戻す
  Dim done As Boolean
  done = Application.Dialogs(xlDialogSaveAs).Show
  If done = False Then
  Sheets("Template").Range("D4").Value = Sheets("Template").Range("D4").Value - 1
    MsgBox "キャンセルされました。"
  End If

回答
投稿日時: 19/11/15 15:29:32
投稿者: WinArrow
投稿者のウェブサイトに移動

同じ質問を続けてした場合は、片方を閉じましょう。

投稿日時: 19/11/15 15:37:05
投稿者: Yoasn_3218

社内ネットワーク不具合でブラウザにエラー表示されたため、再度クリックしたというのが事の顛末。
 
以後、ブラウザの反応を十分待ち、確認を十分にしてからとします。