如何在UFT中使用密码保存文件

Question

I am using UFT 12.5. During run time it opens excel and word. Then it writes some data in the both files. After that, I would like to save both files with a new name and then password protected. I need to be able to enter password manually to open it. So far, I have written the below code and I getting an error at the last line.

Set ExcelObj = createobject("excel.application")
ExcelObj.Visible = true

Set ExcelFile = ExcelObj.Workbooks.Open (file)
Set ScripSheet = ExcelFile.Worksheets("Scripts")
ScripSheet.Cells(1,1) = "Passed"
ExcelFile.SaveAs mm1, "ttt"

Please advise on how I can save word and excel files with a password using UFT.

Thanks.

Answer 1

You need to pass correct parameters with SaveAs method. Check this link for more info.
Here is the working code that you can try:

file = "File path with file name"
newfile = "File path with new file name"

Set ExcelObj = createobject("excel.application")
ExcelObj.Visible = true

Set ExcelFile = ExcelObj.Workbooks.Open (file)
Set ScripSheet = ExcelFile.Worksheets("Scripts")
ScripSheet.Cells(1,1) = "Passed"
ExcelFile.SaveAs newfile, , "test"
ExcelFile.Close
ExcelObj.Quit

UPDATE
Per comments from OP

If you want to save file with ReadOnly , you have to use WriteResPassword parameter this way:

ExcelFile.SaveAs newfile, , , "test"

Note that I've two empty parameters for FileFormat and Password respectively.

This way it will ask for password to open the file in write mode and if you won't provide the password, file will be opened in ReadOnly mode.

Check the link that I've mentioned.