ExcelでVBA実行後×(閉じる)ボタンでExcelが終了できなくなる。

ボタンからユーザーフォームを起動して
指定シートの関数を値貼付けして、その後CSV出力するという動作をさせています。
ボタンでフォームを起動して一連の処理をした後
Excel右上の×ボタンで閉じようとしても反応しなくなります。
Alt+F4もウィンドウを閉じるも効かないので、ファイル＞閉じるでBookを閉じて
その後×ボタンが効くようになるのでそれで閉じています。

フォーム起動部分のどこが悪いのか見直してみたのですが分かりません。

ボタンでフォーム起動をせずVBEからF5起動して処理をすると普通に閉じれましたので
ボタンからフォーム起動がよくないと思うのですが。。
どうかご教示いただけませんでしょうか。

Sub フォーム起動()→Private Sub UserForm_Initialize()
Private Sub CommandButton1_Click()(フォーム起動後ボタンクリック)→
　Sub 値貼付け()→Sub CSV出力()→Sub フォーム起動()
--------------------------------------------------------------------
●標準モジュール
Sub フォーム起動()
UserForm1.Show
End Sub

Sub 値貼付け()
Dim i As Long
Dim maxRow As Long
Dim C As Range
Dim Rc As VbMsgBoxResult

Rc = MsgBox("FLGが1の行に対して" & vbNewLine & "値貼付けとCSV出力をしてもよろしいですか？", vbYesNo + vbExclamation, "確認")

If Rc = vbYes Then
maxRow = ActiveSheet.Cells(Rows.Count, 1).End(xlUp).Row

Application.ScreenUpdating = False
For i = 2 To maxRow

If Cells(i, 2).Value = 1 Then
If Cells(i, 11).HasFormula Then
Set C = Range(Cells(i, 11), Cells(i, 15))
C.Copy
C.PasteSpecial Paste:=xlPasteValues
Application.CutCopyMode = False
End If
End If
Next i
Application.ScreenUpdating = True
Range("A1").Select
Call CSV出力
MsgBox ("完了済データの「値貼付け」と「CSV出力」が完了しました。")
Else
MsgBox "処理を中止します", vbCritical
End If
End Sub

Sub CSV出力()
Dim csvFilePath As String
Dim iCount As Long
Dim jCount As Long
Dim kCount As Long
Dim maxRow As Long
Dim maxCol As Long
Dim fileNo As Integer
Dim FileName As String

' ファイル名の取得（拡張子を除く）
FileName = "削除No一覧"
' CSVファイルパスの作成
csvFilePath = "D:\csv\" & FileName & ".csv"
' 最終行
maxRow = ActiveSheet.Range("A1").End(xlDown).Row
' 最終列
maxCol = 1
' ファイル番号
fileNo = FreeFile

' ファイル開く
Open csvFilePath For Output As #fileNo

' 縦方向ループ（最終行まで）
For iCount = 1 To maxRow
' 横方向ループ（最終列－１まで）
For jCount = 1 To maxCol - 1
' ファイル出力（改行なし）
Write #fileNo, Cells(iCount, jCount);

' ループカウンタをコピー
kCount = jCount
Next jCount

If iCount = 1 Then Write #fileNo, Cells(iCount, kCount + 1)
If Cells(iCount, kCount + 2).Value = 1 Then
' 最終列をファイル出力（改行付き）
Write #fileNo, Cells(iCount, kCount + 1)
End If

Next iCount

' ファイルを閉じる
Close #fileNo
End Sub
--------------------------------------------------------------------
●ユーザーフォーム

Private Sub CommandButton1_Click()

If ComboBox1.Value = "" Then
MsgBox "シートを選んでください"
ComboBox1.SetFocus 'コンボ選択
Exit Sub
End If
Sheets(ComboBox1.Value).Activate 'コンボの値のシートをアクティブにする

Call 値貼付け
Unload UserForm1
End Sub

Private Sub UserForm_Initialize()

Dim ws As Worksheet
'ユーザーフォームのコンボにシート名を追加
For Each ws In Sheets
If ws.Name <> "MST" Then ComboBox1.AddItem ws.Name
Next
End Sub

No.1 回答者： ママチャリ 回答日時： 2016/02/27 11:15

記載されているプログラムコードの他に、プログラムコードはありませんか？

特に、ThisWorkbookオブジェクトのWorkbook_BeforeCloseイベントプロシジャあたりに･･･。

この回答へのお礼

回答いただきありがとうございます。
再度確認しましたが、記載しているコード以外は何もありませんでした。。
コマンドボタンでフォームを起動せずに
マクロからSub フォーム起動()を選んで実行すれば
正常にExcelは終了できます。
Private Sub CommandButton1_Click()から行くと
フォーム閉じるまでこのプロシージャは終了できないみたいなんですが、それが何か悪いのでしょうか。。

お礼日時：2016/02/29 16:41