チェック「『ファイル名』プロンプトワット/ VBAへの変更を保存する？

Question

まず第一に、これはsaveasfilenameダイアログボックスに関するものではありません。

するかどうかをチェックフラグが設定されていする方法がある」したいがあなたの変更を 'filename.xsls'に保存するには？ダイアログボックスがVBAサブの間に表示されますか？

基本的に私はいくつかのデータを別のファイルにコピーし、MsgBoxを表示してファイルを閉じ、Excelがファイルが保存されていることを確認するようにユーザーに求めます。しかし、私はそのファイルをロックする古いプログラムを持っているので、プロンプトが表示されず、ファイルが保存されたように見えますが、実際はそうではありません。 '修正'するには、Excelとプログラムのすべてのインスタンスを閉じてからやり直す必要があります。それは頻繁に起こることはありませんが、あなたが注意を払っていない、または経験の少ない人が、保存を促すかどうかを確認することを知らない場合は、それを逃すことができます。

私が知りたいのは、ある種のチェック/フラグ値、1/0、真偽などを持ってダイアログボックスが表示されることを確認する方法がある場合です。そうでない場合は、Excelと他のプログラムを再起動する必要があることをユーザーに警告します。基本的に私は決して起こらないエラーをキャッチしようとしているので、これは解決できないかもしれません。ファイルがロックされているため、時にはそれが表示されず、VBAサブがちょうどに続く

：

これは私が参照しています]ダイアログボックスです。

Answer 1

他の問題を解決する方が良いでしょうが、投稿していないのでわからないのです。あなたがbascallyこれを行うことができますhttps://support.microsoft.com/en-us/kb/213428

を：：とにかく、あなたが望むすべてがここで説明されて

Sub Auto_Close() 
If ThisWorkbook.Saved = False Then 
    'ThisWorkbook.Save this would autosave 
    Application.GetSaveAsFilename 'this displays the save as dialog 
End If 
End Sub 

Answer 2

を、私は周りの仕事としてこれをやってしまったと私はそこだ疑いが、それは本当に私の質問に対する解決策はありませんウィンドウクラスのチェックや何かを通してそれをやり遂げる方法になった。チャイルドに時間をかけて脳力を提供してくださった皆様、ありがとうございました:)

サブランの前後にファイルサイズの変数を2つ宣言しました。ファイルサイズが等しい場合、msgboxが表示され、ファイルが正しく書き込まれていないか、または既存のファイルを上書きしている可能性があります。

Dim ExportFileByte As Long 
Dim ExportBytePostFile As Long 

ExportFileByte = FileLen(ExportSourcePath) 

'（サブはここで実行され、.xlsファイルにいくつかのデータのコピーをエクスポート）

ExportBytePostFile = FileLen(ExportSourcePath) 
If ExportFileByte = ExportBytePostFile Then MsgBox ("Error: File may have not have saved, or file is being overwritten without changes (OK)")