Bütün sayfaları normal görünüme ayarlama

[ASLAN7410]

Merhaba hayırlı geceler.

Aşağıdaki kodu excel sayfası ilk açıldığında bütün sayfalara nasıl uygularım. (Kod makro kaydet ile oluşturuldu.)
Yardımcı olur musunuz?

Sub Makro1()
    ActiveWindow.View = xlNormalView
End Sub

 

[Ömer BARAN]

Merhaba.

Aşağıdaki kod blokunu, VBA ekranında sol taraftan ThisWorkbook / BuÇalışmaKitabı 'nı fareyle çift tıklayıp, sağdaki boş alana yapıştırın.
Belgede birkaç sayfanın görünümünü normal dışında seçin ve belgeyi kaydederek kapatıp yeniden açın.
.

[B]Private Sub Workbook_Open()[/B]
Application.ScreenUpdating = False: Application.Calculation = xlCalculationManual
For shf = 1 To ThisWorkbook.Sheets.Count
    Sheets(shf).Activate: ActiveWindow.View = xlNormalView
Next
Application.ScreenUpdating = True: Application.Calculation = xlCalculationAutomatic
[B]End Sub[/B]

 

[ASLAN7410]

Sayın Ömer Bey hayırlı sabahlar.

Ellerinize sağlık, çok teşekkür ediyorum, tam istediğim gibi çalışıyor.

 

[Ömer BARAN]

Bir seçenek de, belge kapanırken istenilen işlemi yapmak olabilirdi.
Bunun için de; verdiğim kod'un başlık ve End Sub satır arasındaki kısmı aşağıdaki kod bloku arasına eklemeniz yeterli olur.
.

[B]Private Sub Workbook_BeforeClose(Cancel As Boolean)[/B]
[COLOR="Red"].........KODLAR......[/COLOR]
[B]End Sub[/B]

 

[ASLAN7410]

Sayın Ömer Bey, bu işlemde çok güzel oldu.

İlginize çok teşekkür ediyorum, hayırlı sabahlar.