Soru Gizli sayfalarda makroyu çalıştırmak

[dengeceteris]

Herkese merhabalar:
Sevgili forum üstadlarım; Excel dosyamın için de 20 civarında makro var. Asıl ana sayfama bir buton koydum ve aşağıda ki gibi bir formül yazdım. Ancak sayfalarım gizli olduğu için bunları çalıştıramadım. Açtığım zaman ise 20 kadar sayfayı tek tek göstererek gidiyor.
Birincisi gizlediğim halde nasıl çalıştırabilirim ?
İkincisi ise bunu yapabiliyorsam sayfaları açmadan arka planda çalıştırmak mümkün mü ?
Yardımlarınız için şimdiden tşk ederim.

sub tetikle
call AAA
call BBB
call CCC
End sub

 

[mancubus]

gizenmiş sayfada kod çalıştırmak için:

Application.ScreenUpdating = False
Worksheets("Sayfa1").Visible = True
'mevcut, o sayfada çalışacak, kodlar buraya eklenecek
Worksheets("Sayfa1").Visible = False
Application.ScreenUpdating = True

bu aynı zamanda ekran güncellemesini de engeller

 

[dengeceteris]

Üstad çok tşk ederim. Uyguladım..

 

[leonadies]

Hazır aklıma gelmişken bende burada sorayım
Sayfa 1,Sayfa 2, Sayfa 3 gibi çoklu sayfa gizleme için ; Aşağıdaki koddan daha ziyade basit bir multi kod varmı ?

Worksheets("Sayfa1").Visible = True
Worksheets("Sayfa2").Visible = True
Worksheets("Sayfa3").Visible = True

 

[Korhan Ayhan]

Böyle olabilir mi?

Sub Makro1()
    Sheets(Array("Sayfa1", "Sayfa2", "Sayfa3")).Select
    ActiveWindow.SelectedSheets.Visible = False
End Sub

Ya da döngü olabilir mi?

Sub Makro1()
    Dim Sh As Worksheet
    For Each Sh In Sheets(Array("Sayfa1", "Sayfa2", "Sayfa3"))
        Sh.Visible = False
    Next
End Sub

 

[leonadies]

Aynen @Korhan Ayhan hocam İkiside çalışıyor

 

[Seyit Tiken]

Bu şekilde biraz daha kısaltma yapılabilir.

Sheets(Array("Sayfa2", "Sayfa3")).Visible = 0