Mahesh có một số sổ làm việc Excel, tất cả đều được lưu trữ trong cùng một thư mục.

Anh ấy tự hỏi liệu có thể gán mật khẩu cho toàn bộ thư mục để tất cả các sổ làm việc được bảo vệ hay không.

Câu trả lời ngắn gọn là không, bạn không thể làm điều đó trong Excel. Tuy nhiên, có một số kỹ thuật khác nhau mà bạn có thể áp dụng sẽ mang lại kết quả mong muốn. Phương pháp đầu tiên là sử dụng một chương trình như WinZip để kết hợp tất cả các sổ làm việc thành một tệp zip duy nhất. Tệp này có thể được bảo vệ bằng mật khẩu (trong WinZip) để không phải ai cũng có thể mở được. Sau đó, bạn có thể mở tệp zip (sử dụng mật khẩu của bạn) và bấm đúp vào bất kỳ sổ làm việc nào trong đó để sửa đổi nó bằng Excel. Kết quả, đối với tất cả các ý định và mục đích, là bạn có một “thư mục” (tệp zip) được bảo vệ, trong khi các tệp riêng lẻ mà nó chứa thì không.

Một cách tiếp cận khác là đặt thư mục sổ làm việc trên ổ đĩa mạng và sau đó nhờ quản trị viên mạng bảo vệ thư mục. Hầu hết các hệ điều hành mạng cho phép quản trị viên kiểm soát những ai có thể có quyền truy cập vào các thư mục cụ thể và nội dung của chúng.

Cách tiếp cận thứ ba là sử dụng chương trình của bên thứ ba để bảo vệ thư mục.

Tìm kiếm nhanh trên Web chắc chắn bạn sẽ thấy một số ứng cử viên, chẳng hạn như sau:

https://www.folder-password-expert.com

Bạn cũng có thể sử dụng macro Excel để bảo vệ sổ làm việc. Mặc dù nó không cung cấp khả năng bảo vệ cấp độ thư mục thực sự, nhưng nó cho phép bạn bảo vệ tất cả các sổ làm việc trong thư mục theo cách dễ dàng nhất có thể.

Sub ProtectAll()

Dim wBk As Workbook     Dim sFileSpec As String     Dim sPathSpec As String     Dim sFoundFile As String

sPathSpec = "C:\MyPath\"

sFileSpec = "*.xls?"



sFoundFile = Dir(sPathSpec & sFileSpec)

Do While sFoundFile <> ""

Set wBk = Workbooks.Open(sPathSpec & sFoundFile)

With wBk             Application.DisplayAlerts = False             wBk.SaveAs FileName:=.FullName, _               Password:="swordfish"

Application.DisplayAlerts = True         End With         Set wBk = Nothing         Workbooks(sFoundFile).Close False         sFoundFile = Dir     Loop End Sub

Đảm bảo rằng bạn thay đổi các biến sPathSpec và sFileSpec, gần phần đầu của mã, để phản ánh thư mục chứa các sổ làm việc và mẫu cho tên của các sổ làm việc bạn muốn được bảo vệ. Macro giả định rằng tất cả các sổ làm việc không được bảo vệ; nếu không, macro sẽ nhắc nhập mật khẩu của sổ làm việc.

_Lưu ý: _

Nếu bạn muốn biết cách sử dụng các macro được mô tả trên trang này (hoặc trên bất kỳ trang nào khác trên trang ExcelTips), tôi đã chuẩn bị một trang đặc biệt bao gồm thông tin hữu ích.

ExcelTips là nguồn của bạn để đào tạo Microsoft Excel hiệu quả về chi phí.

Mẹo này (12638) áp dụng cho Microsoft Excel 2007, 2010, 2013, 2016, 2019 và Excel trong Office 365. Bạn có thể tìm thấy phiên bản của mẹo này cho giao diện menu cũ hơn của Excel tại đây: