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