VBA UserForm causing errors for SharePoint users

[sk8_chris20]

Greetings, I hope some of you can help me with this.
I have created a UserForm via VBA code and ever since this was implemented into the spread sheet we have started receiving errors like "Your changes could not be saved" or "excel cannot save changes made by another user" any idea why this form might be causing that?
I have several Macros running including AuditLog and everything works smoothly but when another user opens the file while someone is adding stock via the form everything goes **** up.

Hope someone can help.

Here is the code for activating the form in the spreadsheet:

Private Sub CommandButton1_Click()
add_frm.Show
End Sub

And here is the code of the UserForm itself:

Private Sub CommandButton1_Click()
Dim sht As Worksheet, sht1 As Worksheet, lastrow As Long
''''''''Validation''''''''

If Me.TextBox1.Value = "" Then
MsgBox "Please enter a correct location", vbCritical
Exit Sub
End If

If VBA.IsNumeric(Me.TextBox2.Value) = False Then
MsgBox "Please enter a correct GRN", vbCritical
Exit Sub
End If

If Me.TextBox3.Value = "" Then
MsgBox "Please enter a correct item code", vbCritical
Exit Sub
End If

If Me.TextBox6.Value = "" Then
MsgBox "Please enter transaction date", vbCritical
Exit Sub
End If

If Me.TextBox6.Value = "" Then
MsgBox "Please enter quantity", vbCritical
Exit Sub
End If

If Me.OptionButton1.Value = False And Me.OptionButton2.Value = False And Me.OptionButton3.Value = False And Me.OptionButton4.Value = False Then
MsgBox "Please select status", vbCritical
Exit Sub
End If

''''''''End of Validation''''''''
Set sht = ThisWorkbook.Sheets("WH STOCK")

lastrow = sht.Range("a" & Rows.Count).End(xlUp).Row + 1


''''sh.unprotect code - if ever I needed''''
With sht

.Range("A" & lastrow).Value = Me.TextBox1.Value
.Range("B" & lastrow).Value = Me.TextBox2.Value
.Range("C" & lastrow).Value = Me.TextBox3.Value
.Range("D" & lastrow).Value = Me.TextBox4.Value
.Range("G" & lastrow).Value = Me.TextBox5.Value
.Range("H" & lastrow).Value = "Y"
.Range("I" & lastrow).Value = Me.TextBox6.Value
.Range("K" & lastrow).Value = Me.TextBox7.Value
.Range("L" & lastrow).Value = Me.TextBox10.Value
.Range("M" & lastrow).Value = Me.TextBox11.Value
.Range("N" & lastrow).Value = Me.TextBox13.Value
.Range("O" & lastrow).Value = Me.TextBox14.Value
.Range("P" & lastrow).Value = Me.TextBox15.Value
.Range("Q" & lastrow).Value = Me.TextBox16.Value
.Range("R" & lastrow).Value = Me.TextBox17.Value
.Range("G" & lastrow).NoteText Text:=add_frm.TextBox18.Value


''''sh.protect code - if ever I needed''''

End With
sht.Activate
If Me.OptionButton1.Value = True Then sht.Range("J" & lastrow).Value = "APPROVED"
If Me.OptionButton2.Value = True Then sht.Range("J" & lastrow).Value = "ON HOLD"
If Me.OptionButton3.Value = True Then sht.Range("J" & lastrow).Value = "REJECT"
If Me.OptionButton4.Value = True Then sht.Range("J" & lastrow).Value = "QUARANTINE"

Exit Sub


End Sub

Private Sub CommandButton2_Click()
Me.TextBox1.Value = ""
Me.TextBox2.Value = ""
Me.TextBox3.Value = ""
Me.TextBox4.Value = ""
Me.TextBox5.Value = ""
Me.TextBox6.Value = ""
Me.TextBox7.Value = ""
Me.TextBox10.Value = ""
Me.TextBox11.Value = ""
Me.TextBox13.Value = ""
Me.TextBox14.Value = ""
Me.TextBox15.Value = ""
Me.TextBox16.Value = ""
Me.TextBox17.Value = ""
Me.TextBox18.Value = ""

Me.OptionButton1.Value = False
Me.OptionButton2.Value = False
Me.OptionButton3.Value = False
Me.OptionButton4.Value = False

End Sub

[torachan]

if you run 'debug' do you get any comment at the row below - the code is alien to me.

Please Login or Register  to view this content.

[sk8_chris20]

No I don't but I have removed this right before you posted your reply and tested everything and it works. So killing the "add comment" section on the form did the trick. Thank you for your reply