Dosya sürekli aynı sayfada açılsın

[pasha22]

Merhabalar;
kullanmış olduğum dosyayı açtığımda ilk önce aşağıdaki kodlar ile gün uyarısı yapıyor.

Private Sub Workbook_Open()
Dim x As Date
x = "01.04.2018"
If x >= Date Then
MsgBox DateDiff("d", Date, x) & " gün sonra kullanım süreniz dolacaktır.."
ElseIf x < Date Then
MsgBox "Kullanım süreniz dolmuştur..", vbCritical
Cells.ClearContents
ActiveWorkbook.Save
Application.Quit
End If
End Sub

Ayrıca userform açılması için aşağıdaki kodu kullanıyorum.

Sub auto_open()
Sayfalar.Show 0
End Sub

Yukarıdakilere ek olarak dosyanın her açılışında "ŞABLON" isimli gizli olan sayfasından açılması için nasıl bir kod eklemeliyim.

Yada yukarıda tarih gelince silinecek olan sayfayı "ŞABLON" sayfası olarak nasıl yapılabilir?

Saygılar..

 

[Mustafa MUTLU]

Sub auto_open()
Sheets("ŞABLON").Visible = True
Sheets("ŞABLON").Select
Sayfalar.Show 0
End Sub

 

[pasha22]

çok teşekkür ederim, ilk açılışta ŞABLON sayfasını açarken msgbox çıktığı için en son kapalı olanı siliyor. amacım belirlenen tarih gelince Şablon sayfasının silinmesi yada sayfaya ait makroların silinmesidir.