put data into an external shared file

[zeos]

Hello ,

I need to put data into another shared xlsm file , here below a piece of the code where the macro asks to open the shared file only when it is closed by controlling its readonly status , but since it is a shared file his read only is always false , and it opens it again even when it is open

Ret = IsWorkBookOpen("C:\prove share\shared.xlsm")
If Ret = False Then
Set wb1 = Workbooks.Open("C:\prove share\shared.xlsm")
Else
Workbooks("shared.xlsm").Activate

may you please help me out avoiding the file from opening again and simply activate the already open one ?

 

[zeos]

Please help! Anyone