Power Automate DesktopでExcelのパスワードなし保存をする部分。アクション「VBScriptの実行」に設定する。変数fName,fName2が必要。

nopassword.vbs

Option Explicit
Dim fName
fName = "%fName%"
Dim myWorkBook
Set myWorkBook = GetObject(fName)
Dim xlApp
Set xlApp = myWorkBook.Application

Dim fName2
fName2 = "%fName2%"
xlApp.DisplayAlerts = False
Call myWorkBook.SaveAs(fName2,, "")
xlApp.DisplayAlerts = True
Set xlApp = Nothing
Set myWorkBook = Nothing