![Img-grin Img-grin](https://accesstr.net/images/smilies/img-grin.gif)
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