setting file attributes on close

**Karolis** · 09-20-2010, 08:43 AM

Hello,

I am wondering how I can write a macro to set file attributes to hidden/read only, when I close it. Any tips are welcome. Thank you in advance.

**snb** · 09-20-2010, 09:27 AM

After closing:

    CreateObject("scripting.filesystemobject").getfile("E:\file.xls").attributes = 3

**Karolis** · 09-20-2010, 09:42 AM

sorry, i'm not very great with excel. where do i have to put this in vba? in workbook general?

**snb** · 09-20-2010, 09:52 AM

Put this code in the 'ThisWorkbook module in teh VBEditor (alt-F11)
The file will be Hidden & Readonly.

Private Sub Workbook_BeforeClose(Cancel As Boolean)
  If ThisWorkbook.Saved Then CreateObject("scripting.filesystemobject").getfile(ThisWorkbook.FullName).Attributes = 3
End Sub

**Karolis** · 09-20-2010, 10:06 AM

Thanx

I was about to post that I figured it out already. Just one more question:
attributes = 1 file is read only
attributes = 2 file is hidden
attributes = 3 file is read only and hidden.
Am I correct? and is there more options?