Excel - urgente ayudenme con un macro

hola a todos hojala alguien me pueda ayudar es que este macro no me queda es para que se bloque una base de datos y solo deje que se escriba en ella los 3 primeros dias de cada mes y despues del dia 4 al 31 de cada mes permanesca bloqueada la base pero no se ejecuta solo algien me podria ayudar este el codigo
gracas

Sub auto_open()
Sheets("Revision").Select
If Day(Date) = 1 Or Day(Date) = 2 Or Day(Date) = 3 Then
ActiveSheet.Unprotect "clave"
MsgBox "Archivo desprotegido"
Exit Sub
End If
MsgBox "El archivo esta protegido"
End Sub

Sub auto_close()
Sheets("Revision").Select
If Day(Date) = 4 Or Day(Date) <= 31 Then
ActiveSheet.Protect "clave"
End If
End Sub

Asi a simple vista parece esto:

If Day(Date) = 4 Or Day(Date) <= 31 Then

Deberia ser:

If Day(Date) >= 4 Or Day(Date) <= 31 Then

Abraham

Cambia If Day(Date) = 4 Or Day(Date) <= 31 Then

por If Day(Date)> = 4 Then

Lo que te propone Abraham está equivocado, por que si dejas or <=31 incluye también 1,2 y 3 y te bloquea todo..

O cambia el OR por AND o etc etc.... tantas formas de hacerlo!!!!

Contenta???

Abraham

muchas gracias por la ayuda esque si no me reprueban muchas gracias

otra pregunta como ago que el macro se ejecute porque ya le hice las modificaciones pero no se ejecuta solo la hoja sigue desprotejida hasta que yo ejecuto en macro y necesito que se ejecuto solo

Hola lady,

yo colocaria
If Day(Date) <= 3 Then
en lugar de
If Day(Date) = 1 Or Day(Date) = 2 Or Day(Date) = 3 Then
y colocaria
If Day(Date) >= 4 Then
en lugar de
If Day(Date) = 4 Or Day(Date) <= 31 Then

Ahora con respecto a lo que dices que no se te ejecuta la macro, puedes utilizar la función Workbook_Open() que esta en ThisWorkbook y/o puedes utilizar tambien Worksheet_Activate() para controlar la protección de la hoja; debes ver qué casos son los que se presentan y que no deben permitir que la hoja se desproteja para que los valides también

Espero te sirvan mis sugerencias!!!

Saludos

muchas gracias por tu ayuda si me sirvio mucho