Hướng dẫn code khóa file và lưu lại không cho nhập dữ liệu thêm sau 15 phút

[saobekhonglac]

Dear all.

Mình có 1 file trắc nghiệm trên Excel, Mình muốn gửi file đó cho mọi người làm và quy định thời gian sau khi mở file 15 phút thì file tự động lưu lại và khóa lại không cho mọi người làm tiếp. ACE hướng dẫn giúp mình với.

Thanks all.

 

[Quang_Hải]

Dear all.

Mình có 1 file trắc nghiệm trên Excel, Mình muốn gửi file đó cho mọi người làm và quy định thời gian sau khi mở file 15 phút thì file tự động lưu lại và khóa lại không cho mọi người làm tiếp. ACE hướng dẫn giúp mình với.

Thanks all.

Đúng lúc 14 phút 59 giây hắn đóng rồi mở lại. Ka ka ka. Thì làm lại từ đầu hả? Căng à nghen.

 

[saobekhonglac]

Nếu gặp trường hợp đó thì nhờ sư huynh tạo thêm code chỉ cho mở file 1 lần cho mọi người không mở lại được lần 2.

Thanks.

Đúng lúc 14 phút 59 giây hắn đóng rồi mở lại. Ka ka ka. Thì làm lại từ đầu hả? Căng à nghen.

 

[Quang_Hải]

Nếu gặp trường hợp đó thì nhờ sư huynh tạo thêm code chỉ cho mở file 1 lần cho mọi người không mở lại được lần 2.

Thanks.

Nếu người ta mở file mà không có enable macro thì coi như... xong. Túm lại khó xơi lắm.

 

[saobekhonglac]

Vậy sư huynh làm giúp mình mở 15 phút thì file tự khóa và lưu lại đi

Thanks.

Nếu người ta mở file mà không có enable macro thì coi như... xong. Túm lại khó xơi lắm.

 

[Quang_Hải]

Vậy sư huynh làm giúp mình mở 15 phút thì file tự khóa và lưu lại đi

Thanks.

Cơ chế là thế này
Khi mở file Sub Auto sẽ tự chạy, nếu enable macro

Sub Auto_Open()
HenGio
End Sub

Sub Auto sẽ kích hoạt Sub HenGio

Sub HenGio()
Application.OnTime Now + TimeValue("00:09:59"), "FileClose"
End Sub

Hết thời gian 10 phút file tự đóng và thoát excel

Sub FileClose()
ThisWorkbook.Close True
Application.Quit
End Sub

Tự nghiên cứu thêm nha

 

[Kiều Mạnh]

Cơ chế là thế này
Khi mở file Sub Auto sẽ tự chạy, nếu enable macro

Sub Auto_Open()
HenGio
End Sub

Sub Auto sẽ kích hoạt Sub HenGio

Sub HenGio()
Application.OnTime Now + TimeValue("00:09:59"), "FileClose"
End Sub

Hết thời gian 10 phút file tự đóng và thoát excel

Sub FileClose()
ThisWorkbook.Close True
Application.Quit
End Sub

Tự nghiên cứu thêm nha

Cứ 10 phút nó đóng một cái ... xong lại mở lên .. xong ....Đóng
kể ra cũng vui thiệt

 

[Quang_Hải]

Cứ 10 phút nó đóng một cái ... xong lại mở lên .. xong ....Đóng
kể ra cũng vui thiệt

Nói vậy thì không phải rồi, khi mình thiết kế thì phải tính toán sao cho lúc lưu file phải làm thêm gì đó, lần sau nếu mở file mà gặp dk đó thì giết ngay lúc còn trong trứng chứ.

 

[saobekhonglac]

Hi sư huynh
Mình không rành về code nên sư huynh có thể hướng dẫn chi tiết thêm được không, nếu người ta mở file lên và sau 15' file đó sẽ tự động save lại và protect (có mật khẩu), thì cho dù người ta có mở lại cũng không nhập liệu được vì không có pass, sư huynh cho mình code như vậy được không.

Thanks.

Cơ chế là thế này
Khi mở file Sub Auto sẽ tự chạy, nếu enable macro

Sub Auto_Open()
HenGio
End Sub

Sub Auto sẽ kích hoạt Sub HenGio

Sub HenGio()
Application.OnTime Now + TimeValue("00:09:59"), "FileClose"
End Sub

Hết thời gian 10 phút file tự đóng và thoát excel

Sub FileClose()
ThisWorkbook.Close True
Application.Quit
End Sub

Tự nghiên cứu thêm nha

 

[Kiều Mạnh]

Nói vậy thì không phải rồi, khi mình thiết kế thì phải tính toán sao cho lúc lưu file phải làm thêm gì đó, lần sau nếu mở file mà gặp dk đó thì giết ngay lúc còn trong trứng chứ.

Em nghĩ chỉ đóng lưu thôi ... vậy thì lại thêm vài khúc code nữa

 

[Quang_Hải]

Hi sư huynh
Mình không rành về code nên sư huynh có thể hướng dẫn chi tiết thêm được không, nếu người ta mở file lên và sau 15' file đó sẽ tự động save lại và protect (có mật khẩu), thì cho dù người ta có mở lại cũng không nhập liệu được vì không có pass, sư huynh cho mình code như vậy được không.

Thanks.

Thử vầy đi. Khi file đóng sẽ tự khóa hết các sheet. Pass 123 có thể tuỳ chọn. Nhưng hắn không enable macro thì coi như công toi. Nói vậy thôi chứ cũng còn vài cách ("hơi chó cắn chút") để ép hắn Enable macro.

Sub Auto_Open()
HenGio
End Sub
Sub HenGio()
Application.OnTime Now + TimeValue("00:09:59"), "FileClose"
End Sub
Sub FileClose()
Khoa
ThisWorkbook.Close True
Application.Quit
End Sub
Sub Khoa()
Dim sh As Worksheet
For Each sh In Worksheets
   sh.Protect 123
Next
End Sub

 

[saobekhonglac]

Hi sư huynh.

Mình bỏ code vào rồi nhưng khi save lại rồi mở lên lại code nó mất tiêu luôn.

Thanks.

Thử vầy đi. Khi file đóng sẽ tự khóa hết các sheet. Pass 123 có thể tuỳ chọn. Nhưng hắn không enable macro thì coi như công toi. Nói vậy thôi chứ cũng còn vài cách ("hơi chó cắn chút") để ép hắn Enable macro.

Sub Auto_Open()
HenGio
End Sub
Sub HenGio()
Application.OnTime Now + TimeValue("00:09:59"), "FileClose"
End Sub
Sub FileClose()
Khoa
ThisWorkbook.Close True
Application.Quit
End Sub
Sub Khoa()
Dim sh As Worksheet
For Each sh In Worksheets
   sh.Protect 123
Next
End Sub

 

[Quang_Hải]

Hi sư huynh.

Mình bỏ code vào rồi nhưng khi save lại rồi mở lên lại code nó mất tiêu luôn.

Thanks.

Khi lưu file phải lưu dạng xls, hoặc xlsm, hoặc xlsb. Nếu lưu dạng xlsx thì mất code

 

[saobekhonglac]

Hi sư huynh.

Đã lưu dạng xls, khi mở lại vẫn còn code nhưng chờ hoài vẫn không thấy file đóng và protect (mình chỉnh time còn 2 phút).

Thanks.

Khi lưu file phải lưu dạng xls, hoặc xlsm, hoặc xlsb. Nếu lưu dạng xlsx thì mất code

 

[Quang_Hải]

Hi sư huynh.

Đã lưu dạng xls, khi mở lại vẫn còn code nhưng chờ hoài vẫn không thấy file đóng và protect (mình chỉnh time còn 2 phút).

Thanks.

Cho xuống 5 giây cho nhanh chút