Excel çalışma kitabındaki istenmeyen dosyaların silinmesi

Soru

Excel dosyamın açılışında isimleri x ve y olan sayfalar haricinde sayfa varsa bu sayfaların silinmesini nasıl sağlayabilirim?

cevap

VBA penceresinde ThisWorkbook bölümünde aşağıdaki kodu yapıştırın

 Private Sub Workbook_Open()
Application.DisplayAlerts = False 
Tekrar: 
For i = 1 To Worksheets.Count 
If Worksheets(i).Name = "x" Or Worksheets(i).Name = "y" Then GoTo ATLA 
Worksheets(i).Delete 
GoTo Tekrar: 
ATLA: 
Next i 
Application.DisplayAlerts = True 
End Sub