Merhabalar;
aşağıda kullandığım kodlar ile tarih gelince dosyanın açıldığı sayfa siliniyor, ancak sayfa silinmesi yerine "ŞABLON" sayfasına ait kodları nasıl silebilirim.
Saygılarımla.
aşağıda kullandığım kodlar ile tarih gelince dosyanın açıldığı sayfa siliniyor, ancak sayfa silinmesi yerine "ŞABLON" sayfasına ait kodları nasıl silebilirim.
Saygılarımla.
Kod:
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