title: How Can I Allow Multiple Users to Input Via Userform Without Overwriting Conflict
body: <p>I have created a shared workbook containing a userform that has VBA code to transfer  input data to a worksheet.  However, when multiple users enter data a Resolve Conflict dialog box is displayed as follows:</p>
  
  <p>Your changes on sheet "SrOfcSpc" changed cell A4 from '' to '4/15/2016'
    Conflicting changes by John Doe -- 4/11/16 3:44PM changed cell A4 from 
      '' to '4/11/2016'</p>
  
  <p>How can I prevent this from happening so that multiple users can input at the same time?  Below is a snippet of my existing code.  Thank you.</p>
  
  <pre><code>lrCD4 = Sheets("SrOfcSpc").Range("A" &amp; 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
  </code></pre>