|
Q+ Jefrey,
En la Celda B1 coloca la fecha límite y luego, coloca este código en el nivel ThisWorkBook the VB:
Sub workbook_open()
' FechaLimite Macro
' Macro grabada el 08/09/2008 por Richard Chacón
Dim MiFecha
MiFecha = #2/25/2008#
If Range("B1").Value >= MiFecha Then
ActiveSheet.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True
Else: ActiveSheet.Protect DrawingObjects:=False, Contents:=False, Scenarios:=False
End If
End Sub
Saludos,
RCh.
|