En el evento Open del libro podes incluir unas instrucciones para que realice el control. Por supuesto que solo se controlará si el libro se abre habilitando las macros.
Entrá al Editor, seleccioná con doble clic el objeto ThisWorkbook y allí escribí esto:
Private Sub Workbook_Open()
'x Elsamatilde
'controla la cantidad de aperturas. Máx permitido = 5
'el dato estará guardado en una celda auxiliar
If Sheets("Hoja1").Range("Z1") = 5 Then
'opcional: mostrar un mensaje y cerrarlo sin guardar cambios
MsgBox "LO siento, ha llegado al máximo de aperturas."
ActiveWorkbook.Close False
Application.Quit
End If
'si se abre, se incrementa el contador de la celda auxiliar
Sheets("Hoja1").Range("Z1") = Sheets("Hoja1").Range("Z1") + 1
'se guarda
ActiveWorkbook.Save
End Sub
Ajusta el nombre de la hoja y celda donde guardarás el contador y también el nro de aperturas permitidas.
me tira el error numero, y otro fuera de rango - Miguel Enrique Tello Leyva
@Miguel Enrique Tello Leyva No se pueden responder consultas en este espacio de 'comentarios'. Además siempre fijate la fecha de la consulta, quizás una respuesta válida en esa fecha ya no lo sea para las nuevas versiones. Deja tu consulta en el tablón con el link a esta consulta y marca en qué línea te tira los errores. Sdos! - Elsa Matilde