(VBA CODE) being told file is READ ONLY but is not the case

[michaelproctor001]

afternoon all

i have a simple part of my VBA code below

the rest of the code opens / closes various workbooks and moves data around

for the below workbook i can only let 1 user in at a time and the code was working great until today
(i made lots of changes to the macro but on the specific code below i moved the destination of the target file to a shared drive)

i now get the error message box...
MsgBox "A Colleague On your Team is saving there data. Please wait 5 seconds and try again"

but the file is 100% not in use by someone else
the password is correct
the file name / destination is correct
i have tried moving back to the old drive aswell

could anything else be making my macro believe this file is read only???
or can anyone else see an error in there ???

thanks in advance

mike

Please Login or Register  to view this content.

[michaelproctor001]

ok when i personally run the macro its fine

when my colleages run it it gives the error MsgBox

i asked my colleagus to go into the drive to see if they have access and the file opens fine for them!!!

but on the macro it doesnt ??????????????
aaaaahhhhhhhhhhhh!!!!!

[nathansav]

Is S:\Auth Model\FLT EXPORT MASTER.xls set as read only?

[michaelproctor001]

Facepalm

I.T had restricted access to that folder for people working in our bristol office !!!!

so thats why it was working in London testing but not when giving to bristol office

again double facepalm

on another note if your reading this post youve probably got a similer problem so here is another way of doing the same thing

' Open Invoice File
MyInvoiceFile = "W:\USERS\INVOICE #2002.xls"
Set MyWorkBook = Workbooks.Open(MyInvoiceFile)

' Check to see if file is already open
If MyWorkBook.ReadOnly Then
ActiveWorkbook.Close
MsgBox "Cannot update Invoice Log, someone currently using file. Please try again later."
Exit Sub
End If



or if you want to see if user already has a file open and thus prevent re opening



On Error Resume Next
Workbooks("FILENAME HERE.xls").Activate
If Err <> 0 Then Err.Clear: Workbooks.Open ("DRIVE\FOLDER\FILENAME HERE.xls")



bests

mike