Phục hồi file bị xóa khi sử dụng code (2 người xem)

[khoahoc78]

Mình có một file quan trọng vì tò mò các đặt hạn sử dụng file bằng VBA như sau

Sub KillFile()
Application.DisplayAlerts = False
ThisWorkbook.ChangeFileAccess xlReadOnly
Kill ThisWorkbook.FullName
ThisWorkbook.Close False
End Sub

Private Sub Workbook_Open()
If Date >= DateSerial(2014, 12, 31) Then
MsgBox "Het han su dung"
Call KillFile
End If
End Sub

Quay ra đổi ngày hệ thống mà quên lưu file với tên khác.
Thế là tiêu luôn cái file gốc
Anh chị em diễn đàn giúp em với. Cái file này rất quan trọng đối với em

 

[bongmaihung]

Mình có một file quan trọng vì tò mò các đặt hạn sử dụng file bằng VBA như sau

Sub KillFile()
Application.DisplayAlerts = False
ThisWorkbook.ChangeFileAccess xlReadOnly
Kill ThisWorkbook.FullName
ThisWorkbook.Close False
End Sub

Private Sub Workbook_Open()
If Date >= DateSerial(2014, 12, 31) Then
MsgBox "Het han su dung"
Call KillFile
End If
End Sub

Quay ra đổi ngày hệ thống mà quên lưu file với tên khác.
Thế là tiêu luôn cái file gốc
Anh chị em diễn đàn giúp em với. Cái file này rất quan trọng đối với em

Bạn thử dùng phần mềm Recover file xem có khôi phục lại được ko

 

[khoahoc78]

Không tìm thấy file đó ở nơi mình lưu

 

[Hoàng Trọng Nghĩa]

Không tìm thấy file đó ở nơi mình lưu

Tôi nghĩ rằng, xóa bằng code thì không phục hồi được đâu!