Excel Çalışmadan Çıkarken İstediğim Sekmeler Hariç Diğer Sekmeler Silinebilir mi ?

[staluer]

Merhaba,
Sorum şöyle;
Makro ile bazı değerlere göre yeni sayfalar oluşturuyoruz.Fakat kitaptan çıkarken bu sayfalrın silinmesini istiyoruz.Mümkün müdür ?

 

[Ömer]

Merhaba,

ThisWorkbook sayfasına kopyalayınız..

Private Sub Workbook_BeforeClose(Cancel As Boolean)
Application.DisplayAlerts = False
    For Each sayfa In ActiveWorkbook.Worksheets
        With sayfa
            If .Name <> "[COLOR=red]Sayfa1[/COLOR]" And .Name <> "[COLOR=red]Sayfa3[/COLOR]" Then
                .Delete
            End If
        End With
    Next sayfa
Application.Save
Application.DisplayAlerts = True
End Sub

Sayfa1 ve Sayfa3 hariç tüm sayfalar silinir.

 

[staluer]

Üstat çok teşekkürler.
Sorumu şöyle geliştiriyorum ;
Çalışma kitabı yeni sayfalar üretiyor.
Farklı kaydet yapıp kitaba isim verip kaydetmek istiyorum.Farklı kaydet yaptığım kitapta bu sayfalar kalacak.
Ana kitaptan silinecek.
Mümkün müdür ?