Visual Basic para Aplicaciones - Poner Password a documentos word y excel

Hola amigos

Si alguien fuera tan amable de pasarme algún código o por lo menos darme pautas sobre cómo añadir contraseña a mis documentos de Word y Excel.

quiero protegerlos y haciéndolo uno por uno voy a terminar el año 3000 :(

Gracias anticipadamente

Saludos.

asi es en excel, no lo he hecho en word pero me imagino que debe ser igual

objExcel.ActiveSheet.Range("A9", objExcel.ActiveSheet.Cells(11, 12)).Locked = True
objExcel.ActiveWorkbook.ActiveSheet.Protect 125412254

y listo... :P

Lo que intento hacer es colocarle un password de apertura a mis documentos

probé el código que me pasaste pero no funciona :(

Gracias siguo esperando respuesta

Saludos.

hola , si lo que quieres es proteger tus documentos con una contraseña de apertura tanto para word como para excel. Es muy sencillo

en word:
cuando vayas a guardar el documento, le das archivo, luego guardar y en la ventana de dialogo se encuentra el menu herramientas, seleccionas opciones de seguridad, y allí puedes escribir una cotraseña de apertura le das aceptar y ya tienes creado la contraseña. al abrir el documento word te va a pedir la contraseña

Nota: para documentos excel es igual