ブック ブックに変更があるか判断する
※より実装に近く表示させる為、コードの改行を避けています。スマホ等で閲覧される際は向きを変えてご覧ください。
※実装するバージョンによってはバージョンアップの仕様により動作しないコードもあります。実装には動作確認の上ご使用下さい。
Function SavedAlerts(bok As Workbook) '********************************* 'ブックに変更があるか判断する '********************************* 'Saved プロパティ ' True の場合、ブックは最後の保存した状態から変更が加えられていません。 If bok.Saved = False Then If MsgBox("保存しますか？", vbYesNo, bok.Name) = vbYes Then '上書きを無視する(アラート非表示) Application.DisplayAlerts = False bok.Close SaveChanges:=True, Filename:="C:\規定パス\" & "規定名.xls" Application.DisplayAlerts = True 'アラート表示-元に戻す Else '何か処理があれば bok.Close End If Else '何か処理があれば End If 'Saved プロパティに True を設定して、変更を保存せずにブックを閉じます。 'bok.Saved = True 'bok.Close End Function |