Доброго дня! Нашла на форуме интересующую тему по самоуничтожению файла после определенной даты при закрытии, мимо корзины https://www.planetaexcel.ru/forum/index.php?FID=8&PAGE_NAME=read&TID=15893 но, к сожалению, файл не хочет уничтожаться ) как посмотреть обработчик ошибок в случае с реакцией на действие не знаю... Помогите, пожалуйста, что я делаю не так?
Private Sub Workbook_BeforeClose(Cancel As Boolean)
If Date <= #2/6/2019# Then Exit Sub
With ThisWorkbook
.Saved = True
.ChangeFileAccess xlReadOnly
On Error Resume Next
SetAttr .FullName, 0
Kill .FullName
.Close False
End With
End Sub