Macro para bloquear acceso según día de la semana

Entrá al Editor, seleccioná con doble clic el objeto ThisWorkBook del panel a tu izquierda y allí copiá esto, que impedirá que se abra el libro los días lunes según la fecha del sistema.

Private Sub Workbook_Open()
'x Elsamatilde
Dim quedia As Integer
quedia = Application.WorksheetFunction.Weekday(Date)
'si no es lunes finaliza el control
If quedia <> 2 Then Exit Sub
'si es lunes cierra el libro y la aplicación
ActiveWorkbook.Close False
Application.Quit
End Sub

Según la configuración de tu equipo será el nro de día para lunes. Lo predeterminado es el calendar cuyo primer día es domingo ..... cualquier diferencia ajusta la línea que dice:

if quedia <> 2 Then Exit Sub

Sdos y no olvides finalizar la consulta.