Chèn Username vào footer

[tinhvu21]

Chào các anh, chị
Vui lòng chỉ giúp cách chèn Username tự động trong footer của các sheet khi in. Mình đang sử dụng office 365.

Cảm ơn các anh chị.

 

[befaint]

Option Explicit

Sub CaiChanXinhXinh()
    Dim ws As Worksheet
    Dim strUserName As String
    strUserName = Application.UserName
    For Each ws In ThisWorkbook.Worksheets
        With ws.PageSetup
            '.LeftFooter = strUserName      '1
            '.CenterFooter = strUserName    '2
            .RightFooter = strUserName      '3
  
        End With
    Next ws
End Sub

 

[tinhvu21]

Cảm ơn @befaint nhiều. Kết quả như mong đợi