• Hi All

    Please note that at the Chandoo.org Forums there is Zero Tolerance to Spam

    Post Spam and you Will Be Deleted as a User

    Hui...

  • When starting a new post, to receive a quicker and more targeted answer, Please include a sample file in the initial post.

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

sreekhosh

Member
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
 
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

Member
Hey thank you Anupam.


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


is working fine,


Regards

Sree
 
Top