Excel (VBA)

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

 
(Windows 10 Pro : Excel 2016)
急に保存確認を二回訊いてくるようになった
投稿日時: 19/11/15 13:03:17
投稿者: 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 14:27:31
投稿者: WinArrow
投稿者のウェブサイトに移動

ステップ実行
して、どのような動きになっているか確認してみることが先決です。
 
それから、コードの一部だけ掲示しても、
回答者には、理解できないと思います。
SUB 〜〜〜
から
End Sub
まで、掲示するようにしましょう

投稿日時: 19/11/15 14:32:15
投稿者: Yoasn_3218

そうですね。
 
ステップ実行で探ってみます。
コードは業務に絡む部分もあったので敢えて一部としましたが、全体を見ないとわからないですね。
 
もう少し自力で頑張ってみます。
 
ありがとうございました。