Desproteger libro

[josedd]

Saludos amigos.

Como hago para cuando la fecha de Moleche_2_10_2015.xlsx Que cuando cambie a otra fecha como esta Moleche_4_10_2015.xlsx Funcione el codigo para desbloquear.

Sub desbloquear()


Sub desbloquear()


' Macro6 Macro

' desbloquear

'


'

   ChDir "C:\U\PROGRAMA\VARIOS\Inventario"

    Workbooks.Open Filename:= _

        "C:\U\PROGRAMA\VARIOS\Inventario\Moleche_5_10_2015.xlsx", UpdateLinks:=0

    ActiveSheet.Unprotect

    ActiveWorkbook.Save

    ActiveWorkbook.Close

End Sub

End Sub[/CODE]

[Antoni]

If ActiveWorkbook.Name = "Moleche_4_10_2015.xlsx" Then

   ActiveSheet.Unprotect

   ActiveWorkbook.Save

   ActiveWorkbook.Close

End If

[/CODE]

[josedd]

Pero es que todo los dias se va a generar uno diferente si me doy a entender