Cách tạo Phiếu lương gửi nhân viên bằng Excel có mật khẩu

Chia sẻ bởi:hrspring.tides

★★★★★

‹ [Help] – Kiểm Tra Và Giúp Đỡ... File Bảng chấm Công tự động bằng... ›

Quảng cáo

Mong cả nhà hỗ trợ về việc thiết lập payment slip có cách thức như sau:

– Khi nhân viên nhận payment slip là một bảng tinh e xel, và nhân viên có một password. Khi nhân viên nhập password, toàn bộ thông tin lương của nhân viên đó sẽ hiện ra rất rõ ràng rành mạch.

Rất mong cả nhà chia sẻ ạ

Cảm ơn cả nhà

1. Bảng lương của bạn phải có thêm 1 cột password của từng nhân viên, và 1 cột email.
2. Dùng Macro tách từng nhân viên ra vào tạo thành file mới tương ứng với tên nhân viên, file sẽ được đặt pass trong lúc tạo
3. Dùng VBA thực hiện gởi mail tự động, code sẽ tự động đính kèm file vừa tạo.

1989

Đây là mẫu code tách file và có tự động đặt pass:

Sub Tach_File()
Application.ScreenUpdating = False
Application.DisplayAlerts = False
Dim Dic As Object
Dim i As Long, Data(), Sdata As Range, Ma As Variant
Set Dic = CreateObject("scripting.dictionary")
Data = Range([A3], [J65536].End(3)).Value
Set Sdata = Range([A2], [A65536].End(3)).Resize(, 10)
For i = 1 To UBound(Data)
   If Data(i, 2) <> "" Then
      Dic.Item(Data(i, 2)) = Data(i, 10)
   End If
Next
For Each Ma In Dic.keys
   With Sdata
      .AutoFilter 2, Ma
      .SpecialCells(12).Copy
      Workbooks.Add
      With ActiveWorkbook
         .ActiveSheet.Name = Ma
         .ActiveSheet.[A2].PasteSpecial 1
         .ActiveSheet.[A:J].Columns.AutoFit
         .SaveAs ThisWorkbook.path & "" & Ma, 51, Dic.Item(Ma)
         .Close True
      End With
      .AutoFilter
   End With
Next
Application.ScreenUpdating = True
Application.DisplayAlerts = True
End Sub

Để thực thi lệnh tách file, đầu tiên bạn cần phải bật tính năng Enable macro trong Excel như sau:

1. Bấm vào tab File (tab trên cùng bên trái trong cửa sổ Excel).
2. Nhấp vào nút Excel Options.
3. Nhấp vào Trust Center trong menu bên trái.
4. Nhấp vào Trust Center Settings trong cửa sổ bên phải.
5. Trong cửa sổ mới mở, nhấp vào Macro Settings trong menu bên trái.
6. Chọn Enable all macros.
7. Nhấn vào OK.
8. Nhấn vào OK một lần nữa.

10091

9. Đóng tất cả các ứng dụng Office và khởi động lại Excel.