Excel 如何允许多个用户通过Userform输入而不覆盖冲突

Excel 如何允许多个用户通过Userform输入而不覆盖冲突,excel,vba,Excel,Vba,我创建了一个共享工作簿,其中包含一个userform,该userform具有VBA代码,可以将输入数据传输到工作表。但是,当多个用户输入数据时,将显示“解决冲突”对话框,如下所示: 您在工作表“SrOfcSpc”上的更改将A4单元格从“”更改为“2016年4月15日” John Doe的冲突更改--2016年11月4日下午3:44将A4单元格从 “”至“2016年11月4日” 如何防止这种情况发生,以便多个用户可以同时输入?下面是我现有代码的一个片段。多谢各位 lrCD4 = Sheets("S

我创建了一个共享工作簿,其中包含一个userform,该userform具有VBA代码,可以将输入数据传输到工作表。但是,当多个用户输入数据时,将显示“解决冲突”对话框,如下所示:

您在工作表“SrOfcSpc”上的更改将A4单元格从“”更改为“2016年4月15日” John Doe的冲突更改--2016年11月4日下午3:44将A4单元格从 “”至“2016年11月4日”

如何防止这种情况发生,以便多个用户可以同时输入?下面是我现有代码的一个片段。多谢各位

lrCD4 = Sheets("SrOfcSpc").Range("A" & Rows.Count).End(xlUp).Row
Sheets("SrOfcSpc").Cells(lrCD4 + 1, "A").Value = TextBox43.Text
Sheets("SrOfcSpc").Cells(lrCD4 + 1, "B").Value = TextBox44.Text
Sheets("SrOfcSpc").Cells(lrCD4 + 1, "C").Value = TextBox25.Text
Sheets("SrOfcSpc").Cells(lrCD4 + 1, "D").Value = TextBox26.Text
Sheets("SrOfcSpc").Cells(lrCD4 + 1, "E").Value = TextBox27.Text
Sheets("SrOfcSpc").Cells(lrCD4 + 1, "F").Value = TextBox31.Text
Sheets("SrOfcSpc").Cells(lrCD4 + 1, "G").Value = TextBox23.Text
Sheets("SrOfcSpc").Cells(lrCD4 + 1, "H").Value = TextBox24.Text
Sheets("SrOfcSpc").Cells(lrCD4 + 1, "I").Value = TextBox29.Text
Sheets("SrOfcSpc").Cells(lrCD4 + 1, "J").Value = TextBox30.Text
Sheets("SrOfcSpc").Cells(lrCD4 + 1, "K").Value = TextBox195.Text
Sheets("SrOfcSpc").Cells(lrCD4 + 1, "L").Value = TextBox196.Text
Sheets("SrOfcSpc").Cells(lrCD4 + 1, "M").Value = TextBox204.Text
Sheets("SrOfcSpc").Cells(lrCD4 + 1, "N").Value = TextBox203.Text
Sheets("SrOfcSpc").Cells(lrCD4 + 1, "O").Value = TextBox200.Text
Sheets("SrOfcSpc").Cells(lrCD4 + 1, "P").Value = TextBox199.Text
Sheets("SrOfcSpc").Cells(lrCD4 + 1, "Q").Value = TextBox198.Text
Sheets("SrOfcSpc").Cells(lrCD4 + 1, "R").Value = TextBox197.Text
Sheets("SrOfcSpc").Cells(lrCD4 + 1, "S").Value = TextBox202.Text
Sheets("SrOfcSpc").Cells(lrCD4 + 1, "T").Value = TextBox201.Text
Sheets("SrOfcSpc").Cells(lrCD4 + 1, "U").Value = TextBox205.Text

以防它帮助其他人寻求解决方案。我从另一个工作板上的用户那里找到了下面的解决方案

Private Sub Save_Click()
ActiveWorkbook.Sheets("sheetname").Activate
Range("A1").Select
Do
If IsEmpty(ActiveCell) = False Then
ActiveCell.Offset(1, 0).Select
End If
Loop Until IsEmpty(ActiveCell) = True
ThisWorkbook.Save

使用数据库,或让每个人在不同的工作表上输入数据。我尝试过让每个人的数据都放到不同的工作表上,但是没有用。我的userform设置有多个选项卡(如招聘人员等),用户根据自己的角色类型选择合适的选项卡。因此,即使招聘人员1输入他们的数据并将其写入招聘人员1的单独工作表中,如果我尝试将招聘人员2的vba代码引导到他们的单独选项卡中,它仍然会指向招聘人员1的工作表,因为他们在用户表单上使用相同的文本框字段。还有其他建议吗?