Prev: How to pick date and month?
Next: Excel 2003 VBA program kills itself in Japan
From: Mike K on 23 Feb 2010 07:26
Oh Wise Ones,
Please forgive me if this is not the proper forum
for this question but I'm not sure where to post it, and I feel some of you
may have encountered this before. I have an excel spreadsheet that I would
like to place a shortcut to on peoples desktops with the file to open
readonly. Has anyone done this before? I guess it would require some type of
batch file. I would send it as a link in Outlook and the recipients would
double-click on the attachment, then the shortcut would be installed to their
desktop to be opened readonly when started. It's a local office so I know
everyone. Yes everyone has access to the network location.

File "Safety reporting form"
Location S:\files\shared\safety\Safety reporting form.xla


From: Peter T on 23 Feb 2010 11:58
See this link

http://vbnet.mvps.org/index.html?code/shell/desktoplink.htm

Include all the declarations at the top of the module and the following
functions
CreateDesktopLink
GetSpecialFolder
TrimNull

' try this to test it
Sub test()
Dim sFile As String
Dim sPathToDesktop As String

sFile = ActiveWorkbook.FullName ' a previously saved workbook

' n/a in Excel 2000, replace app.hwnd with GetDeskTopWindow (search for it)
sPathToDesktop = GetSpecialFolder(Application.hWnd, CSIDL_DESKTOPDIRECTORY)

CreateDesktopLink sFile, sPathToDesktop
End Sub


If you need to cater for Excel 2000 add this API
Private Declare Function GetDesktopWindow Lib "user32.dll" () As Long

and change Application.hwnd to GetDesktopWindow

Regards,
Peter T


"Mike K" <MikeK(a)discussions.microsoft.com> wrote in message
news:B8D2A88F-974D-4508-8801-9045E55D988C(a)microsoft.com...
> Oh Wise Ones,
> Please forgive me if this is not the proper forum
> for this question but I'm not sure where to post it, and I feel some of
> you
> may have encountered this before. I have an excel spreadsheet that I
> would
> like to place a shortcut to on peoples desktops with the file to open
> readonly. Has anyone done this before? I guess it would require some type
> of
> batch file. I would send it as a link in Outlook and the recipients would
> double-click on the attachment, then the shortcut would be installed to
> their
> desktop to be opened readonly when started. It's a local office so I know
> everyone. Yes everyone has access to the network location.
>
> File "Safety reporting form"
> Location S:\files\shared\safety\Safety reporting form.xla
>
>


 | 
Pages: 1
Prev: How to pick date and month?
Next: Excel 2003 VBA program kills itself in Japan