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
|