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:

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