Code Set password File Excel

[Cúc Hr]

Chào anh/chị.

Em có 1 số file excel (khoảng gần 50 file) đã Lưu trong thư mục C:\Users\Cuc Nguyen\Documents\27-12-2024, em muốn đặt mật khẩu cho từng file trong thư mục này theo dữ liệu được chuẩn bị sẵn như file đính kèm.Nhờ anh/chị hướng dẫn giúp em.

Cám ơn anh/chị.

 

[hvnhpro]

Trước mình cũng hay gửi mail thông tin bảng lương, bạn xài tạm

Sub DatMatKhau()
    Dim ws As Worksheet
    Dim folderPath As String
    Dim fileName As String
    Dim password As String
    Dim wb As Workbook
    Dim i As Integer
    Dim lastRow As Long
    
    ' Duong dan thu muc phai co gach cheo o cuoi cung
    folderPath = "C:\Users\Cuc Nguyen\Documents\27-12-2024\"
    ' Dat ten sheet chua du lieu
    Set ws = ThisWorkbook.Sheets("Sheet1")
    ' Xác dinh dong cuoi cung chua du lieu trong cot A
    lastRow = ws.Cells(ws.Rows.Count, 1).End(xlUp).Row

    For i = 2 To lastRow
    '1 la cot A - 2 la cot B
        fileName = ws.Cells(i, 1).Value
        password = ws.Cells(i, 2).Value

        ' Kiem tra neu ten file khong rong
        If Dir(folderPath & fileName) <> "" Then
            ' Mo file Excel
            Set wb = Workbooks.Open(folderPath & fileName)
            ' Dat mat khau
            wb.password = password
            ' Luu và dong file
            wb.Save
            wb.Close
        Else
        MsgBox "Khong tim thay file excel"
        End If
    Next i

    MsgBox "Hoan thanh dat Mat Khau."
End Sub

 

[Cúc Hr]

Trước mình cũng hay gửi mail thông tin bảng lương, bạn xài tạm

Sub DatMatKhau()
    Dim ws As Worksheet
    Dim folderPath As String
    Dim fileName As String
    Dim password As String
    Dim wb As Workbook
    Dim i As Integer
    Dim lastRow As Long
   
    ' Duong dan thu muc phai co gach cheo o cuoi cung
    folderPath = "C:\Users\Cuc Nguyen\Documents\27-12-2024\"
    ' Dat ten sheet chua du lieu
    Set ws = ThisWorkbook.Sheets("Sheet1")
    ' Xác dinh dong cuoi cung chua du lieu trong cot A
    lastRow = ws.Cells(ws.Rows.Count, 1).End(xlUp).Row

    For i = 2 To lastRow
    '1 la cot A - 2 la cot B
        fileName = ws.Cells(i, 1).Value
        password = ws.Cells(i, 2).Value

        ' Kiem tra neu ten file khong rong
        If Dir(folderPath & fileName) <> "" Then
            ' Mo file Excel
            Set wb = Workbooks.Open(folderPath & fileName)
            ' Dat mat khau
            wb.password = password
            ' Luu và dong file
            wb.Save
            wb.Close
        Else
        MsgBox "Khong tim thay file excel"
        End If
    Next i

    MsgBox "Hoan thanh dat Mat Khau."
End Sub

Bạn ơi, bạn có thể xem lại code giúp mình 1 chút nữa được không
khi mình đặt tên file đều cùng 1 cấu trúc nhưng không hiểu lý do vì sao khi mình cho chạy code đặt mật khẩu của bạn gửi phía trên nhưng kết quả chỉ cho những file có tên tương ứng từ dòng 28 trở xuống, còn những file có tên tương ứng từ dòng 1 đến dòng 27 còn lại phía trên lại báo KHÔNG TÌM THẤY FILE.

 

[hvnhpro]

Bạn ơi, bạn có thể xem lại code giúp mình 1 chút nữa được không
khi mình đặt tên file đều cùng 1 cấu trúc nhưng không hiểu lý do vì sao khi mình cho chạy code đặt mật khẩu của bạn gửi phía trên nhưng kết quả chỉ cho những file có tên tương ứng từ dòng 28 trở xuống, còn những file có tên tương ứng từ dòng 1 đến dòng 27 còn lại phía trên lại báo KHÔNG TÌM THẤY FILE.

mình cũng không chuyên code lắm đâu, mình chỉ tìm cách bẫy xem lỗi ở đâu rồi mò tiếp =))

Đoán mò lỗi bạn nói là do tên file của bạn là do đặt tiếng việt, hoặc tên file+ địa chỉ thư mục của bạn dài quá.
1. nếu đúng có file trong thư mục rồi bạn thử đặt lại hết tên file tiếng việt không dấu.
2. vẫn không tìm thấy file thì sửa tên file và hoặc địa chỉ thư mục ngắn đi. Ví dụ mã nhân viên+ kỳ lương thôi.