VBA実行中にExcelが使えないのが嫌なので解決方法を考える

Dim fso As FileSystemObject

'処理開始ボタンに割り当てている処理
Sub OutputCsv()
    Application.DisplayAlerts = False
    
    Dim varFile As Variant
    varFile = ActiveWorkbook.Path + "\" + ActiveWorkbook.name + "_tmp"
    If varFile = False Then
        Exit Sub
    End If
    
    ActiveSheet.Select
    ActiveSheet.Copy
    ActiveWorkbook.SaveAs Filename:=varFile, FileFormat:=xlCSV, CreateBackup:=False
    ActiveWindow.Close
    
    Dim fso As FileSystemObject
    Set fso = New FileSystemObject
    Dim f As File
    Set f = fso.GetFile(ActiveWorkbook.Path + "\" + ActiveWorkbook.name + "_tmp")
    
    Dim d As Date
    d = f.DateLastModified
    
    'TextBox1=テキストボックス(見えない)
    ActiveSheet.TextBox1.Value = Format(d, "yyyymmddhhmmss")
        
    Dim objExec As Object
    Set objExec = CreateObject("WScript.Shell")
    objExec.Run "powershell -NoProfile -ExecutionPolicy Unrestricted " & ActiveWorkbook.Path & "\vba.ps1", 0, False
    
    Application.DisplayAlerts = True
End Sub

'処理が終わったか確認！ボタンに割り当てている処理
Sub checkCsv()    
    Set fso = New FileSystemObject
    
    Dim f As File
    Set f = fso.GetFile(ActiveWorkbook.name + "_tmp")
    
    Dim d As Date
    d = f.DateLastModified

    If (ActiveSheet.TextBox1.Value < Format(d, "yyyymmddhhmmss")) Then
        MsgBox "処理が終了しました。"
    Else
        MsgBox "もうしばらくお待ちください。"
    End If
End Sub

'結果を取り込みボタンに割り当てている処理
Sub getResult()
    file_name = ActiveWorkbook.name
    
    Call Workbooks.OpenText(ActiveWorkbook.Path + "\" + file_name + "_tmp", Origin:=932, Comma:=True)
    
    Worksheets(1).Copy After:=Workbooks(file_name).Worksheets("マクロ実行")
    Workbooks(file_name + "_tmp").Close
    
    Set fso = New FileSystemObject

    Call fso.DeleteFile(ActiveWorkbook.Path + "\" + file_name + "_tmp", True)
End Sub

$path = "./sakusaku_jikkou.xlsm_tmp"

#更新日時が確実に変わるように1秒待機
Start-Sleep -s 1

$csv = Import-Csv $path -Encoding Default


#CSVに対する何かしらの処理を書く(サンプルは10秒待機)
Start-Sleep -s 10

$csv | Export-Csv $path -NoTypeInformation -Encoding Default