File tự động khóa khi quá thời gian cho phép! (1 người xem)

[gakon_Office]

Xin GPE cho em một code:
Mở file lên tự động khóa toàn bộ các sheet trong file khi file đó đã cách ngày hiện tại 1 khoảng thời gian nào đó.
Ví dụ là sau 2 ngày, hoặc sau 1 tuần. Tùy mình.

 

[khoavu87]

Xin GPE cho em một code:
Mở file lên tự động khóa toàn bộ các sheet trong file khi file đó đã cách ngày hiện tại 1 khoảng thời gian nào đó.
Ví dụ là sau 2 ngày, hoặc sau 1 tuần. Tùy mình.

thử cái này xem sao? tìm cách viết ngắn mà chưa được:

Private Sub Workbook_Open()
  If Date >= DateSerial(2011, 11, 24) Then
   MsgBox "Het han su dung"
  For I = 1 To Sheets.Count
  Application.Sheets(I).Protect ("1234")
  Next I
  Else
End If
End Sub

 

[gakon_Office]

thử cái này xem sao? tìm cách viết ngắn mà chưa được:

Private Sub Workbook_Open()
  If Date >= DateSerial(2011, 11, 24) Then
   MsgBox "Het han su dung"
  For I = 1 To Sheets.Count
  Application.Sheets(I).Protect ("1234")
  Next I
  Else
End If
End Sub

Hê hê! nhìn thấy cái chữ hết hạn sử dụng thấy quen quen.
Hình như em gặp ở cái bài nào rồi nhưng không nhớ.
Cái bài đó có cả xóa file nữa thì phải.
Nhưng mà em cũng hơi bận rộn nên chưa có thời gian để tìm.
thanks anh!

 

[khoavu87]

Hê hê! nhìn thấy cái chữ hết hạn sử dụng thấy quen quen.
Hình như em gặp ở cái bài nào rồi nhưng không nhớ.
Cái bài đó có cả xóa file nữa thì phải.
Nhưng mà em cũng hơi bận rộn nên chưa có thời gian để tìm.
thanks anh!

bài này cách đây vài tuần có người hỏi rồi.Link của gakon đây:
http://www.giaiphapexcel.com/forum/...ử-dụng-của-file-excell&p=358130#post358130

 

[gakon_Office]

Đúng rồi anh ạ!
Nhưng với code này của anh em sửa thế này ổn ko anh?
Private Sub Workbook_Open()
If Date < Today() Then
MsgBox "Het han su dung"
For I = 1 To Sheets.Count
Application.Sheets(I).Protect ("1234")
Next I
Else
End If
End Sub

 

[khoavu87]

Đúng rồi anh ạ!
Nhưng với code này của anh em sửa thế này ổn ko anh?
Private Sub Workbook_Open()
If Date < Today() Then
MsgBox "Het han su dung"
For I = 1 To Sheets.Count
Application.Sheets(I).Protect ("1234")
Next I
Else
End If
End Sub

Cái này thì gakon cứ thử vào file nếu được thì ok ,còn chưa được thì xem lại.(Mà chưa ổn đâu nhá).

PM: code mình viết đó chưa ưng ý đâu.Ẹc

 

[gakon_Office]

Hì! được hay không em thử là biết liền nhưng em vẫn viết thế để phù hợp với đề tài cho bạn nào ko đỡ mất công test.
Nhưng mà em sửa code trên vẫn chưa đúng ý lắm.
If Date < Today() Then
Làm thế nào để xác định được chữ Date này nhỉ.
Nghĩa là cái file này giả sử em lập hôm nay đến ngày mai nó sẽ bị khóa.
cái em muốn hỏi là làm thế nào để biết file sử dụng vào ngày nào được ạ!
Khó với em quá!
có lẽ là phải đánh ngày vào một ô nào đó trong bảng tính rồi đem so sánh mới ổn.

 

[khoavu87]

Hì! được hay không em thử là biết liền nhưng em vẫn viết thế để phù hợp với đề tài cho bạn nào ko đỡ mất công test.
Nhưng mà em sửa code trên vẫn chưa đúng ý lắm.
If Date < Today() Then
Làm thế nào để xác định được chữ Date này nhỉ.
Nghĩa là cái file này giả sử em lập hôm nay đến ngày mai nó sẽ bị khóa.
cái em muốn hỏi là làm thế nào để biết file sử dụng vào ngày nào được ạ!
Khó với em quá!
có lẽ là phải đánh ngày vào một ô nào đó trong bảng tính rồi đem so sánh mới ổn.

- Date có nghĩa là : trả về ngày hiện tại của hệ thống( lấy ngày hiện tại của hệ thống).
- bạn muốn hiện lên thông báo còn bao nhiêu ngày nữa hết hạn chăng? chưa hiểu rõ câu hỏi lắm. hơi carot mà

 

[gakon_Office]

- Date có nghĩa là : trả về ngày hiện tại của hệ thống( lấy ngày hiện tại của hệ thống).
- bạn muốn hiện lên thông báo còn bao nhiêu ngày nữa hết hạn chăng? chưa hiểu rõ câu hỏi lắm. hơi carot mà

Em tưởng chỉ có hàm: Today hoặc hàm now trả về ngày hiện tại thoi mà.
Chứ Date không thì có nghĩa lý ji` ạ! nó fair đi kèm với dữ liệu mới xác định ra ngày tháng năm chưa anh:
Vidu:
Date >= DateSerial(2011, 11, 24)
Nếu kô có đoạn gạch chân thì Date chỉ là text thôi đúng không ạ!
Ý của em là tạo 1 hàm điều kiện so sánh 2 ngày!
Một ngày thao tác trên file và một ngày hiện tại!
Nếu ngày thao tác trên file nhỏ hơn ngày hiện tại thì file khóa!
Nghĩa là hôm nay anh có thể làm jif trên file cũng được.
nhưng đến sang 1 ngày mới thì file tự khóa anh không làm được jif đc nữa.

 

[khoavu87]

Em tưởng chỉ có hàm: Today hoặc hàm now trả về ngày hiện tại thoi mà.
Chứ Date không thì có nghĩa lý ji` ạ! nó fair đi kèm với dữ liệu mới xác định ra ngày tháng năm chưa anh:
Vidu:
Date >= DateSerial(2011, 11, 24)
Nếu kô có đoạn gạch chân thì Date chỉ là text thôi đúng không ạ!
Ý của em là tạo 1 hàm điều kiện so sánh 2 ngày!
Một ngày thao tác trên file và một ngày hiện tại!
Nếu ngày thao tác trên file nhỏ hơn ngày hiện tại thì file khóa!
Nghĩa là hôm nay anh có thể làm jif trên file cũng được.
nhưng đến sang 1 ngày mới thì file tự khóa anh không làm được jif đc nữa.

-a= DateSerial(2011, 11, 24) nó chuyển các thông số rời rạc ngày tháng năm thành một chuỗi ngày tháng năm.
Lúc này mình coi như a là một số cố định trước rồi.
- Theo như bạn nói thế hôm nay làm xong , ngày mai khóa, vậy ngày kia sẽ thế nào?(Thấy ko khả thi tí nào hay sao ấy).

 

[gakon_Office]

- Theo như bạn nói thế hôm nay làm xong , ngày mai khóa, vậy ngày kia sẽ thế nào?(Thấy ko khả thi tí nào hay sao ấy)

Thì sau ngày hôm nay file sẽ bị khóa mãi mãi thôi nếu koo có pass.
Nhưng công nhận em chưa thể nào diễn đạt được hết ý câu hỏi của em trong trường hợp này.
Em đọc lại cũng thấy ngang ngang .
thôi em gửi file này lên vậy.
Thắc mắc em để trong file.