çalışmanızda Close olayına tanımlanmış kodlar var
dolayısıyla kapamaya çalışırken o kodlar devreye giriyor sorun da bundan kaynaklanıyor

---

deneme amaçlı olarak kapanma olaylarını devre dışı bırakıp deneyin
yada kapatmaya çalışırken çalışan procedürlerin en başına aşağıdaki kodları ekleyip deneyin

If ActiveWorkbook.ReadOnly Then exit sub

eğer fonksiyon ise exit sub yerine exit function yazmanız gerekebilir