Iniciar sesiónCerrar
Correo:
Contraseña:
Entrar
Recordar sesión en este navegador
Iniciar sesiónIniciar sesiónCrear cuentaCrear cuenta
LWP » Foros » Visual Basic » MACRO ERROR 424

Visual Basic - MACRO ERROR 424

Life is soft - evento anual de software empresarial
Volver
Nuevo Tema
<<>>
 
Vista:

MACRO ERROR 424

Publicado por PERCIVAL (1 intervención) el 17/04/2018 18:35:59
Buenas tardes

Soy nuevo aquí y en esto de las Macros, estoy haciendouna macro para una hoja protegida de Excel que des proteja la hoja genere el PDF y lo guarde en la misma ubicación y vuelva a proteger la hoja pero me sale el error de

Se ha producido el error '424' en tiempo de ejecución:
Se requiere un objeto

1
2
3
4
5
6
7
8
9
10
11
12
Sub guarda_pdf()
ActiveSheet.Unprotect "PercivalLoco2011"
  uf = ActiveCell.SpecialCells(xlLastCell).Row
ru = ThisWorkbook.Path & "\"
 Range("A1:Q0" & uf).Select
 Selection.ExportAsFixedFormat Type:=xlTypePDF, _
 Filename:=ru & Range("B12") & " " & "SOLICITUD DE " & Range("E15") & " " & Format(Range("B6 "), "dd-mm-yyyy") & ".pdf", _
 Quality:=xlQualityStandard, IncludeDocProperties:=True, _
 IgnorePrintAreas:=False, OpenAfterPublish:=False
activeshet.Protect "PercivalLoco2011"
MsgBox Err.Number & "-" & Err.Description, vbCritical, "error"
End Sub


de antemano agradezco su apoyo
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
1
Responder
Imágen de perfil de Antoni Masana
Val: 1.259
Plata
Ha mantenido su posición en Visual Basic (en relación al último mes)
Gráfica de Visual Basic

MACRO ERROR 424

Publicado por Antoni Masana (558 intervenciones) el 18/04/2018 07:47:42
He realizado algunos cambios que he resaltado

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
Const PASSWORD="PercivalLoco2011"
 
Sub guarda_pdf()
    Dim uf As Long, ru As String, Fecha As String
 
    On Error Goto Error
    ActiveSheet.Unprotect PASSWORD
    uf = ActiveCell.SpecialCells(xlLastCell).Row
    ru = ThisWorkbook.Path & "\"
    Range("A1:Q0" & uf).Select
    Fecha = Format(Range("B6 "), "dd-mm-yyyy")
    Selection.ExportAsFixedFormat Type:=xlTypePDF, _
                                  Filename:=ru & Range("B12") & " " & "SOLICITUD DE " & _
                                                 Range("E15") & " " &  Fecha & ".pdf", _
                                  Quality:=xlQualityStandard, _
                                  IncludeDocProperties:=True, _
                                  IgnorePrintAreas:=False, _
                                  OpenAfterPublish:=False
 
    ActiveSheet.Protect PASSWORD   ' <--- Seguramente el error estaba aquí, en el objeto

    exit Sub
 
:Error
    MsgBox Err.Number & "-" & Err.Description, vbCritical, "error"
End Sub

Si siguen fallando tendrias que subir el libro.

Saludos.
\\//_
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
1
Comentar
sin imagen de perfil

MACRO ERROR 424

Publicado por percival (1 intervención) el 18/04/2018 16:58:06
agradezco tu apoyo pero sale otro error, adjunto el archivo

Saludos y gracias
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar
Imágen de perfil de Antoni Masana
Val: 1.259
Plata
Ha mantenido su posición en Visual Basic (en relación al último mes)
Gráfica de Visual Basic

MACRO ERROR 424

Publicado por Antoni Masana (558 intervenciones) el 19/04/2018 20:19:19
Es un error mio. A veces me confundo con los BAT.

En Visual Basic los dos puntos de la etiqueta van después del nombre:

1
2
3
4
5
6
7
8
9
10
11
Const PASSWORD="PercivalLoco2011"
 
Sub guarda_pdf()
    Dim uf As Long, ru As String, Fecha As String
 
    On Error Goto Error
    ...
 
Error:
    MsgBox Err.Number & "-" & Err.Description, vbCritical, "error"
End Sub

Saludos.
\\//_
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar