Bỏ qua nội dung chính

Làm cách nào để đặt mật khẩu để bảo vệ từng trang tính của người dùng trong Excel?

Trong Excel, bạn có thể đặt các mật khẩu khác nhau cho các trang tính khác nhau, điều này có nghĩa là một người dùng có thể thực hiện các thay đổi đối với một trang tính bằng một mật khẩu và người khác có thể sử dụng một mật khẩu khác để thực hiện các thay đổi đối với một trang tính khác. Tuy nhiên, đôi khi, bạn chỉ muốn mỗi người dùng có thể xem và truy cập trang tính của họ. Điều này có thể được giải quyết trong Excel không?


Để 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 mật khẩu để bảo vệ từng trang tính của người dùng

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 , trong hộp nhắc sau, hãy nhập mật khẩu để bảo vệ trang tính này, xem ảnh chụp màn hình:

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. Bây giờ, một hộp nhắc sẽ bật ra để nhắc bạn nhập tên người dùng và mật khẩu để mở trang tính cụ thể của người dùng nhất định.

11. Cuối cùng, khi gửi sổ làm việc này cho người dùng khác, bạn nên gửi tên người dùng và mật khẩu cho người dùng. Họ sẽ chỉ mở và chỉnh sửa trang tính của mình và không có quyền xem các trang tính khác.


  • 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 mật khẩu; 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 !
tab kte 201905
  • Cho phép chỉnh sửa và đọc theo thẻ 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!
officetab dưới cùng
Comments (1)
No ratings yet. Be the first to rate!
This comment was minimized by the moderator on the site
How would you then allow for an admin user to see all of those password protected sheets?
There are no comments posted here yet
Please leave your comments in English
Posting as Guest
×
Rate this post:
0   Characters
Suggested Locations