2 vba join together

  • Thread starter Thread starter jinvictor
  • Start date Start date
J

jinvictor

how can i put the following 2 vba together, so when the workbook expire
or over the limited, it will be deleted from the system?
1.
Option Explicit
Sub KillMe()
With ThisWorkbook
.Saved = True
.ChangeFileAccess
Mode:=xlReadOnly
Kill .FullName .Close False
End With
End Sub

2.
Private Sub Workbook_Open()
Dim incRange As Range
Dim StartDate As Date
Set incRange = Range("Increment")
StartDate = "19/06/06" 'Date delivered to customer
Sheets("hidden").Visible = xlVeryHidden
incRange = incRange + 1
Me.Save
If incRange > 10 Or Date - StartDate > 14 Then
Application.DisplayAlerts = False
MsgBox "over the use limit, contact owner"
Me.Close
End If
End Sub


than
 
Private Sub Workbook_Open()
Dim incRange As Range
Dim StartDate As Date
Set incRange = Range("Increment")
StartDate = "19/06/06" 'Date delivered to customer
Sheets("hidden").Visible = xlVeryHidden
incRange = incRange + 1
Me.Save
If incRange > 10 Or Date - StartDate > 14 Then
Saved = True
ChangeFileAccess Mode:=xlReadOnly
Kill Me.FullName
Me.Close False
End If
End Sub

but why not just acll KillMe in the IF statement?

--
HTH

Bob Phillips

(replace somewhere in email address with gmail if mailing direct)
 
Back
Top