Hỗ trợ mở file excel có thời hạn sử dụng!

[hamhochoi66]

Anh chị cho em hỏi cách mở file excel có hạn chế về thời gian sử dụng trong trường hợp sau:
Một file excel có đoạn code như sau:

Sub Trial_time ()
Dim Trial_time As Date
Trial_time = DateSerial (2023, 12, 20)
If Now () >= ngaysudung Then
MsgBox "Het han su dung" & CStr(Trial_time)
ThisWorkbook.Close save changes:=False
End If
End Sub

Em muốn hỏi sau ngày 20/12/2023 thì khi mở file lên sẽ hiện thông báo rồi đóng file luôn. Vậy có cách nào để mình mở lên và sửa code lại không ạ?
Xin chân thành cám ơn!

 

[befaint]

Mình tắt macro đi là được.
Hoặc đổi ngày của hệ điều hành về ngày xửa ngày xưa.

 

[hamhochoi66]

Mình tắt macro đi là được.
Hoặc đổi ngày của hệ điều hành về ngày xửa ngày xưa.

Em cũng không rành cho lắm, nhưng chủ đích là muốn sửa lại ngày trong đoạn code, nếu tắt macro thì mình vào được VBA để sửa không ạ?

 

[hhoang_56]

Em cũng không rành cho lắm, nhưng chủ đích là muốn sửa lại ngày trong đoạn code, nếu tắt macro thì mình vào được VBA để sửa không ạ?

Thử đi, rồi sẽ biết

 

[VetMini]

Mở cái sub gọi Trial_Time lên. Comment chỗ nó gọi đi.

 

[HeSanbi]

@hamhochoi66
1. Lúc hiện thông báo "Het han su dung ... " Nhấn Ctrl + nút Page Break là được
2. Đổi tên tệp Excel mở lên không kích hoạt Macro.

 

[cantl]

If Now () >= ngaysudung Then

sau ngày 20/12/2023

Cho người ta dùng demo thì bạn phải xóa dấu = đi. Hạn sử dụng là phải hết ngày chứ nhẩy.

 

[ptm0412]

Cho người ta dùng demo thì bạn phải xóa dấu = đi. Hạn sử dụng là phải hết ngày chứ nhẩy.

nhẩy nhót gì, đúng ngày hết hạn thì không mở được, nhưng từ hôm sau trở đi thì xài thoải mái à? Tay nhanh quá đó.

 

[Nhattanktnn]

nhẩy nhót gì, đúng ngày hết hạn thì không mở được, nhưng từ hôm sau trở đi thì xài thoải mái à? Tay nhanh quá đó.

bỏ qua vấn đề ngaysudung phải là trail_time và now phải là date, thì em thấy bạn ấy nói đúng mà thầy?

 

[ptm0412]

bỏ qua vấn đề ngaysudung phải là trail_time và now phải là date, thì em thấy bạn ấy nói đúng mà thầy?

Vậy là tay tôi nhanh quá ...

 

[cantl]

nhẩy nhót gì, đúng ngày hết hạn thì không mở được, nhưng từ hôm sau trở đi thì xài thoải mái à? Tay nhanh quá đó.

Hehe. Em cứ dịch câu đấy sang tiếng Việt. Công nhận cũng nhanh.

Vậy là tay tôi nhanh quá ...

Gừng càng già càng nhanh.

 

[hamhochoi66]

@hamhochoi66
1. Lúc hiện thông báo "Het han su dung ... " Nhấn Ctrl + nút Page Break là được
2. Đổi tên tệp Excel mở lên không kích hoạt Macro.

Em bấm Ctrl+ Break => sau đó bấm End như hình hả anh?



Anh cho em hỏi thêm là khi bấm End thì vẫn cho nhập liệu và vẫn lưu được ạ. Em có cho sự kiện BeforeClose không lưu nhưng sao nó vẫn lưu.

Cám ơn anh trước ạ!

 

[HeSanbi]

Nhấn Debug để vào mã VBA bạn nhé

 

[Quang_Hải]

Chưa đủ gió mà đã muốn làm bão.

 

[hamhochoi66]

Chưa đủ gió mà đã muốn làm bão.

Đã là học hỏi thì không có gì là gió bão ở đây chú ạ! Cám ơn chú đã quan tâm bài của con. Chú không thích cứ lướt qua ạ!