Killing the current file you need to change it's status to read only.
Sub Killed()
Application.DisplayAlerts=False
ThisWorkbook.ChangeFileAccess xlReadOnly
Kill ThisWorkbook.FullName
ThisWorkbook.Close False
End Sub
Subscribe to:
Post Comments (Atom)
No comments:
Post a Comment