Note: The other languages of the website are Google-translated. Back to English

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

Giả sử bạn có một sổ làm việc chứa nhiều trang tính và bây giờ bạn cần bảo vệ tất cả các trang tính hoặc một số trang tính cụ thể, thông thường trong Excel, bạn chỉ có thể bảo vệ từng trang một bằng chức năng Protect Sheet, nhưng phương pháp này khá tẻ nhạt và tốn thời gian nếu có nhiều trang tính cần được bảo vệ. Làm cách nào để bạn bảo vệ nhiều trang tính cùng lúc trong Excel một cách nhanh chóng và dễ dàng?

Bảo vệ tất cả các trang tính cùng một lúc bằng mã VBA

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

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


mũi tên màu xanh bong bóng bên phải Bảo vệ tất cả các trang tính cùng một lúc bằng mã VBA

Với mã VBA sau, bạn có thể bảo vệ tất cả các trang tính của sổ làm việc đang hoạt động cùng một lúc bằng cùng một mật khẩu, hãy làm như sau:

1. Giữ ALT + F11 chìa khóa và nó mở Microsoft Visual Basic cho các ứng dụng cửa sổ.

2. Nhấp chuột Chèn > Mô-đunvà dán mã sau vào Cửa sổ mô-đun.

Mã VBA: Bảo vệ tất cả các trang tính trong sổ làm việc cùng một lúc:

Sub protect_all_sheets()
top: 
pass = InputBox("password?") 
repass = InputBox("Verify Password") 
If Not (pass = repass) Then 
MsgBox "you made a boo boo" 
Goto top 
End If 
For i = 1 To Worksheets.Count 
If Worksheets(i).ProtectContents = True Then Goto oops 
Next 
For Each s In ActiveWorkbook.Worksheets 
s.Protect Password:=pass 
Next 
Exit Sub 
oops: MsgBox "I think you have some sheets that are already protected. Please unprotect all sheets then running this Macro." 
End Sub

3. Sau đó nhấn F5 để chạy mã và nhập mật khẩu cho các trang tính được bảo vệ trong hộp nhắc, xem ảnh chụp màn hình:

doc-bảo vệ-nhiều trang tính1-1

4. Nhấp chuột OK, và sau đó nhập lại mật khẩu để xác nhận mật khẩu.

doc-bảo vệ-nhiều trang tính2-2

5. Sau đó nhấn vào OK, và tất cả các trang tính đã được bảo vệ bằng cùng một mật khẩu.


mũi tên màu xanh bong bóng bên phải Bảo vệ nhiều trang tính cùng một lúc với Kutools cho Excel

Đôi khi, bạn không muốn bảo vệ tất cả các trang tính trong sổ làm việc của mình và chỉ muốn bảo vệ một số trang tính cụ thể, trong tình huống này, mã trên sẽ không hoạt động. Nhưng vơi Kutools cho Excel'S Bảo vệ trang tính tiện ích, bạn có thể bảo vệ tất cả các trang tính và các trang tính cụ thể một cách nhanh chóng và dễ dàng.

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 60 ngày

Sau khi cài đặt Kutools cho Excel, vui lòng thực hiện theo các bước 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, chọn trang tính mà bạn muốn được bảo vệ. (Theo mặc định, tất cả các trang tính trong sổ làm việc hiện tại đều được chọn.) Xem ảnh chụp màn hình:

doc-bảo vệ-nhiều trang tính4-4

3. và bấm OK, sau đó nhập và xác nhận mật khẩu trong hộp thoại Bảo vệ Trang tính. Xem ảnh chụp màn hình:

doc-bảo vệ-nhiều trang tính5-5

4. Sau đó nhấn vào OK, các trang tính đã chọn đã được bảo vệ.

Nhấp vào Bảo vệ Trang tính để biết thêm về tính năng này.


mũi tên màu xanh bong bóng bên phải Bỏ bảo vệ nhiều trang tính cùng một lúc với kutools cho Excel

Làm cách nào bạn có thể bỏ bảo vệ nhiều trang tính được bảo vệ trong một sổ làm việc cùng một lúc? Tất nhiên, Kutools cho Excel cũng cung cấp Bỏ bảo vệ trang tính tiện ích cho bạn để bỏ bảo vệ chúng cùng một lúc.

Vui lòng thực hiện theo các bước sau:

1. Mở sổ làm việc của bạn có chứa các trang tính được bảo vệ.

2. Sau đó nhấn vào Kutools Plus > Bỏ bảo vệ trang tính, xem ảnh chụp màn hình:

3. Trong Bỏ bảo vệ trang tính hộp thoại, các trang tính được bảo vệ được liệt kê vào hộp danh sách, sau đó bấm Ok nút, xem ảnh chụp màn hình:

doc-bảo vệ-nhiều trang tính7-7

4. Và sau đó một Bỏ bảo vệ trang tính hộp thoại bật ra để nhắc bạn nhập mật khẩu mà bạn đã tạo để bảo vệ trang tính, xem ảnh chụp màn hình:

doc-bảo vệ-nhiều trang tính8-8

5. Sau khi nhập mật khẩu, hãy nhấp vào Ok, tất cả các trang tính đã chọn trong hộp danh sách đã không được bảo vệ.

LƯU Ý Các trang tính phải có cùng một mật khẩu.

Để biết thêm về tính năng Unprotect Worksheet này.

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


mũi tên màu xanh bong bóng bên phải Demo: Bảo vệ hoặc Bỏ bảo vệ tất cả các trang tính cùng một lúc với Kutools cho Excel

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. Tải xuống và dùng thử miễn phí ngay!

Bài viết liên quan:

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


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

Kutools cho 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

  • Tái sử dụng: Chèn nhanh công thức phức tạp, biểu đồ và bất cứ thứ gì bạn đã sử dụng trước đây; Mã hóa ô với mật khẩu; Tạo danh sách gửi thư và gửi email ...
  • 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 mà không làm mất dữ liệu; Nội dung phân chia ô; Kết hợp các hàng / cột trùng lặp... 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 ...
  • 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 !
  • Hơn 300 tính năng mạnh mẽ. Hỗ trợ Office / Excel 2007-2021 và 365. Hỗ trợ tất cả các ngôn ngữ. Dễ dàng triển khai trong doanh nghiệp hoặc tổ chức của bạn. Đầy đủ tính năng Dùng thử miễn phí 30 ngày. Bảo đảm hoàn lại tiền trong 60 ngày.
tab kte 201905

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!
officetab dưới cùng
Nhận xét (21)
Chưa có xếp hạng. Hãy là người đầu tiên xếp hạng!
Nhận xét này đã được giảm thiểu bởi người điều hành trên trang web
Tuyệt vời - vậy làm thế nào để bảo vệ tất cả chúng cùng một lúc? Tôi là một người nghiệp dư, vì vậy tôi cần thêm thông tin.
Nhận xét này đã được giảm thiểu bởi người điều hành trên trang web
[quote] Tuyệt vời - vậy làm cách nào để KHÔNG bảo vệ tất cả chúng cùng một lúc? Tôi là một người nghiệp dư, vì vậy tôi cần thêm thông tin.Bởi Kristin Dzugan[/ quote] :-) Bạn có thể dễ dàng bỏ bảo vệ chúng bằng http://www.extendoffice.com/product/kutools-for-excel/excel-unprotect-multiple-sheets.html
Nhận xét này đã được giảm thiểu bởi người điều hành trên trang web
Sub unprotect_all_sheets () top: pass = InputBox ("password?") Repass = InputBox ("Verify Password") If Not (pass = repass) Sau đó MsgBox "bạn đã la ó" GoTo top End If For i = 1 To Worksheets .Count Next For Each s Trong ActiveWorkbook.Worksheets s.Unprotect Password: = pass Next Exit Sub oops: MsgBox "Tôi nghĩ rằng bạn có một số trang tính đã được bảo vệ. Vui lòng bỏ bảo vệ tất cả các trang tính B4 đang chạy Macro này." Kết thúc Sub
Nhận xét này đã được giảm thiểu bởi người điều hành trên trang web
Cảm ơn bạn rất nhiều :-)
Nhận xét này đã được giảm thiểu bởi người điều hành trên trang web
Như Kristin đã nói, làm thế nào để bạn bỏ bảo vệ tất cả chúng cùng một lúc?
Nhận xét này đã được giảm thiểu bởi người điều hành trên trang web
Vì vậy, làm cách nào để bỏ bảo vệ mà không có kutools?
Nhận xét này đã được giảm thiểu bởi người điều hành trên trang web
[quote] Vì vậy, làm cách nào để bỏ bảo vệ mà không có kutools?Bởi cz[/ quote] Bạn có thể bỏ bảo vệ trang tính mà không cần Kutools cho Excel. Bạn chỉ cần nhấp chuột phải vào tab trang tính mà bạn muốn bỏ bảo vệ và nhấp vào lệnh Bỏ bảo vệ trang tính, sau đó nhập mật khẩu của bạn. :-)
Nhận xét này đã được giảm thiểu bởi người điều hành trên trang web
khi tôi nhập mã, nó xuất hiện với "lỗi thời gian chạy 1004 ?? đánh dấu phần sau bằng màu vàng ... s. Mật khẩu bảo vệ: = pass
Nhận xét này đã được giảm thiểu bởi người điều hành trên trang web
Tôi cũng đột nhiên gặp lỗi 1004. Tôi đã sử dụng macro trong nhiều tháng nhưng bây giờ nó sẽ không chạy.
Nhận xét này đã được giảm thiểu bởi người điều hành trên trang web
Xin chào, tôi cũng đang gặp vấn đề này. Hóa ra nó không thể chạy nếu bạn đã chọn tất cả các trang tính trong sổ làm việc. Hãy thử chỉ chọn một trang tính và sau đó chạy.
Nhận xét này đã được giảm thiểu bởi người điều hành trên trang web
Tôi đột nhiên gặp sự cố lỗi 1004. Đã sử dụng macro trong nhiều tháng nay, nó ngẫu nhiên không thành công.
Nhận xét này đã được giảm thiểu bởi người điều hành trên trang web
Tôi cũng đột nhiên gặp lỗi 1004. Bất cứ ai tìm thấy một giải pháp?
Nhận xét này đã được giảm thiểu bởi người điều hành trên trang web
khi tôi kích hoạt VBA này, liên kết không hoạt động. làm thế nào tôi có thể làm cho chúng hoạt động? tnx :)
Nhận xét này đã được giảm thiểu bởi người điều hành trên trang web
Cảm ơn bạn! Điều này thật tuyệt vời, tôi thậm chí còn có thể sửa đổi mã VBA để tôi có thể bỏ bảo vệ tất cả các trang tính cùng một lúc! :) Sub unprotect_all_sheets () top: pass = InputBox ("password?") Repass = InputBox ("Verify Password") If Not (pass = repass) Sau đó MsgBox "bạn đã la ó" GoTo top End If For i = 1 Tới Worksheets.Count Tiếp theo cho mỗi s Trong ActiveWorkbook.Worksheets s.Unprotect Password: = pass Next Exit Sub oops: MsgBox "Tôi nghĩ bạn có một số trang đã được bảo vệ. Vui lòng bỏ bảo vệ tất cả các trang B4 đang chạy Macro này." Kết thúc Sub
Nhận xét này đã được giảm thiểu bởi người điều hành trên trang web
Này, tôi cần một số trợ giúp, mã ở trên rất hữu ích, nhưng nó khóa phân loại (cả bộ lọc tự động). Bạn có thể vui lòng cung cấp mã để giải quyết vấn đề đó và cũng như nơi mã sẽ được chèn vào không. Cảm ơn bạn trước.
Nhận xét này đã được giảm thiểu bởi người điều hành trên trang web
Tôi có các tab và trang tính biểu đồ trong sổ làm việc Excel 2013 của mình. Mã VBA ở trên hoạt động để bảo vệ các trang tính chứ không phải các tab biểu đồ riêng biệt. Làm cách nào để tôi bảo vệ mật khẩu cho nhiều tab biểu đồ và nhiều trang tính trong sổ làm việc của mình? Thanks!
Nhận xét này đã được giảm thiểu bởi người điều hành trên trang web
Xin chào Tôi đã sử dụng mã này bây giờ tôi không chấp nhận mật khẩu của tôi để vào lại bảng tính của tôi !!
Nhận xét này đã được giảm thiểu bởi người điều hành trên trang web
Làm cách nào để che mật khẩu bằng phương pháp VBA? Tôi không thể tìm thấy thông tin này qua tệp trợ giúp của google hoặc F1. Cảm ơn trước!
Nhận xét này đã được giảm thiểu bởi người điều hành trên trang web
Cảm ơn công cụ đầy đủ kỳ diệu để bảo vệ và bỏ bảo vệ tất cả các trang tính cùng một lúc. Vui lòng hướng dẫn tôi Tôi có thể bỏ bảo vệ tất cả các trang trong sổ làm việc của mình cùng một lúc nhưng khi tôi chạy bảo vệ tất cả các trang Mã VBA thì chỉ 4 trang đầu tiên được bảo vệ và còn lại hoặc không được bảo vệ. Xin vui lòng giúp tôi để giải quyết vấn đề.
Nhận xét này đã được giảm thiểu bởi người điều hành trên trang web
Tôi đang cố gắng sử dụng tính năng này trong sổ làm việc được chia sẻ nhưng tôi gặp lỗi Microsoft Visual Basic "Lỗi thời gian chạy '1004": Lỗi do ứng dụng xác định hoặc do đối tượng xác định "Tôi chỉ đang tìm các đề xuất về cách khắc phục lỗi này. Bất kỳ sự giúp đỡ sẽ được đánh giá cao
Nhận xét này đã được giảm thiểu bởi người điều hành trên trang web
Xảy ra khi trang tính đã bị khóa
Không có bình luận nào được đăng ở đây
Để lại ý kiến ​​của bạn
Đăng với tư cách khách
×
Đánh giá bài viết này:
0   Nhân vật
Các vị trí được đề xuất

Kết nối với chúng tôi

Bản quyền © 2009 - www.extendoffice.com. | Đã đăng ký Bản quyền. cung cấp bởi ExtendOffice. | BẢN ĐỒ CHI NHÁNH
Microsoft và logo Office là các nhãn hiệu hoặc nhãn hiệu đã đăng ký của Microsoft Corporation tại Hoa Kỳ và / hoặc các quốc gia khác.
Được bảo vệ bởi Sectigo SSL