Wait until other users close the Excel file - excel

Question

I have created a 'Login Tracker' system where 100 people all use an excel form saved to their computer, and when they hit "submit" it opens another .xlsb file(RTS Report) in a shared drive, finds the next line, and puts the data on the next line. This all takes 2-5 seconds to complete, however, if two people hit "submit" at the same time then one gets an error that the file is already open.
im new in vba please help me code for following scenarios
Check if Database.xlsb is open by another user
If not, continue with the code
If yes (file is not available) code need wait for until file close
Sub RTS()
ThisWorkbook.Activate
Application.DisplayAlerts = False
ActiveSheet.Range("A7:D7", "Q7").Select
Range("Q7").Activate
Application.CutCopyMode = False
Selection.Copy
Application.ScreenUpdating = False
Workbooks.Open Filename:="RTS Report.xlsx", ReadOnly:=False
Dim she As Worksheet
Dim a As Integer
ActiveWorkbook.Sheets("data").Activate
Set she = actveworkbook.actvesheet
b = she.Range("A" & Rows.Count).End(xlUp).Row
she.Range("A" & b + 1).PasteSpecial Paste:=xlPasteFormulasAndNumberFormats, operation:=xlNone, Skipblanks:=False, Transpose:=False
Cells.Select
Cells.EntireColumn.AutoFit
ActiveWorkbook.Save
Application.ScreenUpdating = True
ThisWorkbook.Activate
End Sub

Answer 1

As mentioned in the comments, excel is not ideal for this, but if is the only thing you have the following should work.
try to open until error disappears
Sub RTS()
ThisWorkbook.Activate
Application.DisplayAlerts = False
ActiveSheet.Range("A7:D7", "Q7").Select
Range("Q7").Activate
Application.CutCopyMode = False
Selection.Copy
Application.ScreenUpdating = False
cont = True
On Error Resume Next
While cont
Err.Clear
Workbooks.Open Filename:="RTS Report.xlsx", ReadOnly:=False
If Err.Number <> 0 Then
Application.Wait (Now + TimeValue("0:00:01"))
Err.Clear
Else
cont = False
End If
Wend
On Error GoTo 0
Dim she As Worksheet
Dim a As Integer
ActiveWorkbook.Sheets("data").Activate
Set she = actveworkbook.actvesheet
b = she.Range("A" & Rows.Count).End(xlUp).Row
she.Range("A" & b + 1).PasteSpecial Paste:=xlPasteFormulasAndNumberFormats, operation:=xlNone, Skipblanks:=False, Transpose:=False
Cells.Select
Cells.EntireColumn.AutoFit
ActiveWorkbook.Save
Application.ScreenUpdating = True
ThisWorkbook.Activate
End Sub

Answer 2

Sub RTS()
ThisWorkbook.Activate
Application.DisplayAlerts = False
ActiveSheet.Unprotect ("GLOLOGIN")
Application.ScreenUpdating = False
'Copy & Paste the data from " Scheduled Ad " sheet to "RTS Report.Xlsb" Sheet
ActiveSheet.Range("A7:D7", "Q7").Select
ActiveSheet.Range("A7:D7,Q7").Select
Range("Q7").Activate
Application.CutCopyMode = False
Selection.Copy
'RTS Report is not open then open the doc & pasete this data
cont = True
On Error Resume Next
While cont
Err.Clear
Dim wb As Workbook
Set wb = Workbooks.Open(Filename:="G:\PPR MUMBAI\Everythig Else\MIS\LILO\.Data\RTS Report.xlsx")
Do Until wb.ReadOnly = False
wb.Close
Application.Wait Now + TimeValue("00:00:01")
Set wb = Workbooks.Open(Filename:="G:\PPR MUMBAI\Everythig Else\MIS\LILO\.Data\RTS Report.xlsx")
Loop
If Err.Number <> 0 Then
Application.Wait (Now + TimeValue("0:00:01"))
Err.Clear
Else
cont = False
End If
Wend
On Error GoTo 0
Dim She As Worksheet
Dim b As Integer
ActiveWorkbook.Sheets("Data").Activate
Set She = ActiveWorkbook.ActiveSheet
b = She.Range("A" & Rows.Count).End(xlUp).Row
She.Range("A" & b + 1).PasteSpecial Paste:=xlPasteValuesAndNumberFormats, Operation:=xlNone, SkipBlanks:=False, Transpose:=False
Cells.Select
Cells.EntireColumn.AutoFit
ActiveWorkbook.Save
ActiveWorkbook.Close
ThisWorkbook.Activate
ActiveSheet.Protect ("GLOLOGIN")
Application.ScreenUpdating = True
Application.DisplayAlerts = True
End Sub