chạy 1 sub sau mốc thời gian cụ thể (1 người xem)

[LYSM]

Em chào các anh chị
Ffile của em có 2 sub "Tach" và "Protectsh", sub "Tach" được assign vào buton "RUN" ở sheet "Du lieu vao". Em muốn sau ngày 28/06/2013 (hoặc 1 ngày nào đó do mình đặt) thì khi click vào "RUN" sub "Protectsh" cũng được chạy cùng sub "Tach". Kính nhờ các anh chị giúp đỡ. Pass trong sub "Protecsh" là "gpe" ạ
Em cảm ơn nhiều ạ

 

[pro8x]

Em chào các anh chị
Ffile của em có 2 sub "Tach" và "Protectsh", sub "Tach" được assign vào buton "RUN" ở sheet "Du lieu vao". Em muốn sau ngày 28/06/2013 (hoặc 1 ngày nào đó do mình đặt) thì khi click vào "RUN" sub "Protectsh" cũng được chạy cùng sub "Tach". Kính nhờ các anh chị giúp đỡ.
Em cảm ơn nhiều ạ

Bạn thêm đoạn code sau vào sub tách nhé

If Date >= 28 / 6 / 2013 Then
Call Protectsh
End If

P/S: lần sau gửi file lên 4r thì bỏ pass đi nhé.Không thì cung phải ghi pas lên để còn sửa file chứ.k sủa thế nào được hả.pó tay

 

[LYSM]

Bạn thêm đoạn code sau vào sub tách nhé

P/S: lần sau gửi file lên 4r thì bỏ pass đi nhé.Không thì cung phải ghi pas lên để còn sửa file chứ.k sủa thế nào được hả.pó tay

Em cảm ơn!
Em đã bỏ pass rồi mà, chắc bác ấn run nên nó lại đóng vào thôi ạ. Bác ơi, em thử code của bác không được ạ, pass là "gpe" bác nhé

 

[pro8x]

sao lại k được.k chạy hay gì hả.

 

[pro8x]

bạn thử lại xem sao nhé.muốn biết chạy hay k thì vào sub tét sửa lại ngày vd: 20/6/2013 chẳng hạn

 

[pro8x]

có đc k vậy bạn ơi có đc k vậy bạn ơi có đc k vậy bạn ơi

 

[LYSM]

bạn thử lại xem sao nhé.muốn biết chạy hay k thì vào sub tét sửa lại ngày vd: 20/6/2013 chẳng hạn

Bác ơi, không được ạ, nó vẫn như cũ thôi. Khi em mở lần đầu lên và RUN thì bất kể ngày nào nó cũng khóa lại, sau đó em unprotect sheet và RUN lại thì nó cứ trơ ra. Phải save và tắt file đi sau đó RUN nó mới khóa. Để ngày 20 hay ngày 28 đều giống nhau ạ

 

[PhanTuHuong]

Tôi sửa file bạn và bổ sung dữ liệu vào mấy ô, sau đó bạn chạy thủ tục Test và nghiên cứu là hiểu. Hãy để dữ liệu ở ô để linh hoạt mốc thời gian.

Sub Test()
    If Now >= DateSerial(Range("R2"), Range("Q2"), Range("P2")) Then
    MsgBox "Chay"
    Else
    MsgBox "Khong chay"
    End If
End Sub

 

[LYSM]

Tôi sửa file bạn và bổ sung dữ liệu vào mấy ô, sau đó bạn chạy thủ tục Test và nghiên cứu là hiểu. Hãy để dữ liệu ở ô để linh hoạt mốc thời gian.

Sub Test()
    If Now >= DateSerial(Range("R2"), Range("Q2"), Range("P2")) Then
    MsgBox "Chay"
    Else
    MsgBox "Khong chay"
    End If
End Sub

Anh ơi, như vậy cũng gần được rồi ạ, mà em muốn ngày tháng nhúng ngay vào trong code vì khi đã đến thời hạn đóng dữ liệu vào rồi em không muốn có người khác sửa nữa (Em phải chịu trách nhiệm về dữ liệu này). Em thay DateSerial(Range("R2"), Range("Q2"), Range("P2")) bằng DateSerial(28/6/2013) thì báo lỗi

 

[PhanTuHuong]

Bạn nghiên cứu cái code đó là được. Thay trực tiếp số là ngày tháng năm là Ok. Khai báo trong DateSerial từ năm, tháng và ngày nhé.

 

[LYSM]

Bạn nghiên cứu cái code đó là được. Thay trực tiếp số là ngày tháng năm là Ok. Khai báo trong DateSerial từ năm, tháng và ngày nhé.

Vâng, được rồi anh ạ. Cám ơn anh!