hola, Juan !
... alguna forma de aplicar de una manera rapida mediante algun script una contrase#a
para que 1000 documentos de word aproximadamente, es decir que para poder modificarlos pidan una contrase#a.
1) copia/mueve/coloca/... tus documentos en una sola carpeta [o directorio 'comun']...
2) abre un documento nuevo
3) copia/pega/... las siguientes lineas en un modulo de codigo 'general'...
=== EN el proyecto de macros del documento 'nuevo' [vba en ms-word] ===
Sub PonerClaveADocumentos()
Dim BuscarDonde As String, Clave As String, Archivo As String
BuscarDonde = '"pon aqui la ruta:\a la carpeta\comun\" ' <= NO olvides el '\' al final :))
Clave = "abc" ' <= pon aqui la clave de tu preferencia '
Archivo = Dir(BuscarDonde & "*.doc")
Application.ScreenUpdating = False
Do While Archivo <> ""
Documents.Open Archivo
With ActiveDocument
.WritePassword = Clave
.Save
.Close
End With
Archivo = Dir()
Loop
End Sub
-> OJO: se asume/espera/supone/... que los documentos NO tienen clave [originalmente] :))
si cualquier duda [o informacion adicional]... comentas ?
saludos,
hector.