Mở file dưới dạng chỉ đọc (không cho lưu) hoặc full

[nvtnet]

em có học cách tạo 1 form đăng nhập bằng User và pass cho file. Tuy nhiên file có nhiều người dùng
em muốn tạo 2 tài khoản đăng nhập. Trong đó 1 tài khoản toàn quyền, 1 tào khoản chỉ xem, khi thoát ra không cho phép lưu
em gửi đoạn mã, mong các bác giúp chỉnh sửa code (Code này em làm theo trên mạng ạ)
Private Sub btn_login_Click()
Dim user_id As String
Dim pass As String

user_id = Me.txt_ID.Value
pass = Me.txt_pass.Value

If (user_id = "Admin" And pass = "Admin") or (user_id = "Khach" And pass = "12345678") Then 'User_id Admin là toàn quyền
Unload Me
Application.Visible = True
Else
If numoflogin < 3 Then
Me.txt_pass.Value = ""
Me.txt_ID.Value = ""
numoflogin = numoflogin + 1
MsgBox "Ten hoac Mat khau chua dung, hay nhap lai", vbOKOnly + vbCritical
Else
MsgBox "Ban da nhap sai qua 3 lan"
Unload Me
Application.Visible = True
numoflogin = 0
ThisWorkbook.Close savechanges:=False
End If

 

[befaint]

Ngay trước động tác mở file lên thì phải lựa chọn phun không che hoặc chỉ đọc (Read-Only) rồi.

Đợi tới lúc mở ra cái form thì lựa chọn sao được nữa.



Giờ chỉ còn cách với tài khoản không được can thiệp dữ liệu thì mở phun không che và ngăn hắn không được lưu.
Từ khóa gõ vào google: How to disable save and save as using VBA

 

[nvtnet]

View attachment 244709

Ngay trước động tác mở file lên thì phải lựa chọn phun không che hoặc chỉ đọc (Read-Only) rồi.

Đợi tới lúc mở ra cái form thì lựa chọn sao được nữa.

View attachment 244708

Giờ chỉ còn cách với tài khoản không được can thiệp dữ liệu thì mở phun không che và ngăn hắn không được lưu.
Từ khóa gõ vào google: How to disable save and save as using VBA

chết cười với bác, để em nghiên cứu ạ, cảm ơn bác

Bài đã được tự động gộp: 2/9/20

bác chỉnh code hộ em với, đang tập tành thôi nên vào mấy trang tiếng anh không hiểu gì cả ạ