proteger documentos

hola, Hugo !

... documentos ... Word
... hay una carpeta principal y ... varias subcarpetas que contienen los archivos que quiero proteger
... entiendo que el macro ... solo sirve para ... excel y que ... es condicion que ... esten en la misma carpeta
... imagino que el macro ... para ... Word habra que aplicarlo a cada una de estas subcarpetas [...]

1° [efectivamente] existen -ligeras- diferencias en el 'manejo' de propiedades/metodos entre excel y word
2° para que se aplique [incluso] a las subcarpetas, solo cambia a 'true' en ->.SearchSubFolders<-
3° prueba con la siguiente macro y... ¿comentas?
saludos,
hector.
en un modulo de codigo 'normal' [vba en ms-word] ==Sub PonerClaveADocumentos()
Dim BuscarDonde As String, Clave As String, Sig As Integer
BuscarDonde = '"pon aqui la ruta:\a la carpeta\PRINCIPAL\"
Clave = "abc" ' pon aqui la Clave de tu preferencia '
With Application.FileSearch
.NewSearch
.LookIn = BuscarDonde
.SearchSubFolders = True
.FileType = msoFileTypeWordDocuments
If .Execute() > 0 Then
Application.ScreenUpdating = False
For Sig = 1 To .FoundFiles.Count
Documents.Open .FoundFiles(Sig)
With ActiveDocument
.Password = Clave
.Save
.Close
End With
Next
Else: MsgBox "No existen documentos en " & BuscarDonde
End If
End With
End Sub