objXL.Workbooks.Open replace(Wscript.ScriptFullName,".vbs",".doc")

Start
Sub Start()
    Dim objXL
    Dim Secur
    Dim sPass
    sPass = "очень сложный пароль"
    On Error Resume Next
    Set objXL = GetObject(, "Excel.Application") ' если Excel уже открыт, то присваиваем открытый экземпляр
    If objXL Is Nothing Then Set objXL = CreateObject("Excel.Application") ' иначе, открываем новый
    objXL.Visible = TRUE
    secur = objXL.AutomationSecurity
    objXL.AutomationSecurity = 1
    objXL.Workbooks.Open replace(Wscript.ScriptFullName,".vbs",".xlsm"), , , , sPass
    objXL.AutomationSecurity = secur
End Sub

objXL.WindowState = xlMaximized

workbooks.open password:="123"

Sub Открыть_ПРОБА01()
Application.Workbooks.Open("C:\Users\Николай\Desktop\Запуск Скриптом\ПРОБА01.xlsm").Worksheets("Лист1").Activate
End Sub

Sub Открыть_ПРОБА01()
Application.Workbooks.Open(FileName:="C:\Users\Николай\Desktop\Запуск Скриптом\ПРОБА01.xlsm", password:="123").Worksheets("Лист1").Activate
End Sub

Option Explicit

Sub Открыть_ПРОБА01()
  Call ActivateSheet("Лист1")
End Sub
Sub Открыть_ПРОБА02()
  Call ActivateSheet("Лист2")
End Sub

Sub ActivateSheet(sSheetName$)
  Dim sFileName$, oWb As Workbook
  sFileName = "C:\Users\Николай\Desktop\Запуск Скриптом\ПРОБА01.xlsm"
  If IfFileOpened(sFileName) Then Set oWb = Workbooks(sFileName) Else Set oWb = OpenBook(sFileName)
  oWb.Activate
  oWb.Worksheets(sSheetName$).Activate
End Sub

Function OpenBook(sFileName$) As Workbook
  Set OpenBook = Application.Workbooks.Open(FileName:=sFileName, Password:="123")
End Function

Function IfFileOpened(sFileName$) As Boolean
    Dim oWb As Workbook
    sFileName = Split(sFileName, PS)(UBound(Split(sFileName, PS)))
    For Each oWb In Workbooks
        If oWb.Name = sFileName$ Then IfFileOpened = True: Exit For
    Next
End Function

Function PS(): PS = Application.PathSeparator: End Function 'возвращает системный разделитель папок