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