[[20151117131724]]　『２ヵ所同時保存について』（nobo）　ページの最後に飛ぶ

『２ヵ所同時保存について』（nobo）

以下の通り同時に２ヵ所保存しているのですがBookを開き編集などしない状態で
実行した場合同時に保存しないで閉じてしまいます。
必ず、強制的に保存させることは可能でしょうか？
よろしくお願いします。

  Dim rc As Long
      rc = MsgBox("同時保存しますか？", vbYesNo, Title:="保存確認")
　　　　If rc = vbYes Then
    　     If ThisWorkbook.Saved = False Then
              ThisWorkbook.Save
           ThisWorkbook.SaveCopyAs "D:\Office\office?U\見積書提出一覧\" & ThisWorkbook.Name
           MsgBox "同時保存完了", , "保存完了"
        End If
    ActiveWorkbook.Close False

  Else
    rc = MsgBox("キャンセルしますか？", vbYes)
  End If

＜使用 Excel：Excel2013、使用 OS：Windows7 ＞

 >Bookを開き編集などしない状態で実行した場合同時に保存しないで閉じてしまいます。

 >If ThisWorkbook.Saved = False Then
 で変更されているかのチェックをしているので当然では？

 変更されていない場合でも保存するのであればそのチェックをしない。
（ねむねむ） 2015/11/17(火) 13:30

ねむねむさん
ありがとうございます。
なるほどですね
解りましたやってみます。

（nobo） 2015/11/17(火) 13:50

コメント返信：

[ 一覧(最新更新順) ]

[[20151117131724]] 『２ヵ所同時保存について』（nobo） ページの最後に飛ぶ

[[20151117131724]]　『２ヵ所同時保存について』（nobo）　ページの最後に飛ぶ