Bỏ qua nội dung chính
Người dùng ChatGPT thông thường? Hãy thử ChatGPT tích hợp với ExtendOffice.

Làm thế nào để đặt mật khẩu để bảo vệ trang tính ẩn trong Excel?

Tác giả: Tiểu Dương Sửa đổi lần cuối: 2020-05-19

Nếu bạn có một sổ làm việc chứa một số trang tính quan trọng bị ẩn và không cho phép người khác hiện chúng. Bây giờ, bạn cần đặt mật khẩu để bảo vệ hoàn toàn các bảng tính ẩn, khi người dùng khác bỏ ẩn chúng, họ phải nhập mật khẩu. Bạn có cách nào để giải quyết công việc này một cách nhanh chóng và dễ dàng trong Excel không?

Đặt mật khẩu để bảo vệ các trang tính ẩn với chức năng VeryHidden

Đặt mật khẩu để bảo vệ trang tính ẩn bằng mã VBA

Bảo vệ nhiều trang tính cùng một lúc với Kutools cho Excel


Đặt mật khẩu để bảo vệ các trang tính ẩn với chức năng VeryHidden

Thông thường, bạn có thể sử dụng chức năng VeryHidden để ẩn các trang tính trước rồi đặt mật khẩu cho chúng, vui lòng thực hiện theo các bước sau:

1. Mở sổ làm việc của bạn và giữ Alt + F11phím để mở Cửa sổ Microsoft Visual Basic for Applications.

2. Trong Cửa sổ Microsoft Visual Basic for Applications, Click Xem > Trình khám phá dự án Cửa sổ thuộc tính to hiển thị các ngăn của chúng.

doc-protect-hidden-sheet-01

3. Và sau đó trong Dự án-VBAProject , chọn trang tính mà bạn muốn ẩn và trong Bất động sản , nhấp vào danh sách thả xuống từ Có thể nhìn thấy phần để chọn xlTấmRấtẨn tùy chọn, xem ảnh chụp màn hình:

doc-protect-hidden-sheet-02

4. Sau khi làm cho trang tính được ẩn, bạn có thể đặt mật khẩu để bảo vệ nó. bên trong Cửa sổ Microsoft Visual Basic for Applications, Click Chèn > Mô-đun để mở một mô-đun trống, sau đó nhấp vào CÔNG CỤ > Thuộc tính VBAProject, xem ảnh chụp màn hình:

doc-protect-hidden-sheet-03

5. Sau đó, trong cửa sổ bật ra VBAProject-Thuộc tính dự án hộp thoại, nhấn Sự bảo vệ tab, và sau đó kiểm tra Khóa dự án để xem , cuối cùng, nhập và xác nhận mật khẩu trong Mật khẩu để xem thuộc tính dự án , xem ảnh chụp màn hình:

doc-protect-hidden-sheet-04

6. Sau đó nhấn vào OK để thoát khỏi hộp thoại này và đóng Cửa sổ Microsoft Visual Basic for Applications.

7. Lưu sổ làm việc dưới dạng Sổ làm việc hỗ trợ macro Excel định dạng và đóng nó để bảo vệ bằng mật khẩu có hiệu lực.

doc-protect-hidden-sheet-05

8. Lần tới, khi bạn mở sổ làm việc này và muốn hiển thị các trang tính ẩn, bạn được yêu cầu nhập mật khẩu. Xem ảnh chụp màn hình:

doc-protect-hidden-sheet-06


Demo: Đặt mật khẩu để bảo vệ các trang tính ẩn


Đặt mật khẩu để bảo vệ trang tính ẩn bằng mã VBA

Để đặt mật khẩu bảo vệ các trang tính ẩn, tôi cũng có thể nói về mã VBA cho bạn.

1. Ẩn một trang tính mà bạn muốn bảo vệ.

2. Giữ ALT + F11 phím để mở Cửa sổ Microsoft Visual Basic for Applications.

3. Sau đó chọn Sổ làm việc này từ bên trái Trình khám phá dự án, nhấp đúp vào nó để mở Mô-đun, sau đó sao chép và dán mã VBA sau vào Mô-đun trống:

Mã VBA: Đặt mật khẩu để bảo vệ trang tính ẩn

Private Sub Workbook_SheetActivate(ByVal Sh As Object)
Dim xSheetName As String
xSheetName = "Sheet1"
If Application.ActiveSheet.Name = xSheetName Then
    Application.EnableEvents = False
    Application.ActiveSheet.Visible = False
    xTitleId = "KutoolsforExcel"
    response = Application.InputBox("Password", xTitleId, "", Type:=2)
    If response = "123456" Then
        Application.Sheets(xSheetName).Visible = True
        Application.Sheets(xSheetName).Select
    End If
End If
Application.Sheets(xSheetName).Visible = True
Application.EnableEvents = True
End Sub

doc-protect-hidden-sheet-07

Chú thích: Trong đoạn mã trên, Sheet1 của xSheetName = "Trang 1" script là tên trang tính ẩn mà bạn muốn bảo vệ và 123456 trong Nếu response = "123456" thì script là mật khẩu mà bạn đặt cho trang tính ẩn. Bạn có thể thay đổi chúng theo nhu cầu của bạn.

4. Bây giờ, khi bạn muốn hiển thị trang tính ẩn, một hộp nhắc sẽ bật ra để bạn nhập mật khẩu. Và hộp nhắc này sẽ xuất hiện mỗi lần, khi bạn nhấp vào để hiển thị trang tính ẩn.

doc-protect-hidden-sheet-08


Bảo vệ nhiều trang tính cùng một lúc với Kutools cho Excel

Thông thường, nếu bạn muốn bảo vệ nhiều trang tính đã chọn hoặc tất cả các trang tính của sổ làm việc cùng một lúc, bạn cần bảo vệ từng trang một theo cách thủ công trong Excel. Nhưng, nếu bạn có Kutools cho Excel, Với khả Bảo vệ trang tính tiện ích, bạn có thể bảo vệ chúng bằng một cú nhấp chuột.

Kutools cho Excel : với hơn 300 bổ trợ Excel tiện dụng, dùng thử miễn phí không giới hạn trong 30 ngày

Sau khi cài đặt Kutools cho Excel, vui lòng làm như sau:

1. Nhấp chuột Kutools Plus > Bảo vệ trang tính, xem ảnh chụp màn hình:

2. Trong Bảo vệ trang tính hộp thoại, tất cả các trang tính trong sổ làm việc được liệt kê vào hộp danh sách, vui lòng chọn các trang tính mà bạn muốn bảo vệ. Xem ảnh chụp màn hình:

doc-protect-hidden-sheet-010

3. Và sau đó nhấp vào OK, trong hộp thoại sau, vui lòng nhập mật khẩu của bạn và nhập lại lần nữa, sau đó nhấp vào OK, một hộp nhắc khác sẽ bật ra để nhắc bạn có bao nhiêu trang tính đã được bảo vệ.

doc-protect-hidden-sheet-011

4. Sau đó nhấn vào OK để đóng hộp thoại và tất cả các trang tính trong sổ làm việc đã được bảo vệ bằng cùng một mật khẩu.

Lưu ý: Nếu bạn muốn bỏ bảo vệ tất cả các trang tính cùng một lúc, bạn chỉ cần nhấp vào Kutools Plus > Bỏ bảo vệ trang tínhvà nhập mật khẩu của bạn để hủy bảo vệ.

 Tải xuống và dùng thử miễn phí Kutools cho Excel ngay!


Các bài liên quan:

Làm cách nào để bảo vệ nhiều trang tính cùng một lúc trong Excel?

Làm thế nào để đặt mật khẩu để bảo vệ sổ làm việc?

Làm thế nào để bảo vệ / khóa mã VBA trong Excel?

Công cụ năng suất văn phòng tốt nhất

🤖 Trợ lý AI của Kutools: Cách mạng hóa việc phân tích dữ liệu dựa trên: Thực thi thông minh   |  Tạo mã  |  Tạo công thức tùy chỉnh  |  Phân tích dữ liệu và tạo biểu đồ  |  Gọi các hàm Kutools...
Các tính năng phổ biến: Tìm, đánh dấu hoặc xác định các bản sao   |  Xóa hàng trống   |  Kết hợp các cột hoặc ô mà không làm mất dữ liệu   |   Vòng không có công thức hữu ích. Cảm ơn !
Siêu tra cứu: Nhiều tiêu chí VLookup    VLookup Nhiều Giá Trị  |   VLookup trên nhiều trang tính   |   Tra cứu mờ ....
Danh sách thả xuống nâng cao: Tạo nhanh danh sách thả xuống   |  Danh sách thả xuống phụ thuộc   |  Danh sách thả xuống nhiều lựa chọn ....
Trình quản lý cột: Thêm một số cột cụ thể  |  Di chuyển cột  |  Chuyển đổi trạng thái hiển thị của các cột ẩn  |  So sánh dãy và cột hữu ích. Cảm ơn !
Các tính năng nổi bật: Tiêu điểm lưới   |  Chế độ xem thiết kế   |   Thanh công thức lớn    Trình quản lý sổ làm việc & trang tính   |  Thư viện tài nguyên (Văn bản tự động)   |  Bảng chọn ngày   |  Kết hợp các bảng tính   |  Mã hóa/Giải mã ô    Gửi email theo danh sách   |  Siêu lọc   |   Bộ lọc đặc biệt (lọc in đậm/nghiêng/gạch ngang...) ...
15 bộ công cụ hàng đầu12 bản văn CÔNG CỤ (thêm văn bản, Xóa ký tự,...)   |   50 + Biểu đồ Các loại (Biểu đồ Gantt,...)   |   40+ Thực tế Công thức (Tính tuổi dựa trên ngày sinh,...)   |   19 chèn CÔNG CỤ (Chèn mã QR, Chèn ảnh từ đường dẫn,...)   |   12 Chuyển đổi CÔNG CỤ (Số thành từ, Chuyển đổi tiền tệ,...)   |   7 Hợp nhất & Tách CÔNG CỤ (Các hàng kết hợp nâng cao, Chia ô,...)   |   ... và nhiều hơn nữa

Nâng cao kỹ năng Excel của bạn với Kutools for Excel và trải nghiệm hiệu quả hơn bao giờ hết. Kutools for Excel cung cấp hơn 300 tính năng nâng cao để tăng năng suất và tiết kiệm thời gian.  Bấm vào đây để có được tính năng bạn cần nhất...

Mô tả


Tab Office mang lại giao diện Tab cho Office và giúp công việc của bạn trở nên dễ dàng hơn nhiều

  • 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!
Comments (10)
No ratings yet. Be the first to rate!
This comment was minimized by the moderator on the site
jak ktoś ukrył arkusz jak w opisanym pierwszym sposobie, a nie znamy hasła to jak odkryć arkusz skoro hasło do visual basic jest w ukrytym arkuszu?
This comment was minimized by the moderator on the site
Hello, ciekawa

Sorry, at present, there is no good way for canceling the protect of the hidden sheet if you forget the password.

But, you can apply the Uhide all hidden sheets feature of Kutools for Excel to unhide all the hidden sheets without any password.
https://www.extendoffice.com/images/stories/comments/comment-skyyang/doc-unhide-sheets.png
You can download Kutools for Excel and use it freely for 30 days.
Please have a try. Thank you!
This comment was minimized by the moderator on the site
This is elegant. IF the person opening the spreadsheet does not enable macros (i.e. VBA) what happens? Is the hidden sheet a sitting duck? Or is it quite impossible to find?
This comment was minimized by the moderator on the site
Hi, David,
If you open the workbook without enabling the macro, the hidden sheet is displayed as normal. In this case, I recommend you to apply the first method for solving this job.
Thank you!
This comment was minimized by the moderator on the site
Your code allows users to view the sheet as long as they hold the left mouse button while the mouse pointer is on the tab. Try this to keep sheet hidden until correct password is entered: If response = "123456" Then Application.Sheets(xSheetName).Visible = True Application.Sheets(xSheetName).Select Else Application.Sheets(xSheetName).Visible = False[/b][/b] End If End If Application.EnableEvents = True End Sub
This comment was minimized by the moderator on the site
I have a question about your password restricted worksheet code. You posted the following code which works....what I am looking for is code that will do this with multiple worksheets and multiple passwords within the same workbook. Is this possible? Private Sub Workbook_SheetActivate(ByVal Sh As Object) 'Update 20140925 Dim xSheetName As String xSheetName = "sheet1" If Application.ActiveSheet.Name = xSheetName Then Application.EnableEvents = False Application.ActiveSheet.Visible = False xTitleId = "KutoolsforExcel" response = Application.InputBox("Password", xTitleId, "", Type:=2) If response = "123456" Then Application.Sheets(xSheetName).Visible = True Application.Sheets(xSheetName).Select End If End If Application.Sheets(xSheetName).Visible = True Application.EnableEvents = True End Sub
This comment was minimized by the moderator on the site
Found a solution yet?

I am having the same problem
This comment was minimized by the moderator on the site
Private Sub Workbook_SheetActivate(ByVal Sh As Object)
Dim aSheetName As String
Dim bSheetName As String
Dim cSheetName As String
aSheetName = "sheet1"
bSheetName = "sheet2"
cSheetName = "sheet3"

If Application.ActiveSheet.Name = aSheetName Then
Application.EnableEvents = False
Application.ActiveSheet.Visible = False
xTitleId = "KutoolsforExcel"
response = Application.InputBox("Password", xTitleId, "", Type:=2)
If response = "123" Then
Application.Sheets(aSheetName).Visible = True
Application.Sheets(aSheetName).Select
Else
Application.Sheets(aSheetName).Visible = False
End If
End If
Application.EnableEvents = True

If Application.ActiveSheet.Name = bSheetName Then
Application.EnableEvents = False
Application.ActiveSheet.Visible = False
xTitleId = "KutoolsforExcel"
response = Application.InputBox("Password", xTitleId, "", Type:=2)
If response = "456" Then
Application.Sheets(bSheetName).Visible = True
Application.Sheets(bSheetName).Select
Else
Application.Sheets(bSheetName).Visible = False
End If
End If
Application.EnableEvents = True

If Application.ActiveSheet.Name = cSheetName Then
Application.EnableEvents = False
Application.ActiveSheet.Visible = False
xTitleId = "KutoolsforExcel"
response = Application.InputBox("Password", xTitleId, "", Type:=2)
If response = "789" Then
Application.Sheets(cSheetName).Visible = True
Application.Sheets(cSheetName).Select
Else
Application.Sheets(cSheetName).Visible = False
End If
End If
Application.EnableEvents = True

End Sub
This comment was minimized by the moderator on the site
Thanks for the code, just have one question. When you open the sheet you are asked for question, then you enter it and the sheet is visible, but when you jump to next sheet and try to re-open previous sheet, you are asked for the same password again everytime. My question is can you bypass that and make excel ask for password once?
This comment was minimized by the moderator on the site
Private Sub Workbook_SheetActivate(ByVal Sh As Object)
Dim xSheetName As String
aSheetName = "sheet1"
bSheetName = "sheet2"
cSheetName = "sheet3"

If Application.ActiveSheet.Name = aSheetName Then
Application.EnableEvents = False
Application.ActiveSheet.Visible = False
xTitleId = "KutoolsforExcel"
response = Application.InputBox("Password", xTitleId, "", Type:=2)
If response = "1234" Then
Application.Sheets(aSheetName).Visible = True
Application.Sheets(aSheetName).Select
Else
Application.Sheets(aSheetName).Visible = False
End If
End If
Application.EnableEvents = True

If Application.ActiveSheet.Name = bSheetName Then
Application.EnableEvents = False
Application.ActiveSheet.Visible = False
xTitleId = "KutoolsforExcel"
response = Application.InputBox("Password", xTitleId, "", Type:=2)
If response = "2345" Then
Application.Sheets(bSheetName).Visible = True
Application.Sheets(bSheetName).Select
Else
Application.Sheets(bSheetName).Visible = False
End If
End If
Application.EnableEvents = True

If Application.ActiveSheet.Name = cSheetName Then
Application.EnableEvents = False
Application.ActiveSheet.Visible = False
xTitleId = "KutoolsforExcel"
response = Application.InputBox("Password", xTitleId, "", Type:=2)
If response = "3456" Then
Application.Sheets(cSheetName).Visible = True
Application.Sheets(cSheetName).Select
Else
Application.Sheets(cSheetName).Visible = False
End If
End If
Application.EnableEvents = True

End Sub
There are no comments posted here yet
Please leave your comments in English
Posting as Guest
×
Rate this post:
0   Characters
Suggested Locations