ブック ブックに変更があるか判断する

VB&VBA
FROG ふろっぐ
 
  • オプション

    本文印刷

    お気に入りに追加

  • 検索

    Googlewwwjp-ia
     

    Googlewwwjp-ia
     
  • 情報

  • 関連

[VB&VBA][ブック ブックに変更があるか判断する]
Option Explicit


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





Production Japan Import Application. Since 1998