Adicion guardar como pdf a macro

[JoaoM]

Hola

Vengo en busca de Diego9019 una vez que el mismo crió esta macro para que:

Diego9019, quisiera pedirte para que a tu macro;

1º- Agregues también para que guarde en PDF (además de xlsx que ya lo hace).

2º- Que guarde la hoja protegida TOTALMENTE con el mismo passw de la hoja original

3º Que guarde la hoja sin botones, sin formulas, sin shaps ni imágenes (si las hubiera)

Subo 2 libros y 1 PDF, un libro para que me hagas eso ya con un boton en la hoja que se guardará, y 2 como ejemplo de la hoja ya guardada como (xlsx y PDF)

Agradecido si puedes echarle mano a mi solicitud.

Cuanto a esta linea, estoy indeciso si usarla o no

  Application.Dialogs(xlDialogSaveAs).Show[/CODE]

o darle la ruta en la macro.

El asunto es abrir DialogSaveAs).Show para uno (xlsx) y para el otro (PDF), es decir, creo tener que abrirse 2 veces para diferentes archivos ¿SI o no?

Tanto el xlsx como el PDF van en la misma ruta y con mismo nombre

Te dejo el libro con tu macro y con Passw de hoja en la celda G4 para que tengas el ejemplo del passw y hoja INFOR con alguna información

1.part1.rar

1.part2.rar

[DiegoLG]

Hola [uSER=53155]@JoaoM[/uSER]

en primer lugar ya no me acuerdo

en segundo si tu archivo no estuviera protegida se puede hacer mucho mas pero no soy adivinador para tu contraseña

Vengo en busca de Diego9019 una vez que el mismo crió esta macro pa

saludos

[JoaoM]

Hola Diego9019, como se dice en algunas partes, te esperaba en la esquina jejejejej

en la parte inferior de mi 1º post dice:

Te dejo el libro con tu macro y con Passw de hoja en la celda G4 para que tengas el ejemplo del passw y hoja INFOR con alguna información

Agrego la passw: 1235 para DESproteger la hoja

Esto en el libro presupuesto_AyudaExcel que es donde tengo tu macro.

esta macro la dejaste aqui

(Aqui el enlace) al tema donde copie tu macro

Boton imprimir y guardar

Tema publicado en 'Macros y programación VBA' iniciado por Harot, Ayer (Miercoles (o Martes)) a las 09:59.

Agradezco tu atencion y voluntad altruista para metr mano en mi libro con la solicitud echa de mi parte

Gracias

[DiegoLG]

Mas tarde lo checo

Saludos

[JoaoM]

Gracias Diego, espero tu ayuda

S ialgo n oentiendes de lo expuesto y necesidad, pregunta porque dicen por aqui que:

Si no pregunta, ¿Como aprende? jejejejeje

[DiegoLG]

Hola

aqui tienes el archivo

te explico lo que hace:

al dar clic en el boton en automaticamente crea en archivo .PDF y posteriormente en XLS

Saludos y no olvides cerrar el tema si fue solucionado y de acuerdo a tu pregunta (

Application.Dialogs(xlDialogSaveAs).Show ), mientras sigues usando la misma ruta no es necesario.

presupuesto_AyudaExcel.rar

[JoaoM]

El libro que guarda en xls me pregunta si quiero guardar sin macros, en cambio quisiera que guardara sin nada preguntar, y que lo guarde sin macros.

Una ves estando yo con Office 2013 quisiera que fuera la extension xlsx, tal como menciona la macro, porque lo esta queriendo guardar con macros, no lo hace porque se le responde SIN MACROS y entonces es cuando lo guarda como xls y no xlsx.

Si respondo NOOO, me lleva a esta rutina

     ActiveWorkbook.SaveAs Filename:="C:\0\Presupuesto.xlsx", _

        FileFormat:=xlOpenXMLWorkbook, CreateBackup:=False[/CODE]

Tambien en la copia que guarda, quedan celdas en que se pueden selecionar, NO, NO PUEDE quedar una sola celda o algun punto de la copia xlsx que se pueda seleccionar.

Te envie un libro (copia llamado Fundición del Centro C.A._966C CAT 76J2704-15-0043-Falla Air.xlsx para que pudieras verificar que NO hay una sola celda que se pueda selecionar o marcar porque dicha hoja esta TOTALMENTE PROTEGIDA lo hace al crear la copia.

Corrijo: ya logre lo de la ruta y name

[CODE] Dim ruta As String
Dim name As String
ruta = "C:\0\"
name = Range("G4").Value
[/CODE]

Asi quedo

[CODE] Hoja1.ExportAsFixedFormat Type:=xlTypePDF, Filename:=ruta & name & ".pdf", OpenAfterPublish:=False[/CODE]

y la linea para xlsx quedo similar

[DiegoLG]

hasta aqui te puedo ayudar mi estimado, solo trata de analizar el código y depurar lo que no necesitas

Saludos

[JoaoM]

Me falta que la hoja que se guarda, quede totalmente protegida y que guarde sin macros para no preguntar.

Pero ok, si nada se puede, ok, vere donde y como

Gracias

Ya logre que no de los pantallazos y que guarde con la extensión xlsx sin que me pregunte

Solo me queda de que copia la hoja y la copia quede TOTALMENTYE BLOQUEADA con el mismo passw.

a ver si algún experto me da una mano.

Dejo la macro para que alguien me meta mano

Sub GuardaSinMacros()

    Dim ruta    As String

    Dim name  As String

    ruta = "C:\0\"

    name = Hoja1.Range("G4").Value   ' & "_" & .Range("C13") & " " & .Range("D13") & "-" & .Range("H13") & .Range("D11").Value


    Application.ScreenUpdating = False

    Application.DisplayAlerts = False


    Sheets("Presupuesto").Select

       Sheets("Presupuesto").Copy

       '

  ActiveSheet.Unprotect "1235"

  '

  ActiveSheet.Shapes.Range(Array("Spinner 6")).Select

    Selection.Delete

    ActiveSheet.Shapes.Range(Array("Spinner 5")).Select

    Selection.Delete

    ActiveSheet.Shapes.Range(Array("10 CuadroTexto")).Select

    Selection.ShapeRange(1).TextFrame2.TextRange.Characters.Text = "+ 5"

    With Selection.ShapeRange(1).TextFrame2.TextRange.Characters(1, 3). _

        ParagraphFormat

        .FirstLineIndent = 0

        .Alignment = msoAlignRight

    End With

    With Selection.ShapeRange(1).TextFrame2.TextRange.Characters(1, 3).Font

        .NameComplexScript = "+mn-cs"

        .NameFarEast = "+mn-ea"

        .Fill.Visible = msoTrue

        .Fill.ForeColor.ObjectThemeColor = msoThemeColorDark1

        .Fill.ForeColor.TintAndShade = 0

        .Fill.ForeColor.Brightness = 0

        .Fill.Transparency = 0

        .Fill.Solid

        .Size = 11

        .name = "+mn-lt"

    End With

    Selection.Delete

    ActiveSheet.Shapes.Range(Array("13 CuadroTexto")).Select

    Selection.Delete

    ActiveSheet.Shapes.Range(Array("15 CuadroTexto")).Select

    Selection.Delete

    ActiveSheet.Shapes.Range(Array("16 CuadroTexto")).Select

    Selection.Delete

    ActiveSheet.Shapes.Range(Array("Striped Right Arrow 23")).Select

    Selection.Delete

    ActiveSheet.Shapes.Range(Array("Excel_PDF")).Select

    Selection.Delete

    Cells.Select

    Selection.Copy

    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _

        :=False, Transpose:=False

    Application.CutCopyMode = False

    Range("A2").Select

    '

'     Hoja1.ExportAsFixedFormat Type:=xlTypePDF, Filename:=ruta & name & ".pdf", OpenAfterPublish:=False


  ActiveSheet.Protect "1235"

  '

     ActiveWorkbook.SaveAs Filename:=ruta & name & ".xlsx", FileFormat:=xlOpenXMLWorkbook, CreateBackup:=False


  With Hoja1

  .Range ("I3")

  .Value = .Value + 1

  End With


    Application.DisplayAlerts = True

    Application.ScreenUpdating = True

    ActiveWindow.Close

End Sub[/CODE]