
Ayrıca eğer kaydetmeden kapansın derseniz close den sonra boşluk bırakıp False yazın normalde böyle oacak sanıyorum.
Sub Auto_Open
Kodlar yazılacak
End Sub
If ActiveWorkbook.ReadOnly Then exit sub
eğer fonksiyon ise exit sub yerine exit function yazmanız gerekebilir