Macro para que te impida introducir datos si esta en solo lectura

A todos/as, tengo una formulario para la introducción de datos que los envía hacia otro libro. Hay veces que ese libro esta abierto durante unos segundos y si en ese momento introducen la datos sale un mensaje para guardar una copiar del archivo . (me interesan que todos los datos estén en ese libro y si guardo la copia solo me aparecerá ese dato en la copia)

Como podría hacer para que cuando ese libro llamado "datos" este en modo "solo lectura" me impida introducir los datos, me avise y que cuando detecte que ya no esta en modo "solo lectura" los envíe ejecutando la macro que ya tengo.

La macro que tengo es bastante extensa por eso no la copio. Si alguien me puede ayudar con algún ejemplo ya lo adaptaría a mi macro.

2 respuestas

Respuesta
1

Esta macro restringe la entrada de datos en la hoja a una región especifica en este caso A1, el usuario no podrá introducir datos más allá de esa celda e incluso se restingre el movimiento del mouse y las flechas a esa celda, los datos solo pueden ser introducidos a través de un formulario y macros, la primera macro la pones en el evento Private Sub Workbook_Open() y la otra en el evento before_close o en en buttoncommand si quieres retirar el bloqueo.

Sub bloquea()
Worksheets("facturas").ScrollArea = "a1"
Range("f1") = "hola"
End Sub
'
'
Sub desbloquea()
Worksheets("facturas").ScrollArea = ""
Range("f1") = "hola"
End Sub
Respuesta

Fíjate si esto funciona

If (GetAttr(ActiveWorkbook.FullName) And vbReadOnly) = vbReadOnly Then
Msgbox("No se pueden ingresar datos en estado solo lectura")

Exit sub
End If

Visita https://programarexcel.com descarga cientos de ejemplos de macros gratis

suscribe https://youtube.com/programarexcel.com

Prueba también con esta macro

 If activeworkbook.readonly then
tu codigo
End If

Visita https://programarexcel.com descarga cientos de ejemplos de macros gratis

suscribe https://youtube.com/programarexcel.com

Añade tu respuesta

Haz clic para o

Más respuestas relacionadas