Code Set password File Excel (1 người xem)

[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.

 

[Cúc Hr]

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.

Cảm ơn gợi ý của bạn. đúng như bạn suy đoán, mình làm theo gợi ý của bạn và đã fix lỗi thành công.

 

[SA_DQ]

@Chủ bài đăng: Nếu là mình thì sẽ là vầy:

STT	Ho & Ten	Mã NV	Mã Năm/Tháng	Tên file	Tháng-Năm
1	Ngô Văn An	NVA00	D9	D9NVA00.xlsx	9/23
2	Nguyễn Vỹ Aí	NVA01	DA	DANVA01.xlsx	10/23
3	Nhữ Thị Vinh Anh	NVA02	DB	DBNVA02.xlsx
4	Ngô Ánh	NJA00	E1	E1NJA00.xlsx
5	Dương Đức Cống	DFC00	E2	E2DFC00.xlsx	02/24
6	Đoàn Dưỡng	FJD00	E3	E3FJD00.xlsx
7	Trần Thành Trai	TTT00	E5	E5TTT00.xlsx
8	Trần Thị Thanh Tú	TTT01	E6	E6TTT01.xlsx
9	Từ Thị Tú Trinh	TTT02	E8	E8TTT02.xlsx
10	Thạch Thị Thanh	TTT03	E9	E9TTT03.xlsx
11	Tạ Vũ Thành Thy	TTT04	EA	EATTT04.xlsx	10/24
12	Thái Thị Tư	TTT05	EC	ECTTT05.xlsx
13	Trần Thị Thanh Tuyền	TTT06	F1	F1TTT06.xlsx
14	Từ Thành Thái	TTT07	F2	F2TTT07.xlsx
15	Từ Thị Thanh Tú	TTT08	F4	F4TTT08.xlsx
16	Tô Thị Tố Trinh	TTT09	F5	F5TTT09.xlsx
17	Tô Thái Trâm	TTT10	F7	F7TTT10.xlsx	7/25

​