Dosyayı Açarken Calculation Manuel Yap

[baydeniro]

Merhaba arkadaşlar. Bir excel dosyasını açıldığında Tools > Options > Calculation özelliğini Manuel yapmak ve dosya kapanırken tekrar Automatic'e çevirmek mümkün mü ?

 

[hsayar]

ThisWorkbook ta

 Worbook_Open()
Application.Calculation = xlManual
End Sub

Private Sub Workbook_BeforeClose(Cancel As Boolean)
Application.Calculation = xlCalculationAutomatic 
End Sub

şeklinde denermisiniz.

 

[baydeniro]

Teşekkürler

Sayın hsayar yardımlarınız için çok teşekkür ederim. Yalnız kod kapanırken otomatik duruma geçiyor ancak açılırken manual olmuyor.

 

[baydeniro]

Arkadaşlar bu konuda bilgisi olan var mı !!

 

[N.Ziya Hiçdurmaz]

Yanıt

Bu şekil deneyiniz.
Private Sub Workbook_Open()
Application.Calculation = xlManual
End Sub

 

[baydeniro]

Süper süper süper. N.Ziya Hiçdurmaz Allah sizden razı olsun.