SOLVED!Read Only Macro ?

[ROBINSYN]

Is there a macro so I can set a file to read only before close?
This message was edited by ROBINSYN on 2002-11-10 21:45

 

[Ivan F Moala]

On 2002-10-27 21:03, ROBINSYN wrote:
Is there a macro so I can set a file to read only before close?

While in the VBA Editor press F1
Type in Readonly > you should get what you need from the help...

 

[Joe Was]

Sub SetReadOnly()
'Run from Standard Module.
Dim fs, f
Set fs = CreateObject("Scripting.FileSystemObject")
'You must add your Drive, Folder and File Name below to run this.
Set f = fs.GetFile(fs.GetFileName("C:MyFilesExcelTestMyReadOnlyMacro.xls"))
f.Attributes = f.Attributes + 1
End Sub

 

[Haluk]

On 2002-10-27 21:03, ROBINSYN wrote:
Is there a macro so I can set a file to read only before close?

Hi !

Here is an alternative way to set the "ReadOnly" property for the file in use;

Private Sub Workbook_BeforeClose(Cancel As Boolean)
SetAttr ThisWorkbook.Path & "" & ThisWorkbook.Name, vbReadOnly
End Sub

This message was edited by Raider on 2002-10-28 02:27