Excel -> Cases where a password is required for writing and opening

Hello,

Two different passwords must be entered to open the excel file in a process and to operate it. You can make encrypted excel files completely passwordless with save as with VBScript, which I will convey below.

If it requires a password both for opening and for typing;

Set objExcel = CreateObject("Excel.Application")
objExcel.Visible = false
objExcel.displayalerts=false
Set objWorkbook = objExcel.Workbooks.Open ("C:\RobustaJiraProjects\IP-606 ...\Test.xlsx",,True,,"123") 
Set objWorksheet1 = objWorkbook.Worksheets("page1")
objWorksheet1.SaveAs "C:\RobustaJiraProjects\IP-606 Sifreli Excel ile islem yapma\newTest.xlsx",,""
ReadOnly=False
IgnoreReadOnlyRecommended=true

objWorkbook.save
objWorkbook.close
objExcel.Quit()
Set objWorksheet1 = Nothing
Set objWorkbook = Nothing
Set ObjExcel = Nothing

If there is a password only when opening;

Set objExcel = CreateObject("Excel.Application")
objExcel.Visible = false
objExcel.displayalerts=false
Set objWorkbook = objExcel.Workbooks.Open ("C:\RobustaJiraProjects\IP-838\Test2.xlsx",,,,"123qwe","123qwe",True,,True,True)
Set objWorksheet1 = objWorkbook.Worksheets("Sheet1")
objWorksheet1.SaveAs "C:\RobustaJiraProjects\IP-838\newTest.xlsx",,""
ReadOnly=False
IgnoreReadOnlyRecommended=true
objWorkbook.save
objWorkbook.close
objExcel.Quit()
Set objWorksheet1 = Nothing
Set objWorkbook = Nothing
Set ObjExcel = Nothing