Macro para guardar con pasword

Hola Jesus
con esta macro le guardas con la contraseña que quieres

Sub Macro1()
Dim x As String
x = InputBox("contraseña", "escribe la contraseña")
ChDir "C:\Documents and Settings\DANIEL\"
ActiveWorkbook.SaveAs Filename:= _
"C:\Documents and Settings\DANIEL\Escritorio\D.M.G.xls",
FileFormat:=xlNormal _
, Password:=(x), WriteResPassword:=(x), ReadOnlyRecommended:=False _
, CreateBackup:=False
End Sub

comenta si te sirvio
un saludo
Daniel
"jesus" escribió en el mensaje
news:
Mostrar la cita

Hola:

Me podrian ayudar, estoy haciendo una macro en donde me guarde un archivo
de
excel con un nombre especifico que tienes un una de las celdas, eso ya lo
tengo pero necesito que me ponerle un password diferente para cada archivo
guardado.

Gracias

Esta es la macro que inicialmente tengo,

ThisWorkbook.SaveAs Filename:=Worksheets("plantilla").Range("a3"), _
FileFormat:=xlWorkbookNormal


Como la puedo complementar

Gracias

"daniel" escribió:

Mostrar la cita

Hola Jesus
con esta macro le guardas con la contraseña que quieres

Sub Macro1()
Dim x As String
x = InputBox("contraseña", "escribe la contraseña")
ChDir "C:\Documents and Settings\DANIEL\"
ActiveWorkbook.SaveAs Filename:= _
"C:\Documents and Settings\DANIEL\Escritorio\D.M.G.xls",
FileFormat:=xlNormal _
, Password:=(x), WriteResPassword:=(x), ReadOnlyRecommended:=False _
, CreateBackup:=False
End Sub

comenta si te sirvio
un saludo
Daniel
"jesus" escribió en el mensaje
news:
> Hola:
>
> Me podrian ayudar, estoy haciendo una macro en donde me guarde un archivo
> de
> excel con un nombre especifico que tienes un una de las celdas, eso ya lo
> tengo pero necesito que me ponerle un password diferente para cada archivo
> guardado.
>
> Gracias

Hola Jesus
yo e puesto la ruta en la celda a1(la ruta es completa) y la contraseña en
la a2 cambialo como quieras.
haber si te sirve.
Sub guardar()
ThisWorkbook.SaveAs Filename:=Worksheets("hoja1").Range("a1"), _
FileFormat:=xlWorkbookNormal _
, Password:=(Worksheets("hoja1").Range("a2"))
End Sub


comentas que tal
Daniel
"jesus" escribió en el mensaje
news:
Mostrar la cita

Esta es la macro que inicialmente tengo,

ThisWorkbook.SaveAs Filename:=Worksheets("plantilla").Range("a3"), _
FileFormat:=xlWorkbookNormal


Como la puedo complementar

Gracias

"daniel" escribió:

Mostrar la cita

Hola Jesus
con esta macro le guardas con la contraseña que quieres

Sub Macro1()
Dim x As String
x = InputBox("contraseña", "escribe la contraseña")
ChDir "C:\Documents and Settings\DANIEL\"
ActiveWorkbook.SaveAs Filename:= _
"C:\Documents and Settings\DANIEL\Escritorio\D.M.G.xls",
FileFormat:=xlNormal _
, Password:=(x), WriteResPassword:=(x),
ReadOnlyRecommended:=False _
, CreateBackup:=False
End Sub

comenta si te sirvio
un saludo
Daniel
"jesus" escribió en el mensaje
news:
> Hola:
>
> Me podrian ayudar, estoy haciendo una macro en donde me guarde un
> archivo
> de
> excel con un nombre especifico que tienes un una de las celdas, eso ya
> lo
> tengo pero necesito que me ponerle un password diferente para cada
> archivo
> guardado.
>
> Gracias

Gracias, ya quedo

Saludos

"daniel" escribió:

Mostrar la cita

Hola Jesus
yo e puesto la ruta en la celda a1(la ruta es completa) y la contraseña en
la a2 cambialo como quieras.
haber si te sirve.
Sub guardar()
ThisWorkbook.SaveAs Filename:=Worksheets("hoja1").Range("a1"), _
FileFormat:=xlWorkbookNormal _
, Password:=(Worksheets("hoja1").Range("a2"))
End Sub


comentas que tal
Daniel
"jesus" escribió en el mensaje
news:
> Esta es la macro que inicialmente tengo,
>
> ThisWorkbook.SaveAs Filename:=Worksheets("plantilla").Range("a3"), _
> FileFormat:=xlWorkbookNormal
>
>
> Como la puedo complementar
>
> Gracias
>
> "daniel" escribió:
>
>> Hola Jesus
>> con esta macro le guardas con la contraseña que quieres
>>
>> Sub Macro1()
>> Dim x As String
>> x = InputBox("contraseña", "escribe la contraseña")
>> ChDir "C:\Documents and Settings\DANIEL\"
>> ActiveWorkbook.SaveAs Filename:= _
>> "C:\Documents and Settings\DANIEL\Escritorio\D.M.G.xls",
>> FileFormat:=xlNormal _
>> , Password:=(x), WriteResPassword:=(x),
>> ReadOnlyRecommended:=False _
>> , CreateBackup:=False
>> End Sub
>>
>> comenta si te sirvio
>> un saludo
>> Daniel
>> "jesus" escribió en el mensaje
>> news:
>> > Hola:
>> >
>> > Me podrian ayudar, estoy haciendo una macro en donde me guarde un
>> > archivo
>> > de
>> > excel con un nombre especifico que tienes un una de las celdas, eso ya
>> > lo
>> > tengo pero necesito que me ponerle un password diferente para cada
>> > archivo
>> > guardado.
>> >
>> > Gracias
>>
>>
>>