Hi
I doubt this is possible (prevented by the Operating
System). If a file is opened by another user this can't be
over-written (in addition what should happen for the user
who has opened this file: automatic closing of Excel or
automatic replacing?).
So
AFAIK this is not Excel specific but restricted by the
OS
Some ideas for a workaround:
-maybe use a shared Excel file (and live with the
restrictions of this feature)
- use a different type of application (e.g. database)
-----Original Message-----
I have an Excel workbook that performs a bunch of steps
with Microsoft
Query. It has code so it can be saved as a read only file
and MOST
IMPORTANTLY it needs to save the file over the top of the
existing file
even if a user has this ReadOnly File named MyFile open
open. This has
to work somehow because they will be saving a fresh copy
of this file
every day. How can I get this to overwrite this file as
Read Only even
if a user has it opened read only Thanks URGENT
Here is my code
Dim fs, f, filespec As String
'filespec =
"S:\Links\BISCatalog\TrafficLightReport\Traffic_L ight_Repo
rt_ReadOnly.xls"
filespec = "O:\Taber_Excel2\MyFile.xls"
Application.DisplayAlerts = False
RemoveAllMacros ActiveWorkbook
If Dir(filespec) < "" Then
Set fs = CreateObject("Scripting.FileSystemObject")
Set f = fs.GetFile(filespec)
f.Attributes = 0
Sheets("MainForm").Select
ActiveWindow.SelectedSheets.Visible = False
End If
ActiveWorkbook.SaveAs Filename:=filespec
f.Attributes = 1
ActiveWorkbook.Close
Application.DisplayAlerts = True
Set fs = CreateObject("Scripting.FileSystemObject")
Set f = fs.GetFile(filespec)
---
Message posted from http://www.ExcelForum.com/
.