Giới hạn thời gian hoạt động cho macro (1 người xem)

[yeu_excel]

Mình có 1 file excel trong đó có chứa macro (ví dụ ở file đính kèm). Nay mình muốn giới hạn thời gian sử dụng cho macro đó thì làm cách nào
Ví dụ nay là ngày 10/11/2012, macro hoạt động bình thường. Nếu đồng hồ của máy tính chỉ ngày 15/11/2012 thì macro đó không chạy được nữa
Xin các bạn chỉ giúp. Cám ơn các bạn nhiều!

 

[ChanhTQ@]

Sub hien()
    If Date > #11/14/2012# Then
        MsgBox "Xin Chào!", , "Byte"
        Exit Sub
    End If
    UserForm1.Show
End Sub

. . . . . . . . . . . . . . . . . . . .

 

[yeu_excel]

Có thế mà mình không biết. Mình gà mờ thật. Xin cho hỏi thêm: Nếu giới hạn thời gian mở file thì làm thế nào?

 

[PhanTuHuong]

Có thế mà mình không biết. Mình gà mờ thật. Xin cho hỏi thêm: Nếu giới hạn thời gian mở file thì làm thế nào?

Đà là gà mờ thì cày thêm, tôi nghĩ bạn đang thực hiện 1 công việc không có chủ ý chia sẻ trong khi trình độ còn hạn chế!!!!

 

[yeu_excel]

Buồn quá thầy Hướng ạ. Không biết thì em mới hỏi. Thầy không giúp đỡ thì thôi, thầy nói thế làm em nhụt hết ý chí. Em hỏi vì em có mục đích của em chớ không như thầy nghĩ. Em gà mờ thật nhưng thầy nhớ rằng nhà bác học còn làm 2 cái lỗ qua hàng rào, 1 lỗ cho mèo, 1 lỗ cho chó chui vào mà

 

[khunglongcodon]

Ý thầy Hướng là Google.com trước khi hỏi đó mà
bạn cũng nên tập google.com đi (giống mình )

[FONT=Courier New]Private Sub Workbook_Open()[/FONT]Dim Start, Finish, TotalTime, TotalTimeInMinutes, TimeInMinutes
Application.DisplayAlerts = True
TimeInMinutes = 180 'Timer is set for 180 minutes; change as needed. 
If TimeInMinutes > 5 Then
TotalTimeInMinutes = (TimeInMinutes * 60) - (5 * 60)
   Start = Timer
   Do While Timer < Start + TotalTimeInMinutes
       DoEvents
   Loop
   Finish = Timer
   TotalTime = Finish - Start
   Application.DisplayAlerts = False
   MsgBox "This file has been open  for " &  TotalTime / 60 & " minutes.  You have 5 minutes to save before Excel closes."
End If

Start = Timer 
   Do While Timer < Start + (5 * 60)
       DoEvents
   Loop
   Finish = Timer 
   TotalTime = Finish - Start    
   Application.DisplayAlerts = False
   MsgBox "Excel will now close."
   Application.Quit
End Sub

 

[ndu96081631]

Ý thầy Hướng là Google.com trước khi hỏi đó mà
bạn cũng nên tập google.com đi (giống mình )

Tôi nghĩ ý thấy Hướng khác: Gà mở thì cố mà học những cái có ích chứ mấy trò khóa rồi mở gì đó chẳng thích hợp cho người mới vào nghề tí nào ----> Để rồi xem, dù có được code cũng chỉ tổ làm chuyện tào lao mà thôi

 

[yeu_excel]

Với các thầy giỏi thì cho đó là chuyện tào lao, đối với những người kém như tôi thì đó là chuyện khác. GPE chắc chỉ dành cho hỏi và trả lời những câu quan trọng, còn những câu hỏi tào lao (tào lao là cách nghĩ của người giỏi) thì không được à??? Nếu vậy thì nên chăng đóng cửa 4rum???!!!Ai cũng từng trải qua 1 thời kì trẻ thơ, cũng thường xuyên đặt những câu hỏi mà theo suy nghĩ của người lớn là tào lao, là vớ vẩn. Nhưng đối với 1 đứa trẻ thì đó lại là chuyện khác, chuyện hoàn toàn nghiêm túc. Tùy theo câu hỏi mà người lớn trả lời cho hợp lý, trả lời rõ ràng hay chỉ trả lời để tiếp tục khơi dậy niềm đam mê, niềm tin của trẻ. Từ những câu hỏi đó, đứa trẻ mới dần dần hiểu rõ hơn thế giới xung quanh mình, và khi đó nó sẽ biết đặt câu hỏi tốt hơn. Người lớn không nên áp đặt, trả lời để làm thui chột khả năng khám phá của trẻ (từ đó trẻ trở lên rụt rè, không dám hỏi, không dám khám phá-đó là yếu điểm của người Việt ta)
Hỏi 1 câu để học hỏi, để hiểu biết thêm, không có nghĩa tất cả các câu hỏi trong GPE này là để áp dụng tuốt. Mong 2 thầy hiểu cho điều đó (các thầy nên đứng ở vị trí của học trò như tôi để trả lời). Tâm sự ít dòng, có gì sai mong các thầy, các bạn thông cảm. Tôi tham gia GPE này từ ngày đầu thành lập (tôi có 2 nick), đặt câu hỏi nhiều, và cũng biết trả lời giúp đỡ những bạn khác không ít (tất nhiên so với 2 thầy gạo cội thì quá ít). Đây là lần đầu tiên tôi không hài lòng với câu trả lời của tầng lớp gạo cội.
Không muốn làm rác 4rum. Nhờ mod đóng giùm hoặc xóa topic. Xin cám ơn!

 

[Quang_Hải]

Ngày thì trong Excel hiểu là 1 con số, ví dụ ngày 15/12/2012 thì tương đương 41228
Nếu muốn Sub so sánh thì thế này

Sub kiemtrangay()
If date > 41228 then
"Code của bạn"
End if
End Sub

 

[PhanTuHuong]

Buồn quá thầy Hướng ạ. Không biết thì em mới hỏi. Thầy không giúp đỡ thì thôi, thầy nói thế làm em nhụt hết ý chí. Em hỏi vì em có mục đích của em chớ không như thầy nghĩ. Em gà mờ thật nhưng thầy nhớ rằng nhà bác học còn làm 2 cái lỗ qua hàng rào, 1 lỗ cho mèo, 1 lỗ cho chó chui vào mà

Có lẽ tôi hiểu sai ý của anh, mình quá dị ứng với những người có được 1 tý kiến thức nhưng luôn có ý tưởng tìm cách dấu giếm, không muốn giúp người khác. Xin lỗi vì sự hiểu lầm ý tưởng của anh! Chúng ta cứ trao đổi bình thường, những bài mang tính ngoài lề (như bài này chẳng hạn sẽ được xóa sau).

 

[yeu_excel]

Thầy lại hiểu sai ý tôi. Tôi là người đang học hỏi, đang nhờ người khác giúp chứ không giúp người khác (trong topic này). Tôi còn dị ứng hơn với những hạng người được coi là giỏi nhưng cứ tìm cách miệt thị người dốt hơn mình.
Có lẽ tôi trở về với ngành xây dựng của mình, nghiên cứu biển Đông để chống Chi na cho oách

 

[PhanTuHuong]

Thầy lại hiểu sai ý tôi. Tôi là người đang học hỏi, đang nhờ người khác giúp chứ không giúp người khác (trong topic này). Tôi còn dị ứng hơn với những hạng người được coi là giỏi nhưng cứ tìm cách miệt thị người dốt hơn mình.
Có lẽ tôi trở về với ngành xây dựng của mình, nghiên cứu biển Đông để chống Chi na cho oách

Anh không hiểu ý ban đầu và ý tôi vừa nói rồi (thành viên lâu năm như bác ndu hiểu)! Nhiều người vào hỏi đại loại như khóa công thức, khóa code,... với mục đích giấu diếm nhưng chẳng biết mình là ai, gây khó chịu cho các thành viên (xin lỗi nếu tôi nhầm bạn là đối tượng này). Còn "gà thì phải cày" là chuyện đương nhiên, tôi cũng như bao người như bác levanduyet, nguyen duy tuan hay anh ndu cũng vậy thôi! Ngày trước làm gì có sách vở, ebook, Internet... như bây giờ?

Còn chuyện chữ ký về biển Đông hay chống Tàu là quan điểm riêng của tôi, không nên bình luận!