Excel - Usar BeforePrint para exportar en pdf antes de imprimir

Private Sub Workbook_BeforePrint(Cancel As Boolean)

    Dim carpeta As String, archivo As String, _

        w_fecha1 As String, w_hora1 As String

    ' ---&--- En esta primera parte se exportaran los datos detallados

    w_fecha1 = Format(Now, "yyyymmdd")

    w_hora1 = Format(Now, "HHmmss")

    With Sheets("DatosUsuario")

        .Unprotect Password:="123123"

        .Range("B1").Value = Environ("computername")

        .Range("B2").Value = Environ("username")

        .Range("B3").Value = ActiveWorkbook.Path

        .Range("B4").Value = w_fecha1

        .Range("B5").Value = w_hora1

        .Protect Password:="123123"

    End With

    ' ---&--- En esta segunda parte se exportara en PDF el libro, con el nombre

    '         concatenado con la fecha y hora de edición. Si el usuario desea

    '         imprimir, solo podra el formato mas no la hoja bloqueada

    carpeta = "C:\Users\cvillegas\Documents\Carpeta de prueba Excel\"

    archivo = w_fecha1 & w_hora1 & " " & ActiveWorkbook.Name

    Worksheets("DatosUsuario").PageSetup.PrintArea = "$A$1:$B$5"

    Application.EnableEvents = Falso

    ThisWorkbook.ExportAsFixedFormat Type:=xlTypePDF, _

                                     Filename:=carpeta & archivo & ".pdf", _

                                     Quality:=xlQualityStandard, _

                                     IncludeDocProperties:=True, _

                                     IgnorePrintAreas:=False

    Application.EnableEvents = True

End Sub