Thread: Autosave
View Single Post
  #5   Report Post  
Posted to microsoft.public.excel.misc
Dave Peterson
 
Posts: n/a
Default Autosave

Grammar police alert...

I give email two files...
I email two files...



Dave Peterson wrote:

I do something like this when I distribute a bunch of utilities to people--but
it's an addin.

I give email two files and tell them to file both attachments to any old
folder. (Or put both the files in a common network drive and have them run the
install workbook.)

This is the macro in the install workbook:

Option Explicit
Sub Auto_Open()

Dim resp As Long
Dim myRealWkbkName As String
Dim TestStr As String

myRealWkbkName = "yourrealworkbookname.xla"

TestStr = ""
On Error Resume Next
TestStr = Dir(ThisWorkbook.Path & "\" & myRealWkbkName)
On Error GoTo 0

If TestStr = "" Then
MsgBox "Please contact Rokuro--he has problems!"
Else
resp = MsgBox(Prompt:="Do you want to install " _
& myRealWkbkName & "?", Buttons:=vbYesNo)

If resp = vbNo Then
'do nothing
Else
FileCopy Source:=ThisWorkbook.Path & "\" & myRealWkbkName, _
Destination:=Application.StartupPath & "\" & myRealWkbkName

End If
End If

'uncomment this after you've saved and tested the code.
'ThisWorkbook.Close savechanges:=False

End Sub

=========
Another option that you may want to consider. Put the addin (is it an addin???)
in a nice common network drive and tell the users to use tools|addins and browse
to that location to install the addin.

Rokuro kubi wrote:

Yes I suppose this is why you need to be careful which attachments you
open. Just in my organisation quite a few people will switch off when I
tell them where to save it, if the path is any longer than longer than
one folder :-)


--

Dave Peterson


--

Dave Peterson