|
初めて質問させていただきます。
メインのブックの中に作業用シートを作り、
それを別ブックに保存してから終了する、ということをやろうとしています。
その時にメインのブックを強制的に上書き保存して
から閉じているのに、なぜか確認ダイアログが表示され、
保存を「いいえ」にすると、メインのブックが壊れてしまいます。
以下はそのコードです。
なにかアドバイスをお願いいたします。
Private Sub CommandButton4_Click()
Set WB = ThisWorkbook
WB.Worksheets("作業シート").Select
WB.Worksheets("作業シート").Move
Application.Dialogs(5).Show
ActiveWorkbook.Close (False)
If MsgBox("作業を続けますか?", vbYesNo + vbInformation) = vbNo Then
WB.Save
If Workbooks.Count = 1 Then
Application.Quit
Else
WB.Close (False)
End If
End If
End If
End Sub
|
|