Buenas, existe 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.

Gracias

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.

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.

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.

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.