Determine if File is Read-Only with Auto_Open Macro

[michaeldh]

Hi Guys,

I was hoping you might be able to assist me with some code that will enable me to deterimine if the active workbook is read-only. Using Sub Autpen()

In addition I need to be able to temporarily switch to read-write (there is a workbook password) and then back to read-only (ensuring the password still applies)

Thanks for your help.

Michael.

 

[Nimrod]

Private Sub Workbook_Open()
If ThisWorkbook.ReadOnly Then
MsgBox "read-only"
End If
End Sub

 

[michaeldh]

Thanks ever so much for that!!

Michael

 

[Nimrod]

Make a workbook Read only ...

Public Sub MakeReadOnly()
ThisWorkbook.ChangeFileAccess xlReadOnly, "Password"
End Sub