Dosya kaydet kapat hatası hk

[u.L.a.s]

Merhabalar

dosyayı kapatırken kaydedip kapatsın diye aşağıda ufak bir kayıt macrosu yazdım.

Bu dosya ortak bir alanda olduğundan ilk kişiden sonra ikinci bir kişi açarsa read only olarak açıyor. read only açıp kapatmak isteyince kaydetmek ister misin gibi sorular soruyor. bu sorguyu engellemek istiyorum. ve read only açmış olan kapatırken herhangi bir hatayla karşılaşmasın.

Aşağıdaki kodda eğer read only değilde ilk olarak açmışsam bu sefer kapatırken compile error hatası veriyor.

Konuyla ilgili bilgi ve yardımlarınızı rica ederim

Sub kayıt()
If ThisWorkbook1.ReadOnly = True Then
Exit Sub
Else
On Error Resume Next
ActiveWorkbook.Save
End Sub

 

[EmrExcel16]

Sub auto_Close()
    If ThisWorkbook.ReadOnly = True Then
        ThisWorkbook.Saved = True
    Else
        ThisWorkbook.Save
    End If
End Sub

 

[u.L.a.s]

üstadım çok teşekkürler emeğine bilgine sağlık.