Convert a file to read only

[SanjayBasnet]

I have an excel file (.xlsm) and I want to convert it to read only mode. How to do this ?

[ritansh.jatwani]

Hi @Sanjay Basnet,

Did you try using code stage?​

[krishna.kodimurali9]

Hi Sanjay,

You can try the below code to open any excel in read-only mode.
You can modify this to save as well.


Sub VBA_Open_Workbook_As_Read_Only()
Dim sFileName As String sFileName = "D:\test.xlsm"
Workbooks.Open Filename:=sFileName, ReadOnly:=True
End Sub

[SanjayBasnet]

Hi @krishna.kodimurali9, I tried this code bit but I am getting a lot of compile errors in it.

​

[EVIPUTI]

@Sanjay Basnet Create a duplicate of any action from Ms-Excel VBO and than use the code given by Murali . It will work , it works for me .

You can follow the steps below.

1. Go to "Open Workbook" page and duplicate it.

2. Go to "Open Workbook - Copy" page and open the "Open Workbook" code stage.

3. Replace the code by this code below and rename this stage and page

Dim wb as Object = GetInstance(handle).Workbooks.Open(FileName:=filename,ReadOnly:=True)
name = wb.Name
wb.Activate()

4. That's all. And you can public this page and use it.

Or you can add any parameters if you need them to do some excel manipulation.

Example

Dim wb as Object = GetInstance(handle).Workbooks.Open(filename,UpdateLinks:=updatelinks,ReadOnly:=readonly1,Password:=password,WriteResPassword:=writerespassword,IgnoreReadOnlyRecommended:=True)
name = wb.Name
wb.Activate()​