How to Turn Off “File Now Available for Editing [SOLVED]

[sreekhosh]

Hi,


As per the below Macro if the file (CustomersData.xlsb) is readonly (it may using by another person) it will close and display the MsgBox says "try after sometime". But if it is closed by the person who accesed earler, I will get an alert "File is Now available for editing" Readwrite or cancell. How to disable this.


Please see the macro below.

Sub Macro1()


Workbooks.Open Filename:="192.168.1.243crpCustomersData.xlsb"


If ActiveWorkbook.ReadOnly Then

MsgBox "Reporting System is Locked for Editing!!!!!Try after a Minute "

ActiveWorkbook.Close false

Windows("CustomerProgram.xlsb").Activate

Else

'----Code for updating Deatils to the file----


End Sub


Thanks

Sreekhosh.AP

 

[anupamtiwari05]

Hi sreekhosh,


You can browse the below link which can help you.


http://www.xtremevbtalk.com/showthread.php?t=179120


Thanks & Regards,

Anupam Tiwari

 

[sreekhosh]

Hey thank you Anupam.


Set wb = Workbooks.Open("c:b - programmeringtempaha.xls", notify:=False)


is working fine,


Regards

Sree