Çözüldü Sadece bir excel dosyası için el ile hesaplama yapma

Dosyanızın Buçalışmakitabı' nın kod bölümüne yapıştırıp, kaydedin.
Dosyanız makro içerebilen formatta olmalıdır.
HTML:

Bir sayfada çalışma yaparken, el ile hesaplama yapıp, sayfadan çıkınca bu sayfadaki formüller toptan otomatik hesaplanacak ve diğer sayfalarda otomatik hesaplanmaya devam edilecekse ilgili sayfanın kod modülüne yapıştırın
HTML:

Merhabalar,
Her iki çözümü de denedim ancak başlangıçta yine formülleri güncelledi. Tekrar "el ile hesaplama " olarak işaretle yapmak zorunda kaldım.
Formüller kısmına baktığımda otomatik hesaplama işaretliydi. Formüller dağınık şekilde olduğundan workbook şeklinde ilerlemem daha uygun olur gibi
Başlangıçta çalışan bir kaç makrom daha var, acaba bu yüzden olabilir mi?

Başlangıçta çalışan makrolar;
Sub Autpen()
UserForm1.Show
End Sub

Çok fazla pivot tablosu olduğu için şu makroyu da eklemiştim, cache silsin diye, belki buton ile aktif olan bir makro yapılmalı bunun için bilemedim:

Private Sub Workbook_Open()

Dim xPt As PivotTable

Dim xWs As Worksheet

Dim xPc As PivotCache

Application.ScreenUpdating = False

For Each xWs In ActiveWorkbook.Worksheets

For Each xPt In xWs.PivotTables

xPt.PivotCache.MissingItemsLimit = xlMissingItemsNone

Next xPt

Next xWs

For Each xPc In ActiveWorkbook.PivotCaches

On Error Resume Next

xPc.Refresh

Next xPc

Application.ScreenUpdating = True

End Sub

Aslında kavramlar biraz karışmış, bir dosyada "el ile hesaplama" ayarlamış ise sadece o dosyada geçerli olur,
Bir dosyanın sayfaları arasında böyle bir durum, olmasını istiyor olmanız gerek.
Önerilen iki kodda başka bir durum olmadığına göre yapılmış, örnek dosya eklerseniz,, çözüm aramaya çalışalım.

1. "el ile hesaplama " seçin ya da
2. Aşağıdaki Kodu kullanın
HTML: 3. Çalışma sayfasında iken hesaplama yapmak istiyorsanız çalışma sayfasının ilgili kodlarında ActiveSheet.Calculate kullanın

Teşekkür ederim, her iki çözüm de uygundu ancak bir tane işaretlememe izin veriyor sistem