Auto Eliminar Libro

Hola Luis,

'--
Me gustaría que me ayuden con lo siguiente: Necesito que un
Libro de Excel se Elimine por completo de una computadora luego de que
llegue determinada fecha o que haya sido utilizado un número máximo de
veces, lo que ocurra primero... Es posible?? Lo necesito urgente..
'--

Colocar el siguiente codigo en el modulo VBA
ThisWorkbook :

'=>>
Private Sub Workbook_Open()
Dim NME As Name
Dim i As Long
Dim myDate As Date
Const sStr As String = "myCount"
Const myMax As Long = 5 '<< CAMBIAR

myDate = DateValue("1/6/2007") '<< CAMBIAR

On Error Resume Next
Set NME = Me.Names("myCount")
On Error GoTo 0

If Not NME Is Nothing Then
NME.RefersTo = Evaluate(NME.Name) + 1
Else
Set NME = Me.Names.Add(Name:=sStr, _
RefersTo:=1, _
Visible:=False)
End If

If Evaluate(NME.Name) > myMax _
Or Date > myDate Then
With Me
Application.DisplayAlerts = False
.ChangeFileAccess xlReadOnly
Kill .FullName
.Close False
End With
Application.DisplayAlerts = True
End If

End Sub
'<<


Regards,
Norman
Microsoft Excel MVP