Xử lý hàng loạt các tệp Excel được bảo vệ bằng mật khẩu

Tôi đã tạo một bộ bảng chấm công của nhân viên trong một thư mục, mỗi bảng được xác định bằng tên và số ID của nhân viên, đồng thời được bảo vệ bằng Số Bảo hiểm Quốc gia của nhân viên làm mật khẩu. Họ sẽ thêm các yêu cầu làm thêm giờ và số dặm vào bảng tính của họ và tôi sẽ xử lý tất cả các tệp vào cuối tháng để lập bảng lương, thêm tất cả các bản ghi từ mỗi tệp vào bảng cơ sở dữ liệu MS Access.

Một vấn đề mà tôi gặp phải là tôi không biết cách mở các tệp được bảo vệ bằng mật khẩu trong VBA để xử lý chúng. Có ai ở đó có kinh nghiệm về quá trình tương tự không?

Stuart

Trả lời:

Xin chào, VBA để bảo vệ và không bảo vệ sổ làm việc

Sub ProtectAll()
Dim sh As Worksheet
Làm mờ myPassword dưới dạng chuỗi
myPassword = "mật khẩu"

Đối với mỗi sh trong ActiveWorkbook.Worksheets
sh.Protect Mật khẩu:=myPassword
tiếp theo

Kết thúc phụ

Sub UnrotectAll()
Dim sh As Worksheet
Làm mờ myPassword dưới dạng chuỗi
myPassword = "mật khẩu"

Đối với mỗi sh trong ActiveWorkbook.Worksheets
sh.Mật khẩu không bảo vệ:=myPassword
tiếp theo

Kết thúc phụ