ファイルを閉じる際の確認ダイアログを無視する|VBA

Option Explicit

Sub Main()
    ' ブックを開く
    Dim openBook As Workbook
    Dim fileName As String
    fileName = Application.GetOpenFilename("Excel ブック,*.xls; *.xlsx")
    If fileName <> "False" Then
        Set openBook = Workbooks.Open(fileName)
    Else
        Exit Sub
    End If

    Cells(1, 1).Value = "1"

    ' ブックを閉じる.
    openBook.Close
End Sub

Option Explicit

Sub Main()
    ' ブックを開く
    Dim openBook As Workbook
    Dim fileName As String
    fileName = Application.GetOpenFilename("Excel ブック,*.xls; *.xlsx")
    If fileName <> "False" Then
        Set openBook = Workbooks.Open(fileName)
    Else
        Exit Sub
    End If

    Cells(1, 1).Value = "1"

    ' ブックを閉じる.
    Application.DisplayAlerts = False ' 保存確認させない.
    openBook.Close
    Application.DisplayAlerts = True ' 保存確認する.
End Sub

Option Explicit

Sub Main()
    ' ブックを開く
    Dim openBook As Workbook
    Dim fileName As String
    fileName = Application.GetOpenFilename("Excel ブック,*.xls; *.xlsx")
    If fileName <> "False" Then
        Set openBook = Workbooks.Open(fileName)
    Else
        Exit Sub
    End If

    Cells(1, 1).Value = "1"

    Dim saveBookName As String
    saveBookName = "new_" & openBook.name

    ' 新規ファイル保存
    ActiveWorkbook.SaveAs (openBook.Path & "\" & saveBookName)
    openBook.Close
End Sub

Option Explicit

Sub Main()
    ' ブックを開く
    Dim openBook As Workbook
    Dim fileName As String
    fileName = Application.GetOpenFilename("Excel ブック,*.xls; *.xlsx")
    If fileName <> "False" Then
        Set openBook = Workbooks.Open(fileName)
    Else
        Exit Sub
    End If

    Cells(1, 1).Value = "1"

    Dim saveBookName As String
    saveBookName = "new_" & openBook.name

    ' 新規ファイル保存
    Application.DisplayAlerts = False ' 上書き確認せずに強制上書き.
    ActiveWorkbook.SaveAs (openBook.Path & "\" & saveBookName)
    Application.DisplayAlerts = True ' 上書き確認する.
    openBook.Close
End Sub