VBA Audit Trial for warehouse item manager

I would greatly appreciate if somebody could help me make some changes to my current code VBA code.
I've tried playing with it but can't make it work the way I want due to the fact that I now have multiple people doing changes to the data at the same time and it looks like the audit log code doesn't like this.

The goal is to be able to use this with multiple people at the same time and record all the changes that occur to cells in the WH STOCK sheet and have them listed in the AUDIT LOG tab. Right now when 2 people are making a changes to the data audit records both of them and at the moment it freezes the sheet or kick other one out.

Also is there a way to include a row deletion in the audit log? and be marked as some sort of event type, if the user changes any details I have "changed cell" as the event type which is just the text so the real question is if it's possible to have excel recognise those types of events.

The short story is that I'm trying to create a temporary warehouse management system for multiple people to use prior to going into an advanced custom-built WMS system with scanners and all that and I am I noob with VBA stuff so still trying to learn a lot.

Thank you in advance if anyone can help.

This is the code that I am working right now.

Private Sub Worksheet_Change(ByVal Target As Range)
Dim i As Long, j As Long, k As Long, arr As Variant
On Error GoTo ErrTrap:
If Target.Areas.Count > 1 Then
Application.EnableEvents = True
MsgBox "sorry, you can change only one contignous range at once, old values restored", vbCritical
Else
If Target.Cells.Count > 1 Then
arr = Target.Value
Else
ReDim arr(1 To 1, 1 To 1)
arr(1, 1) = Target.Value
End If
Application.EnableEvents = False
Application.Undo
With Sheets("AuditLog")
Sheets("AuditLog").Unprotect Password:="..."
k = .Cells(.Rows.Count, "A").End(xlUp).Row + 1
For i = 1 To UBound(arr)
For j = 1 To UBound(arr, 2)
If arr(i, j) <> Target.Cells(i, j) Then
Debug.Print Target.Cells(i, j).Address, Target.Cells(i, j), arr(i, j)
.Cells(k, 1) = Application.UserName
.Cells(k, 2).Value = Environ$("computername")
.Cells(k, 3).Value = "changed cell"
.Cells(k, 4).Value = Target.Cells(i, j).Address
.Cells(k, 5).Value = Cells(Target.Cells(i, j).Row, "C").Value ' "To list referance to item code from column C"
.Cells(k, 6).Value = Cells(Target.Cells(i, j).Row, "B").Value ' "To list referance to GRN from column B"
.Cells(k, 7).Value = Cells(Target.Cells(i, j).Row, "D").Value ' "To list referance to LOT from column D"
.Cells(k, 8).Value = Target.Cells(i, j)
.Cells(k, 9).Value = arr(i, j)
.Cells(k, 10).Value = Now()
.Cells(k, 11).Value = ActiveSheet.Name
k = k + 1
End If
Next j, i
End With
Application.Undo ' this will ReDo last UnDo in case if I forget later !!! :-) !!!
Application.EnableEvents = True
Sheets("AuditLog").Protect Password:="...", UserInterfaceOnly:=True
Sheets("AuditLog").EnableAutoFilter = True
Sheets("AuditLog").AllowSorting = True

End If
Exit Sub
ErrTrap:
' keep events enabled reminder
Application.EnableEvents = True
' other errors could be also handled here


End Sub

Could you upload the workbook (or relevant part thereof) so we can have a look? Also bear in mind that Excel is essentially a single user system so multiple users will not be able to update it contemporaneously unless you take special measures.

Yes I do realise that Excel is mainly single user use but it has been ok so far with SharePoint sharing. However Access would be better fitted for this but it is also out of my league to build lol. Anyway this is the link for testing sheet
TESTing.xlsmTESTing.xlsm

We are using Office 365 for business all updated to the latest version. As for sharing the file is being shared via SharePoint. So far there is no issues with that whatsoever as everything working as intended when audit code is not active. VBA code for audit only allows 1 person to make changes and I would like to change that to be more fluid but I don't know how exactly.

This is testing copy of the sheet
TESTing.xlsm

You have made a lot of progress but I think there is still some way to go to get this working in a robust way. As TMS has pointed out, you will have issues with a number of aspects of your current approach. My own experience of shared workbooks is of horrendous file corruption, although that was with old-style file sharing which was just disastrous.

I have something of an alternative, which I think covers most of what you are trying to achieve. I have written a generic form based data entry addin and have tweaked your sample file to work with it. If you install the attached addin (Dexel Form.xlam) it will create a separate ribbon in Excel which you can use to work with the updated sample file which I also attach. Documentation for the addin can be found via the link in About on the ribbon.