Thời hạn sử dụng của file excell (1 người xem)

[hồminhlý]

Mình có 1 file MS Excel. Mình muốn chia sẻ file cho các bạn xài chi 1 khoảng thời gian thôi ví dụ ngày 15/11/2011 là hết hạn sử dụng (thông báo hết hạn sử dụng). Công việc này chỉ mục đích vui thôi, mình biết là không tuyệt đối lắm. Các bác giúp dùm.
Xin nói thêm khi có thông báo thì thoát khỏi file ecel luôn.

 

[ndu96081631]

Mình có 1 file MS Excel. Mình muốn chia sẻ file cho các bạn xài chi 1 khoảng thời gian thôi ví dụ ngày 15/11/2011 là hết hạn sử dụng (thông báo hết hạn sử dụng). Công việc này chỉ mục đích vui thôi, mình biết là không tuyệt đối lắm. Các bác giúp dùm.
Xin nói thêm khi có thông báo thì thoát khỏi file ecel luôn.

Nếu chỉ là "vui vui" thôi thì vầy:

Sub Auto_Open()
  If Date >= DateSerial(2011, 11, 15) Then
    MsgBox "Het han su dung roi các cha oi!"
  End If
End Sub

Thêm vụ "buồn buồn" gì đó nữa, bạn tự nghiên cứu đi

 

[khoavu87]

Nếu chỉ là "vui vui" thôi thì vầy:

Sub Auto_Open()
  If Date >= DateSerial(2011, 11, 15) Then
    MsgBox "Het han su dung roi các cha oi!"
  End If
End Sub

Thêm vụ "buồn buồn" gì đó nữa, bạn tự nghiên cứu đi

Buồn chắc thêm hàm Kill nữa .

 

[hồminhlý]

Nếu chỉ là "vui vui" thôi thì vầy:

Sub Auto_Open()
  If Date >= DateSerial(2011, 11, 15) Then
    MsgBox "Het han su dung roi các cha oi!"
  End If
End Sub

Thêm vụ "buồn buồn" gì đó nữa, bạn tự nghiên cứu đi

Cái vụ này đúng là vui thật, nhưng cho thêm 1 cái nữa là có thông báo rồi nhấp vào nút ok sau đó thoát hẳn file đó luôn các bác ơi.

 

[khoavu87]

Cái vụ này đúng là vui thật, nhưng cho thêm 1 cái nữa là có thông báo rồi nhấp vào nút ok sau đó thoát hẳn file đó luôn các bác ơi.

Bạn muốn thoát hẳn file ở khía cạnh nào?
1/Xóa hẳn file
2/hay chỉ tắt nó đi thôi?

 

[hồminhlý]

Bạn muốn thoát hẳn file ở khía cạnh nào?
1/Xóa hẳn file
2/hay chỉ tắt nó đi thôi?

Chỉ tắt không vào trang tính được đó bác

 

[khoavu87]

Chỉ tắt không vào trang tính được đó bác

Thế thì thêm dòng này từ đoạn code của Bác Ndu là được:

Private Sub Workbook_Open()
  If Date >= DateSerial(2011, 11, 11) Then
    MsgBox "Het han su dung"
    Application.Quit '<-----
  End If
End Sub

 

[nghiaphuc]

Thế thì thêm dòng này từ đoạn code của Bác Ndu là được:

Private Sub Workbook_Open()
  If Date >= DateSerial(2011, 11, 11) Then
    MsgBox "Het han su dung"
    Application.Quit '<-----
  End If
End Sub

Chỉ nên dùng Thisworkbook.Close False thôi Khoa, không nên dùng Application.Quit, lỡ còn Workbook khác đang mở thì sao?!

 

[quykh]

còn xóa thì: .Delete hả bạn

 

[khoavu87]

còn xóa thì: .Delete hả bạn

Như bài thứ 3 mình có nói đến hàm này:

hàm Kill

Bạn gõ tìm nó trên diễn đàn sẽ thấy.

 

[quykh]

bạn có thể viết ra được không?

 

[phamxuanly.gtvt]

Sao em copy vô Workbook ko được các anh nhỉ, chọn Yes hay No đều ko được.
như có hình kèm theo

 

[pro8x]

Nếu chỉ là "vui vui" thôi thì vầy:

Sub Auto_Open()
  If Date >= DateSerial(2011, 11, 15) Then
    MsgBox "Het han su dung roi các cha oi!"
  End If
End Sub

Thêm vụ "buồn buồn" gì đó nữa, bạn tự nghiên cứu đi

thêm vụ buồn buồn mà CA điều tra ra là thâyf tèo đấy

 

[pro8x]

Sao em copy vô Workbook ko được các anh nhỉ, chọn Yes hay No đều ko được.
như có hình kèm theo

không dùng excel 2010.Chỉ dùng 2k7 khi bào như vầy là đang lưu ở dạng excel woorkbook oi => k được đâu phải luwu ở dạng excel 97-2003 hoặc excel macro mới được.trả biết đúng không
P/S: Nghi bác này cài hàm kill vô lắm )

 

[matran25251325]

Cho em hỏi nếu code như #7 thì file sao khi áp dụng code thì mở file lên => alt F11 thì sẽ bị protect hết. Vậy có cách nào áp dụng code và file sẽ bị close khi hết thơi gian, nhưng vào macro thi code vẫn chỉnh sửa hay tự protect được

 

[matran25251325]

ah chỉ cần dis macro là có thể làm mọi thứ. HeHe thế mà nghĩ ko ra

 

[phamxuanly.gtvt]

ah chỉ cần dis macro là có thể làm mọi thứ. HeHe thế mà nghĩ ko ra

Thì code này thích hợp với những file tính toán có kết hợp với macro, nếu Dismacro thì tính toán ko ra.

 

[phamxuanly.gtvt]

Nếu ta lùi thời gian của máy tính lại, thế là xong. có cách nào kết hợp với code này được ko?

Private Sub Workbook_Open()
Solan = GetSetting(

 

[Kiều Mạnh]

Nếu ta lùi thời gian của máy tính lại, thế là xong. có cách nào kết hợp với code này được ko?

Private Sub Workbook_Open()
Solan = GetSetting("MyCount", "A", "Count", 0) + 1
MsgBox "File da duoc mo " & Solan & " lan"
SaveSetting "MyCount", "A", "Count", Solan
Sub If Solan > 3 Then Call KillFile
End

Nếu today < ngày đã định trong code thì đếm 3 lần sẻ xóa file

BẠN CHỊU KHÓ ĐỌC ĐI TRÊN DIỄN DAN CODE có rất nhiều nếu bạn có khả năng copy và cắt ghép lại vẫn chạy tốt... nhiều khi có câu bạn hỏi sẽ không ai trả lời đâu... đừng hỏi mình là tại sao... ngâm cứu đi sẽ biết
trân trọng