conocida la clave, como abrir documentos

Hola,
Pinchando en propiedades de uno de ellos obtego que uso el Word 97-2003 y lo
instale desde el Windows UE7.

Al finalizar de redactar los documentos accedo a Herramientas - Opciones -
Seguridad y ahi le introduzco la contraseña de apertura y algunas veces
tambien la contraseña de escritura.

La clave en cuestion tiene 13 caracteres, por si ello incide en la
dificultad de crear el " codigo VBA" que me comentas y de la que intetare
buscar algo, pues no tengo ni idea.

Gracias por tu atencion y por darme el pequeño aliciente de que al menos no
es imposible del todo.

Un saludo.--.

"Monica May" escribió en el mensaje
news:%

hola,

Los documentos son mios y todos creados con una misma clave, la misma
para todos.
...seria abrirlas de una en una y quitarles la clave para en
adelante trabajar mas agilmente con todas ellas.

-Como aplicaste la clave a cada documento ??? y la version de Word de los
documentos ??

dependiendo de como aplicaste la clave... se puede realizar un codigo VBA
que abra cada documento, te quite la clave y los guarde

pero... dependera de como aplicaste esas claves...!

Comentanos...!

Saludos
Monica

www.fermu.com
www.teladearana.es

hola,

... propiedades de uno de ellos obtego ..Word 97-2003 ...
instale desde el Windows UE7.
... accedo a Herramientas - Opciones - Seguridad y ahi le introduzco la
contrasena de apertura y algunas veces tambien la contrasena de escritura.
La clave ... tiene 13 caracteres, por si ello incide en la dificultad de
crear el " codigo VBA" que me comentas y de la que intetare

Okeis bien puedes probar el siguiente procedimiento >>

1.- abre un archivo de word que no este en la carpeta junto con los
documentos a abrir (puedes abrir un documento nuevo)
2.- Desde la interfaz de Word presiona las teclas [ Alt+F11] abriras el
editor de VBA de Word.
3.- Ves al menu Insertar >> Modulo
4.- Se abrira un escenario para que puedas ahi escribir el codigo.
4.- copia y pega el siguiente codigo en dicho escenario >>

'[]

Sub desproteger_archivos_Word()
Dim ruta As String
Dim docum As String
ruta = "C:\Users\usuario\escritorio\midemo\"
docum = Dir(ruta & "*.doc")
Do While docum <> ""
Documents.Open FileName:=ruta & docum, _
ConfirmConversions:=False, _
ReadOnly:=False, _
PasswordDocument:="123456789123456", _
Revert:=False, _
WritePasswordDocument:="123456789123456", _
Format:=wdOpenFormatAuto
With ActiveDocument
.Save
.Close
End With
docum = Dir()
Loop
End Sub

'[]

5.- Cambia la siguiente linea del procedimiento anterior >>

ruta = "C:\Users\usuario\escritorio\midemo\"

Por tu ruta donde esten los documentos [ Cuidado con la barra inclinada
final que no falte ]


ruta= "C:\tu ruta de documentos a abrir\"

6.- Cambia las calves en el procedimiento anterior de >> "123456789123456" a
las que tengas tu puestas.
7.- Una vez termines procura que al copiar desde aqui ...no falten comillas
ni guiones bajos que pueden producirse por los saltos del mensaje ...

8.- Luego ya ejecutas el codigo desde el menu Ejecutar > ejectuar macro o
bien presionando la tecla [ F5 ]

Y... si te da algun error o cualquier otro problema... Comentanos!


Saludos
Monica

www.fermu.com
www.teladearana.es

Anotacion :(

appsss que me acabo de dar cuenta ahora repasando el foro de que me faltan
anadir al codigo dos propiedades :P ... perdon :D !


'[]
.Password = ""
.WritePassword = ""
'[]

-quedando asi >>



'[]

Sub desproteger_archivos_Word()
Dim ruta As String
Dim docum As String
ruta = "C:\Users\usuario\escritorio\midemo\"
docum = Dir(ruta & "*.doc")
Do While docum <> ""
Documents.Open FileName:=ruta & docum, _
ConfirmConversions:=False, _
ReadOnly:=False, _
PasswordDocument:="123456789123456", _
Revert:=False, _
WritePasswordDocument:="123456789123456", _
Format:=wdOpenFormatAuto
With ActiveDocument
.Password = ""
.WritePassword = ""
.Save
.Close
End With
docum = Dir()
Loop
End Sub

Con esas propiedades limpias las claves dejandolas sin ellas :) !!

Comentanos!

Saludos
Monica

Me pillo la gripe , mientras andabamos en estas labores..

Muchas, muchisimas gracias, funciono de maravilla.

Me dejo varios Doc sin abrir y buscando relacciones entre ellas , estas
parece que son de que solo estaban cerrados con clave para apertura y no
tenian clave para escritura.

Lo dejo aqui dicho por si alguien quiere echar mano de tu macro y solo
tienen activas una de las posibilidades que da la seguridad de word.

Eternamente agradecido, un beso.--.


"Monica May" escribió en el mensaje
news:

Anotacion :(

appsss que me acabo de dar cuenta ahora repasando el foro de que me faltan
anadir al codigo dos propiedades :P ... perdon :D !


'[]
.Password = ""
.WritePassword = ""
'[]

-quedando asi >>



'[]

Sub desproteger_archivos_Word()
Dim ruta As String
Dim docum As String
ruta = "C:\Users\usuario\escritorio\midemo\"
docum = Dir(ruta & "*.doc")
Do While docum <> ""
Documents.Open FileName:=ruta & docum, _
ConfirmConversions:=False, _
ReadOnly:=False, _
PasswordDocument:="123456789123456", _
Revert:=False, _
WritePasswordDocument:="123456789123456", _
Format:=wdOpenFormatAuto
With ActiveDocument
.Password = ""
.WritePassword = ""
.Save
.Close
End With
docum = Dir()
Loop
End Sub

Con esas propiedades limpias las claves dejandolas sin ellas :) !!

Comentanos!

Saludos
Monica

Vayas ahora son fechas muy propensas para pillar los resfriados y gripes
:(


muchas gracias a ti :) :) !!

Saludos
Monica

Me pillo la gripe , mientras andabamos en estas labores..
Muchas, muchisimas gracias, funciono de maravilla.
Me dejo varios Doc sin abrir y buscando relacciones entre ellas , estas
parece que son de que solo estaban cerrados con clave para apertura y no
tenian clave para escritura.
Lo dejo aqui dicho por si alguien quiere echar mano de tu macro y solo
tienen activas una de las posibilidades que da la seguridad de word.