Aplicar una contraseña de solo lectura a 1000 documentos de word

04/05/2007 - 11:50 por Juan Velando Cruz | Informe spam
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
 

Leer las respuestas

#1 Héctor Miguel
05/05/2007 - 08:12 | Informe spam
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.

Preguntas similares