Forums Últimos mensajes - Powered by IBM
 

Macro para guardar con pasword

29/06/2007 - 16:20 por jesus | Informe spam
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
 

Leer las respuestas

#1 daniel
29/06/2007 - 16:54 | Informe spam
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

Preguntas similares