Thread: Autosave
View Single Post
  #2   Report Post  
Posted to microsoft.public.excel.programming
Dave Peterson Dave Peterson is offline
external usenet poster
 
Posts: 35,218
Default Autosave

You could use a macro that saves a copy in your favorite backup folder and then
marks the file readonly (the windows attribute).

Option Explicit
Sub testme01()
Dim myPath As String
Dim myFileName As String

myPath = "C:\backups"
If Right(myPath, 1) < "\" Then
myPath = myPath & "\"
End If

With ThisWorkbook
'save the workbook
.Save

myFileName = myPath & .Name

On Error Resume Next 'in case it's not there
'vbNormal will allow the code to overwrite the file
SetAttr pathname:=myFileName, attributes:=vbNormal
On Error GoTo 0

.SaveCopyAs Filename:=myFileName
SetAttr pathname:=myFileName, attributes:=vbReadOnly

End With

End Sub

Brad wrote:

I'm trying to write a macro that when a master file is saved, it will
automatically save a read only copy in another folder, any suggestions?


--

Dave Peterson