Trần Văn Huệ
Trần Văn Huệ
Thảo luận 0 thảo luận
Vỗ tay 0 vỗ tay
Lượt xem 158 lượt xem

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

Oct 27 2020

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

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

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.

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

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.

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

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.

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

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.

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

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!

CÓ THỂ BẠN CŨNG QUAN TÂM: Học Excel online
Thời đại công nghệ 4.0 đang dần đi vào cuộc sống đòi hỏi mọi người phải tự trang bị kiến thức tin học cho phù hợp để có thể bắt kịp nhưng thay đổi nhanh chóng này. Chẳng ai khác ngoài bạn hiểu mình cần trang bị thêm kiến thức gì. Hãy tìm hiểu ngay TẠI ĐÂY những khóa học hấp dẫn, có tính thực tế cao của Gitiho và đăng ký nhận tư vấn ngay hôm nay.

Cùng tham gia cộng đồng hỏi đáp về chủ đề Tin học văn phòng

Thảo luận 0 câu trả lời
Lượt xem 158 lượt xem
Vỗ tay vỗ tay

0 Bình luận

@ 2020 - Bản quyền của Công ty cổ phần công nghệ giáo dục Gitiho Việt Nam
Giấy chứng nhận Đăng ký doanh nghiệp số: 0109077145, cấp bởi Sở kế hoạch và đầu tư TP. Hà Nội