Aynı Anda Çalışan Excel Dosyasındaki Çakışma

[bugrakaratas]

Üstadlar hepiniz merhaba;
Aşağıdaki gibi bir kod ile otomatik bir proje kodu üretmekteyim. Dosyayı paylaştırıp server üzerinden çalıştırdığımda haliyle dosya açıkken üretilen kodlar birbirlerine akratılmadığı için çakışmaktadır.
Bunu nasıl düzeltebilirim.

Sub Resim8_Tıklat()

Dim x As Integer
x = Sheets("Veri Girişi").Range("D9").Value
x = x + 1
Sheets("Veri Girişi").Range("D9").Value = x

    Set s1 = Sheets("Veri Girişi")
    Set s2 = Sheets("DATA")
    ss = s2.Cells(Rows.Count, 1).End(xlUp).Row + 1
    s2.Cells(ss, 1).Value = s1.Cells(9, 4).Value
    s2.Cells(ss, 2).Value = s1.Cells(2, 3).Value
    s2.Cells(ss, 3).Value = s1.Cells(3, 3).Value
    s2.Cells(ss, 4).Value = s1.Cells(4, 3).Value
    s2.Cells(ss, 5).Value = s1.Cells(5, 3).Value
    s2.Cells(ss, 6).Value = s1.Cells(3, 10).Value
    s2.Cells(ss, 7).Value = s1.Cells(6, 3).Value
    s2.Cells(ss, 8).Value = s1.Cells(7, 3).Value
    
    projekodu = Sheets("Veri Girişi").Range("J3").Value
    MsgBox "Proje Kodunuz Oluşturuldu" & " " & projekodu
    
    s1.Cells(2, 3).Value = ""
    s1.Cells(3, 3).Value = ""
    s1.Cells(4, 3).Value = ""
    s1.Cells(5, 3).Value = ""
    s1.Cells(6, 3).Value = ""
    s1.Cells(7, 3).Value = ""
    
    
    s2.Activate
    
    ActiveWorkbook.Save

End Sub