MasterFile cannot be opened or accessed by several users on the same time

MasterFile cannot be opened/accessed by several users on the same time. I have a Master Workbook which users from different workstations store data via the use of a VBA macro. In each workstation, users use a workbook called “TimeandAttendance” to track hours worked and attendance. At the end of the shift, each user must click on the button “send it” to send and store collected data. The problem arises when several users are accessing the Master Workbook at the same time. Does anyone know if there is a better way or method of accomplishing this task? These two files are in Excel, but I am thinking if I should use Microsoft Access? The error that we receive when the Master Workbook is opened reads like this: MasterFile.xls is already open. Reopening will cause any changes you made to be discarded. Do you want to reopen MasterFile.xls? Your help is greatly appreciate.

Hi Kimston,

Where is the "send it" button?

Hi Kimston,

Try this:

Option Explicit
Dim MFile As String
Dim lastrow As Long
Dim frow As Long
Dim lrow As Long
Dim i As Integer

Sub update_master()
'Change the MasterFile Path
MFile = "C:\Users\Rosendo\Documents\MasterFile.xls"

For i = Workbooks.Count To 1 Step -1
If Workbooks(i).Name = "MasterFile.xls" Then
MFile = "MasterFile.xls": GoTo Opened: End If: Next i
 
Workbooks.Open MFile
MFile = ActiveWorkbook.Name
 
Opened:

lastrow = ThisWorkbook.Worksheets("TimeAndAttendance").Range("A" & Rows.Count).End(xlUp).Row
ThisWorkbook.Worksheets("TimeAndAttendance").Range("A9:H" & lastrow).Copy _
Workbooks(MFile).Worksheets("Master").Range("B" & Rows.Count).End(xlUp).Offset(1, 0)

frow = Workbooks(MFile).Worksheets("Master").Range("K" & Rows.Count).End(xlUp).Row
lrow = Workbooks(MFile).Worksheets("Master").Range("B" & Rows.Count).End(xlUp).Row

Workbooks(MFile).Worksheets("Master").Range("J" & frow + 1 & ":J" & lrow).Value = ThisWorkbook.Worksheets("TimeAndAttendance").Range("B3").Value
Workbooks(MFile).Worksheets("Master").Range("K" & frow + 1 & ":K" & lrow).Value = ThisWorkbook.Worksheets("TimeAndAttendance").Range("B4").Value
Workbooks(MFile).Worksheets("Master").Range("L" & frow + 1 & ":L" & lrow).Value = ThisWorkbook.Worksheets("TimeAndAttendance").Range("B5").Value
Workbooks(MFile).Worksheets("Master").Range("A" & frow + 1 & ":A" & lrow).Value = ThisWorkbook.Worksheets("TimeandAttendance").Range("B6").Value
      Workbooks("MasterFile.xls").Close SaveChanges:=True
        'Application.Quit
End Sub