Application.ScreenUpdating = False

Sub Test()
    Dim wb as workbook
    set wb = Workbooks.Open(Filename:="C:\Temp\BOOK1.xls")
    wb.Windows(1).Visible = False
End Sub

Sub ttt()
    Dim sFileName As String, sNewFileName As String
 
    sFileName = "C:\Users\Дмитрий\Desktop\DB.ottb"    'имя исходного файла
    sNewFileName = "C:\Users\Дмитрий\Desktop\DB.xlsm"    'имя файла для переименования
    If Dir(sFileName, 16) = "" Then MsgBox "Нет такого файла", vbCritical, "Ошибка": Exit Sub
 
    FileCopy sFileName, sNewFileName 'переименовываем файл
    Dim wb As Workbook
    Set wb = Workbooks.Open(sNewFileName)
    wb.Windows(1).Visible = False
    'работает с файлом
    '....
    wb.Sheets(1).Range("A1").Value = "ttt"
    'закрываем и удаляем
    wb.Close 1
    'при необходимости можно заменить исходный файл измененным
    FileCopy sNewFileName, sFileName 'заменяем файл
    Kill sNewFileName
End Sub

Sub MyMacro(x)
  MsgBox "Parameter = " & x
End Sub

With CreateObject("Excel.Application")
  .Workbooks.Open("C:\Base\base.ottb")
  .Run "MyMacro", "1"  ' <-- Вместо "1" запишите, что угодно, например, WScript.ScriptFullName
  MsgBox "Press OK to Quit Excel"   
  .Quit
End With