Visual Basic para Aplicaciones - Macro para abrir libro de excel desde un botón de comando

'//By JuanC - Feb. 2014

Sub test()

Dim wbk As Excel.Workbook, ws As Excel.Worksheet

Dim sPath$, sName$, sXL$

Application.ScreenUpdating = False

sPath = ActiveWorkbook.Path

sName = ActiveWorkbook.Name

sXL = VBA.Dir(sPath & "\*.xls")

Do While sXL <> ""

   If sXL <> sName Then

      Set wbk = Workbooks.Open(Filename:=sPath & "\" & sXL)

      'For Each ws In wbk.Sheets

      '    ws.Unprotect "password"

      'Next

      wbk.Unprotect "password"

      wbk.Save

      wbk.Close

   End If

   sXL = Dir

Loop

Application.ScreenUpdating = True

Set wbk = Nothing

Set ws = Nothing

End Sub