Aktiv excel kitabını adi qaydada delete edən zaman həmin prosesin excel kitabın (excel workbook) bağlanmasından sonra davam etdirilməsini mütləq şəkildə tələb edən mesaj görünür. Buna baxmayaraq bu prosesin gerçəkləşdirilməsi realdır. Bu əməliyyat əsasən faylın avtomatik yenilənməsi prosesində tələb oluna bilinər və bu prosesin aşağıdakı ardıcıllıqla həyata keçirilməsi mümkündür.
Qeyd: bu koddan istifadə etdiyiniz zaman ehtiyyatlı olun. Aşağıdakı kodu lazımlı fayllarınızın modulunda test etməniz məsləhət görülmür. Nümunə faylını yuxarıdakı linkdən yükləyə bilərsiniz.
Sub Delete_Active_File() 'Xeberdarliq mesaji x = MsgBox("Fayli legv etmek isteyirsiniz?", 17, "Delete File") 'Shert- eger "ok" sechilerse If x = 1 Then On Error Resume Next ' eger fayl readonly rejimindedirse 'Faylin readonly rejimine kechirilmesi ThisWorkbook.ChangeFileAccess xlReadOnly 'Faylin legv edilmesi (delete file) Kill ThisWorkbook.FullName 'Faylin baglanmasi ThisWorkbook.Close SaveChanges:=False End If End Sub
