ブックが保存されているかどうかを確認するにはどうすればよいですか？

新しいブックを開いたときに、保存するのを忘れてしまう可能性があります。誤ってブックを閉じてしまうと煩わしくなります。 しかし、Excelブックが保存されているかどうかをどのように確認できますか？

ブックがVBAコードで保存されているかどうかを確認します

---

ブックがVBAコードで保存されているかどうかを確認します

ブックが保存されているかどうかを確認するには、次のVBAコードを使用してください。次のようにしてください。

1。 を押し続けます Alt + F11 キーを押して アプリケーション向け Microsoft Visual Basic 窓。

2に設定します。 OK をクリックします。 インセット > モジュール、次のコードをに貼り付けます モジュール 窓。

VBAコード：ブックが保存されているかどうかを確認します。

Sub filesaved()
'Updateby Extendoffice 20161109
    Dim sLastTime As String
    On Error GoTo EHandler
    sLastTime = ActiveWorkbook.BuiltinDocumentProperties("last save time")
    MsgBox sLastTime, vbInformation, "Kutools for Excel"
    Exit Sub
EHandler:
    MsgBox "File not saved", vbInformation, "Kutools for Excel"
End Sub

3。 次に、 F5 このコードを実行するためのキーを押すと、次のプロンプトボックスが表示されます。

（1.）ワークブックが保存されている場合、ワークブックの最後に保存された時刻を通知するプロンプトボックスがポップアップ表示されます。

（2.）ブックが保存されていない場合は、次のプロンプトボックスが表示されます。