save or update for shared workbook?

[rlink_23]

I just learned that my shared workbook for work may have not been the best idea. I am super bummed that I didn't research this more before I spent the last month building the quote sheet for 6 people to use. My question is I need this workbook to update on all machines when a person saves a quote to the "Quotesheet" from the Userform. Is this possible? Or can I merge the workbook over to Access easily? I have never worked with Access and don't even know if the coding will work... Or can I use a workbook.Save function on my Command button or an automatic update every 10 seconds or something? Please help! Here is the coding to my command button

Private Sub CommandButton6_Click() Dim iRow As Long
    Dim ws As Worksheet
    Set ws = Worksheets("Quotes")
     iRow = ws.Cells(Rows.Count, 1).End(xlUp).Offset(1, 0).Row
        quotenumber.Text = Application.Max(ws.Range("A:A")) + 1
        If Trim(Me.quotenumber.Value) = "" Then
       Range("QuoteNumber").Value = Range("QuoteNumber").Value + 1
  Exit Sub
End If
        
ws.Cells(iRow, 1).Value = quotenumber.Value
ws.Cells(iRow, 2).Value = Date1.Value
ws.Cells(iRow, 3).Value = Year.Value + " " + Make.Value + " " + Model.Value
ws.Cells(iRow, 4).Value = size.Value
ws.Cells(iRow, 5).Value = ComboBox1.Value
ws.Cells(iRow, 7).Value = custnumber.Value
ws.Cells(iRow, 8).Value = company.Value
ws.Cells(iRow, 9).Value = FirstName.Value + " " + Me.LastName.Value
ws.Cells(iRow, 10).Value = Phone1.Value
ws.Cells(iRow, 11).Value = City.Value
ws.Cells(iRow, 12).Value = State.Value
ws.Cells(iRow, 13).Value = ZipCode.Value
ws.Cells(iRow, 14).Value = Email.Value
ws.Cells(iRow, 16).Value = Initals.Value
ws.Cells(iRow, 17).Value = TextBox7.Value
ws.Cells(iRow, 18).Value = TextBox8.Value
ws.Cells(iRow, 19).Value = shipco.Value
ws.Cells(iRow, 20).Value = shipfirst.Value + " " + Me.shiplast.Value
ws.Cells(iRow, 21).Value = shipadd1.Value
ws.Cells(iRow, 22).Value = shipadd2.Value
ws.Cells(iRow, 23).Value = shipcity.Value
ws.Cells(iRow, 24).Value = shipstate.Value
ws.Cells(iRow, 25).Value = shipzip.Value
ws.Cells(iRow, 26).Value = shipphone.Value
ws.Cells(iRow, 27).Value = shipemail1.Value
ws.Cells(iRow, 28).Value = TAW.Value
ws.Cells(iRow, 29).Value = TextBox10
ws.Cells(iRow, 30).Value = product




If TextBox6.Visible = True Then
ws.Cells(iRow, 6).Value = TextBox6.Value
Else
If Cost.Visible = True Then
ws.Cells(iRow, 6).Value = Cost.Value
   


End If




   
   Date1.Value = Clear
   Year.Value = Clear
   Make.Value = Clear
   Model.Value = Clear
   size.Value = Clear
   ComboBox1.Value = Clear
   Cost.Value = Clear
   custnumber.Value = Clear
   company.Value = Clear
   FirstName.Value = Clear
   LastName.Value = Clear
   Phone1.Value = Clear
   City.Value = Clear
   State.Value = Clear
   ZipCode.Value = Clear
   Email.Value = Clear
   TAW.Value = Clear
   TextBox7.Value = Clear
   TextBox8.Value = Clear
   shipco.Value = Clear
   shipfirst.Value = Clear
   shiplast.Value = Clear
   shipadd1.Value = Clear
   shipadd2.Value = Clear
   shipcity.Value = Clear
   shipstate.Value = Clear
   shipzip.Value = Clear
   shipphone.Value = Clear
   shipemail1.Value = Clear
   TextBox10.Value = Clear
   product.Value = Clear
   
  End If
  
End Sub

 

[MisterProzilla]

Shared spreadsheets are more of a nuisance than they're worth, which I learned the hard way too It's not too bad when different users are modifying their own separate worksheets, but when multiple users are entering, editing and sorting data on a single sheet, nightmares will definitely ensue. The only way to update across the different version everyone has open is to first save on the one that's been edited, then save on the one you want to see updates on. The best option is to force autosaves at short intervals.