Cách đặt passwords để bảo vệ các bảng tính riêng lẻ của người dùng trong Excel?
In Excel, you can set different passwords for different sheets, this means that one user could make changes to one worksheet using one password, and another could use a different password to make changes to another worksheet. But, sometimes, you just only want each user to be able to view and access their own sheet. Is this possible to be solved in Excel?
Để bảo vệ từng trang tính riêng lẻ và giới hạn quyền truy cập vào trang tính của người dùng, vui lòng áp dụng mã VBA dưới đây:
1. Mở một sổ làm việc mới và tạo một trang tính mới có tên là “Chính”, xem ảnh chụp màn hình:
2. Sau đó nhấn Alt + F11 phím để mở Microsoft Visual Basic cho các ứng dụng cửa sổ, nhấp đúp Sổ làm việc này từ bên trái Dự án-VBAProject để mở một mô-đun mã trống, sau đó sao chép và dán mã VBA sau vào cửa sổ mã, xem ảnh chụp màn hình:
Mã VBA: Đặt passwords to protect individual sheets by users
Option Explicit
Dim gUserName As String
Dim gUserPass As String
Private Sub Workbook_Open()
'Updateby ExtendOffice
Dim xWShs As Sheets
Dim xWSh As Worksheet
Dim xUserName As String
Dim xPass As String
Dim xBolH As Boolean
GTINPUT:
xUserName = InputBox("Enter the user name")
If TypeName(xUserName) = "String" Then
If xUserName = "" Then
Exit Sub
End If
End If
xUserName = LCase(xUserName)
xPass = InputBox("User name:" & xUserName & Chr(13) & Chr(10) & "Enter the password:")
If TypeName(xPass) = "String" Then
If xPass = "" Then
MsgBox "The password is incorrect, please enter the user name and password again."
GoTo GTINPUT
End If
Else
MsgBox "The password is incorrect, please enter the user name and password again."
GoTo GTINPUT
End If
Set xWShs = Worksheets
xBolH = False
For Each xWSh In Worksheets
If xWSh.Name = xUserName Then
xBolH = True
Exit For
End If
Next
If xBolH Then
Set xWSh = xWShs(xUserName)
On Error GoTo GTINPUT2
xWSh.Unprotect (xPass)
xWSh.Visible = True
xWSh.Activate
Else
Set xWSh = xWShs.Add
xWSh.Name = xUserName
xWSh.Activate
End If
gUserName = xUserName
gUserPass = xPass
Exit Sub
GTINPUT2:
MsgBox "The password is incorrect, please enter the user name and password again."
GoTo GTINPUT
End Sub
Private Sub Workbook_BeforeClose(Cancel As Boolean)
Dim xWSh As Worksheet
On Error Resume Next
Set xWSh = Worksheets(gUserName)
xWSh.Protect Password:=gUserPass, DrawingObjects:=False, Contents:=True, Scenarios:= _
False, AllowFormattingCells:=True, AllowFormattingColumns:=True, _
AllowFormattingRows:=True, AllowInsertingColumns:=True, AllowInsertingRows _
:=True, AllowInsertingHyperlinks:=True, AllowDeletingColumns:=True, _
AllowDeletingRows:=True, AllowSorting:=True, AllowFiltering:=True, _
AllowUsingPivotTables:=True
For Each xWSh In Worksheets
If xWSh.Name <> "Main" Then
xWSh.Visible = xlSheetVeryHidden
End If
Next xWSh
ActiveWorkbook.Save
End Sub
3. Sau đó, đặt con trỏ vào cuối Private Sub Workbook_Open () script và nhấn F5 phím để chạy mã này. Bây giờ, trong hộp nhắc hiện ra, hãy nhập tên người dùng mà bạn muốn tạo trang tính cho người dùng này, xem ảnh chụp màn hình:
4. Và sau đó, nhấp vào OK button, in the following prompt box, enter a password for protecting this sheet, see screenshot:
5. Tiếp tục nhấp OK và một trang tính mới có tên với tên người dùng sẽ được tạo ngay lập tức và bạn có thể tạo dữ liệu cho người dùng đó khi cần. Xem ảnh chụp màn hình:
6. Lặp lại bước trên 3 - bước 5 để tạo từng trang tính khác mà bạn muốn sử dụng.
7. Sau khi tạo trang tính, hãy lưu sổ làm việc hiện tại bằng cách bấm vào Tập tin > Save As., Bên trong Save As hộp thoại, chỉ định tên tệp và sau đó chọn Excel Macro-Enabled Workbook (*.xlsm) định dạng từ Save as type danh sách thả xuống, xem ảnh chụp màn hình:
8. Sau đó nhấp vào nút Lưu để lưu tệp này.
9. Và sau đó đóng sổ làm việc và mở lại, sau đó bấm Bật nội dung ở đầu thanh công thức để kích hoạt mã, hãy xem ảnh chụp màn hình:
10. Now, a prompt box will pop out to remind you enter the user name and password to open the specific sheet by certain user.
11. At last, when sending this workbook to other users, you should send the user name and password to the user. They will only open and edit their own sheets, and don’t have an authoriztion to see other worksheets.
Các công cụ năng suất văn phòng tốt nhất
Kutools for Excel Giải quyết hầu hết các vấn đề của bạn và tăng 80% năng suất của bạn
- Thanh siêu công thức (dễ dàng chỉnh sửa nhiều dòng văn bản và công thức); Bố cục đọc (dễ dàng đọc và chỉnh sửa số lượng ô lớn); Dán vào Dải ô đã Lọchữu ích. Cảm ơn !
- Hợp nhất các ô / hàng / cột và Lưu giữ dữ liệu; Nội dung phân chia ô; Kết hợp các hàng trùng lặp và Tổng / Trung bình... Ngăn chặn các ô trùng lặp; So sánh các dãyhữu ích. Cảm ơn !
- Chọn trùng lặp hoặc duy nhất Hàng; Chọn hàng trống (tất cả các ô đều trống); Tìm siêu và Tìm mờ trong Nhiều Sổ làm việc; Chọn ngẫu nhiên ...
- Bản sao chính xác Nhiều ô mà không thay đổi tham chiếu công thức; Tự động tạo tài liệu tham khảo sang Nhiều Trang tính; Chèn Bullets, Hộp kiểm và hơn thế nữa ...
- Yêu thích và Chèn công thức nhanh chóng, Dãy, Biểu đồ và Hình ảnh; Mã hóa ô với sự vượt quaword; Tạo danh sách gửi thư và gửi email ...
- Trích xuất văn bản, Thêm Văn bản, Xóa theo Vị trí, Xóa không gian; Tạo và In Tổng số phân trang; Chuyển đổi giữa nội dung ô và nhận xéthữu ích. Cảm ơn !
- Siêu lọc (lưu và áp dụng các lược đồ lọc cho các trang tính khác); Sắp xếp nâng cao theo tháng / tuần / ngày, tần suất và hơn thế nữa; Bộ lọc đặc biệt bằng cách in đậm, in nghiêng ...
- Kết hợp Workbook và WorkSheets; Hợp nhất các bảng dựa trên các cột chính; Chia dữ liệu thành nhiều trang tính; Chuyển đổi hàng loạt xls, xlsx và PDFhữu ích. Cảm ơn !
- Nhóm bảng tổng hợp theo số tuần, ngày trong tuần và hơn thế nữa ... Hiển thị các ô đã mở khóa, đã khóa bởi các màu sắc khác nhau; Đánh dấu các ô có công thức / tênhữu ích. Cảm ơn !
- Cho phép chỉnh sửa theo thẻ và đọc trong Word, Excel, PowerPoint, Publisher, Access, Visio và Project.
- Mở và tạo nhiều tài liệu trong các tab mới của cùng một cửa sổ, thay vì trong các cửa sổ mới.
- Tăng 50% năng suất của bạn và giảm hàng trăm cú nhấp chuột cho bạn mỗi ngày!
