Guardar y proteger
Hola Julio, ¿la siguiente macro me valdría para guardar un archivo y protegerlo al mismo tiempo?
WorkBooks(NombreVarialbe).SaveAs FileName, FileFormat, Password
Gracias.-
WorkBooks(NombreVarialbe).SaveAs FileName, FileFormat, Password
Gracias.-
1 Respuesta
Respuesta de paramisolo
1
La macro sería así:
Sub Guardar_Contraseña()
variable=Range("A1").Select
ActiveWorkbook.Protect Structure:=True, Windows:=False
ChDir "C:\"
ActiveWorkbook.SaveAs Filename:= _
"C:\Documents and Settings\Papa\Escritorio\" & variable & ".xls", FileFormat:=xlNormal _
, Password:="", WriteResPassword:="", ReadOnlyRecommended:=False, _
CreateBackup:=False
End Sub
La variable puede ser el valor de una celda
>Un saludo
>Julio
Sub Guardar_Contraseña()
variable=Range("A1").Select
ActiveWorkbook.Protect Structure:=True, Windows:=False
ChDir "C:\"
ActiveWorkbook.SaveAs Filename:= _
"C:\Documents and Settings\Papa\Escritorio\" & variable & ".xls", FileFormat:=xlNormal _
, Password:="", WriteResPassword:="", ReadOnlyRecommended:=False, _
CreateBackup:=False
End Sub
La variable puede ser el valor de una celda
>Un saludo
>Julio
