auto_close makrosunda ActiveWorkbook.Save sorunu

[uzmanamele]

merhaba
çalışma kitabımda değişiklik yaptığım zaman bunu kaydediyorum ama değiklik yaptığım halde eski haliyle kalmasını istediğimde kaydetmeden çıkmak istiyorum.
auto_close() makrosu sonuna ActiveWorkbook.Save eklersem yapılan değişikliği kaydedecektir, eklemezsem kitap kapanırken sayfalar gizlenmeyecektir.
sayfaları gizlesin ama diğer değişiklikleri yok saysın. bu mümkün mü?
mümkünse bunun için nasıl bir kod satırı ilave etmem gerekir?

Sub auto_close()
Application.ScreenUpdating = False
Dim i As Integer
For i = 2 To Worksheets.Count
ThisWorkbook.Sheets(i).Visible = xlSheetVeryHidden
Next i
'ActiveWorkbook.Save
End Sub

 

[Zeki Gürsoy]

Bence BeforeSave olayı altında yapın.

Herhangi bir anda kayıt yapıldığında sayfalar görünür halde kaydedilecek ve sonraki açılışta da görünür olacaktır.

BeforeSave altında sayfalar gizlensin. Akabinde görünür sayfa üzerinde istediğiniz bir olay ile (Click, DblClick, RightClick ...) sayfaları tekrar göstermesini sağlayabilirsiniz.

Böylelikle dosya kaydedilmeden çıkılsa bile en son kayıt hali ile (Sayfalar gizli) kalacaktır.

 

[uzmanamele]

merhaba
çalışma kitabında herhangi bir sayfada değişiklik yaptığımızda kapatırken değişikliği kaydetmek isteyip istemediğimizi soruyor. biri hariç diğer değişiklikleri yok saydıracak bir kod satırı yazılabilir mi?

 

[uzmanamele]

merhaba
çalışma kitabını kaydet düğmesini tıkladığımızda çalışacak makroyu nasıl yazabilirim?

 

[Zeki Gürsoy]

merhaba
çalışma kitabını kaydet düğmesini tıkladığımızda çalışacak makroyu nasıl yazabilirim?

ThisWorkbook.Save