Hướng dẫn cách bảo vệ tất cả các tệp Excel trong thư mục bằng mật khẩu

Theo mặc định trong Excel, bạn có thể đặt mật khẩu để bảo vệ một tệp dữ liệu Excel để ngăn người dùng khác chỉnh sửa nó, nhưng bạn đã bao giờ thử bảo vệ nhiều tệp Excel cùng một lúc chưa? Ở đây Gitiho sẽ giới thiệu một số thủ thuật để bạn có thể bảo vệ tất cả các tệp Excel trong một thư mục và nhiều sheets trong một tệp dữ liệu Excel.

Để bảo vệ các tệp Excel trong một thư mục cụ thể, bạn có thể sử dụng mã VBA dưới đây  để giải quyết vấn đề.

Bước 1: Mở một tệp Excel mới.

Bước 2: Nhấn tổ hợp phím Alt + F11 để mở của sổ Microsoft Visual Basic for Applications.

Bước 3: Truy cập vào menu Insert > Modul, sau đó copy và dán mã dưới đây vào modul ở khung bên phải.

Sub ProtectAll()
    Dim xWorkBooks As Workbook
    Dim xExitFile As String
    Dim xPassWord As Variant
    Dim xStrPath As String
    Dim xFileDialog As FileDialog
    Dim xFile As String
    On Error Resume Next
    Set xFileDialog = Application.FileDialog(msoFileDialogFolderPicker)
    xFileDialog.AllowMultiSelect = False
    xFileDialog.Title = "Select a folder [Gitiho for Excel]"
    If xFileDialog.Show = -1 Then
        xStrPath = xFileDialog.SelectedItems(1)
    End If
    If xStrPath = "" Then
        Exit Sub
    Else
        xStrPath = xStrPath + "\"
    End If
    xPassWord = Application.InputBox("Enter password", "Gitiho for Excel", , , , , , 2)
    If (xPassWord = False) Or (xPassWord = "") Then
        MsgBox "Password cannot be blank!", vbInformation, "Gitiho for Excel"
        Exit Sub
    End If
    xExitFile = Dir(xStrPath & xFile)
    On Error Resume Next
    Application.ScreenUpdating = False
    Do While xExitFile <> ""
        Set xWorkBooks = Workbooks.Open(xStrPath & xExitFile)
        Application.DisplayAlerts = False
        xWorkBooks.SaveAs Filename:=xWorkBooks.FullName, Password:=xPassWord
        Application.DisplayAlerts = True
        Workbooks(xExitFile).Close False
        Set xWorkBooks = Nothing
        xExitFile = Dir
    Loop
    Application.ScreenUpdating = True
    MsgBox "Successfully protect!", vbInformation, "Gitiho for Excel"
End Sub

Bước 4: Nhấn phím F5 và cửa sổ Select a folder hiển thị. Bạn duyệt đến thư mục chứa tất cả các tệp Excel cần được bảo vệ bằng mật khẩu. Kích chọn tên thư mục rồi bấm nút OK.

Bước 5: Hộp thoại Gitiho for Excel hiển thị, bạn nhập mật khẩu muốn sử dụng để bảo vệ các tệp Excel trong thư mục.

Bước 6: Bấm nút OK, hộp thoại Gitiho for Excel hiển thị thông báo cho bạn biết rằng tất cả các tệp dữ liệu Excel trong thư mục được chọn đã được bảo vệ bằng một mật khẩu.

Bước 7: Từ giờ trở đi, khi bạn mở bất kỳ tệp dữ liệu Excel nào trong thư mục đã được bảo vệ bằng mã trên, hộp thoại Gitiho for Excel sẽ hiển thị và phải nhập đúng mật khẩu thì mới mở được.

Lưu ý: Mã VBA ở trên hoạt động từ phiên bản Excel 2007 trở lên, nếu bạn muốn áp dụng nó để bảo vệ phiên bản thấp hơn, bạn có thể thay đổi xFile = "*.xls" thành xFile = "*.xlsx" trong đoạn mã.

Trên đây Gitiho vừa hướng dẫn các bạn cách để bảo vệ hàng loạt tệp dữ liệu Excel trong một thư mục với chỉ một mật khẩu duy nhất vô cùng thuận lợi. Nếu thấy bài viết hay hãy chia sẻ với bạn bè của mình nhé, hoặc nếu các bạn biết thêm cách nào khác, hãy chia sẻ cùng chúng tôi thông qua comment ở phía dưới bài viết nhé. Chúc các bạn thành công!