¿Puedo usar una contraseña para varios archivos Excel?

Hola Luis,

Que tal algo asi:

Sub test()
Dim x As Variant
Dim Clave As String
x = Application.GetOpenFilename _
("Archivos Excel (*.xls), *.xls", , , , True)
On Error GoTo ErrHandler
If Len(x(1)) > 0 Then
Clave = InputBox("Introduce la contarsena")
For i = LBound(x) To UBound(x)
Workbooks.Open x(i), , , , Clave
Next i
End If
ErrHandler:
End Sub

Saludos,
KL


"Luis Reyes" <Luis wrote in message
news:

Quiero abrir varios archivos Excel que tienen una misma contrasena pero
escribiendo solamente una vez la contrasena.