File Excel có thể tự xoá.

[tedaynui]

Dear all,
Lâu nay muốn xoá 1 file nào đó thì thông thường file đó phải "đóng" thì ta mới có thể xoá được. Mình vừa tìm được cách xoá file khi nó được mở (thực ra là xoá sau khi đóng), xin chia sẻ cùng các bạn.
Excel quả thật diệu kỳ !

TDN

 

[Kiều Mạnh]

trên GPE nhiều bao la các loại bạn ơi .... gõ từ khóa cần tìm thấy liền chúc tìm được cái bạn cần

 

[matran25251325]

Cảm ơn bài viết của anh rất hay.
@tedaynui anh có thế giúp em code xác định thời gian đến là file tự xóa được không anh.

Brg

Đại loại là thế này: (nguồn của bác nào đó không rõ )
Private Sub Workbook_Open()
If Date >= DateSerial(2001, 01, 01) Then
MsgBox "Het han su dung"
Thisworkbook.Close False '<-----
End If
End Sub
sửa 1 tí phần tô màu đen là được.

 

[thanhnuce]

Cho mình hỏi. Khi mình thử làm với code như sau:
'Private Sub Workbook_Open()
If ActiveCell.FormulaR1C1 = "=Sheet1!R1C1" <> "Thu nghiem" Then
Call KillFile
End If
End Sub

Thì sau khi mình sửa thì ô A1 trong Sheet1 là "Thu chay" thì file excel của mình bịa xóa (nhưng trước đó mình có copy file đó thành 2 file và sửa tên khác)
Như thật lạ là khi mở file copy trước đó đã được đổi tên nhưng nó vẫn bị "tự xóa"
Vậy các bạn cho mình biết cái code nó đã lưu vào đâu trong máy tính để mình xóa nó đi không cho nó xóa file nưa.
Rất mong được sự giúp đỡ của các bạn!

 

[dantaichinh]

Cho mình hỏi. Khi mình thử làm với code như sau:
'Private Sub Workbook_Open()
If ActiveCell.FormulaR1C1 = "=Sheet1!R1C1" <> "Thu nghiem" Then
Call KillFile
End If
End Sub

Thì sau khi mình sửa thì ô A1 trong Sheet1 là "Thu chay" thì file excel của mình bịa xóa (nhưng trước đó mình có copy file đó thành 2 file và sửa tên khác)
Như thật lạ là khi mở file copy trước đó đã được đổi tên nhưng nó vẫn bị "tự xóa"
Vậy các bạn cho mình biết cái code nó đã lưu vào đâu trong máy tính để mình xóa nó đi không cho nó xóa file nưa.
Rất mong được sự giúp đỡ của các bạn!

Mình cũng có file như bạn, dù đã copy và đổi tên file thì khi mở ra vẫn bị " tự xóa". có bác nào biết vì sao không?