Sub thu()
MsgBox Environ("COMPUTERNAME")
MsgBox Environ("LOGONSERVER")
End Sub
Theo tôi nghĩ: file ít nhiều cũng hỗ trợ được ý tưởng của bạn. Bạn tải về xem thử nhé!
Trong trường hợp này nếu lâu ngày mình không sử dụng file, sau này mở ra thì đã quá hạn không vào file được. Như vậy, làm sao mở lại file để chỉnh sửa ngày giới hạn nhỉ, chẳng lẻ bỏ luôn file này. Có cách nào khắc phục được không các bạn.
Mở file ở dạng Dissable Macro
| Em thấy code này rất hợp với mục đích sử dụng của em nhưng em muốn sửa thành nếu ngày dùng quá ngày 1-5-2008 thì mình có thể viết code yêu cầu người dùng nhập mật khẩu vào nếu nhập sai mật khẩu thì đóng file lại còn nếu nhập đúng thì cho phép mở file để dùng được không ạ >> xin bác giúp em code chỗ đó ạ >>> mục đích em muốn giới hạn thời gian sử dụng của người khác nếu muốn dùng thì phải xin mật khẩu đăng nhập từ em mới có thể dùng tiếp ạ. |
Code vba khó bảo mật lắm bạn ơi!
Bạn có thể tham khảo đoạn mã:
Dim strPass As String
strPass = InputBox("Nhap mat khau: hoangtuan.net", "Your Password")
If strPass <> "hoangtuan.net" Then
MsgBox "Mat khau khong chinh xac. File se duoc dong.", vbCritical
ThisWorkbook.Close False
End Ifvâng em cũng chỉ cần bảo mật vừa vừa thôi ko cần bảo mật đến mức cao thủ cũng ko mở được
em dùng code riêng của bác ra 1 file thì rất ok nhưng ý của em ở trên là em muốn thêm vào phần code của bác sealand ở trên sau cái đoạn "If ng > 1 And th > 5 And nam >= 2008 Then". tức là sửa code chỗ đó nếu ngày mở sau ngày 1-5-2008 thì không phải đóng file đó nữa mà là hỏi tiếp ng mở mật khẩu nếu họ điền đúng mật khẩu thì cho họ vào còn không mới đóng file lại.
Bạn thử coi:
Private Sub Workbook_Open()
Dim strPass As String
ng = Day(Date)
th = Month(Date)
nam = Year(Date)
If ng > 1 And th > 5 And nam >= 2008 Then
strPass = InputBox("Nhap mat khau: hoangtuan.net", "Your Password")
If strPass <> "hoangtuan.net" Then
MsgBox "Mat khau khong chinh xac. File se duoc dong.", vbCritical
ThisWorkbook.Close False
End If
End If
End Sub
