more than 1 user

[uk747]

What i need is if a spreadsheet is being used it will say try again then when they click it will transfer if not being used.

Currently get it to say Please try again. Probabaly need to remove the read only part as i dont want the user opening the end sheet. not sure how to

managed to get a message saying workbook is in use please try again,

If ActiveWorkbook.ReadOnly = True Then
MsgBox "The Workbook is being accessed by another user. Please try again. ", vbOKOnly, "Read-Only"
'Exit the workbook.
ActiveWorkbook.Close False

Exit Sub
Else

then at the end

End If
MsgBox "The data has been submitted.", vbInformation, "Saved Data"



Application.ScreenUpdating = True

 

[wigi]

See:

http://www.mrexcel.com/forum/showthread.php?t=570404&highlight=userstatus

Please use

 tags when posting code here.

 

[uk747]

See:

http://www.mrexcel.com/forum/showthread.php?t=570404&highlight=userstatus

Please use

 tags when posting code here.[/QUOTE]
 
think thats for if you want to share and how many users. 
 
I dont want to see how many users, all I want is when somebody runs a macro from a book which transfers data to another book if more than 1 person transfers data at the same time, the second user will get a pop up saying Please try again and when they try again it transfers. the first part works by asking to try again although when 1st user has finished it says read only i dont want that
 
I want 2nd user to try again and it transfers without the option to open the second book

 

[uk747]

I did edit the line


MsgBox "The Workbook is being accessed by another user. Please try again. ", vbOKOnly, "Read-Only"


to MsgBox "The Workbook is being accessed by another user. Please try again. ", vbOKOnly, ""

and the data transfers ok wih a message. but then I get the pop up saying File Now Available - 'Book 2.xls' is now available for editing. Choose Read Write to open for editing.

How do I stop this from popping up

 

[uk747]

This is what i have

If ActiveWorkbook.ReadOnly = True Then
MsgBox "The Workbook is being accessed by another user. Please try again. ", vbOKOnly, ""
'Exit the workbook.
ActiveWorkbook.Close False

Exit Sub
Else

then some code which transfers data to book 2

then

ActiveWorkbook.Save
        ActiveWindow.Close
        
        Workbooks(NewName).Activate
        CutCopyMode = False
        ThisWorkbook.Activate
              
               
        
        End If
        
        
        MsgBox "Data has been submitted sucessfully.", vbInformation, "Saved Data"
        
             
       Application.ScreenUpdating = True

All I need is to somehow avoid the Popup regarding available for editing.

I saw a thread re: Application.DisplayAlerts = False but that didnt work

 

[uk747]

bump