Como evitar que el excel se cierre

07/06/2007 - 10:10 por IRC | Informe spam
Tengo varios usuarios que deben capturar información en una planilla, hice
unos validadores y una macro para revisar donde se equivocan pero quiero que
aunque les permita guardar los cambios no les deje cerrar el archivo de excel
hasta que corrijan el error, intente usar el auto_close y evitar que se
cierre con un exit sub pero no puedo..

Sub auto_close()

For i = 11 To 1000

'XYX es el resultado de una fórmula que verifica el error
If Worksheets("line").Cells(i, 42).Value = "XYX" Then

'Selecciona la fila donde está el error
Worksheets("line").Rows(i).Select

Exit For
Exit Sub
End If
Next i

End Sub

Preguntas similare

Leer las respuestas

#1 KL
07/06/2007 - 12:46 | Informe spam
Hola IRC,

"IRC" wrote in message news:
Tengo varios usuarios que deben capturar información en una planilla, hice
unos validadores y una macro para revisar donde se equivocan pero quiero que
aunque les permita guardar los cambios no les deje cerrar el archivo de excel
hasta que corrijan el error, intente usar el auto_close y evitar que se
cierre con un exit sub pero no puedo..



En el modulo ThisWorkbook (EsteLibro) prueba poner el codigo que te pongo a continuacion.

Saludos,
KL

Private Sub Workbook_BeforeClose(Cancel As Boolean)
Dim i As Long
For i = 11 To 1000
'XYX es el resultado de una fórmula que verifica el error
If Worksheets("line").Cells(i, 42).Value = "XYX" Then
'Selecciona la fila donde está el error
Worksheets("line").Rows(i).Select
Cancel = True
Exit Sub
End If
Next i
End Sub
Respuesta Responder a este mensaje
#2 Héctor Miguel
07/06/2007 - 18:25 | Informe spam
hola, 'anonimo/a' !

[pregunta]: hiciste alguna prueba con la sugerencia a tu consulta anterior ?
algo que no se entienda ?

saludos,
hector.

__ la consulta original __
Tengo varios usuarios que deben capturar informacion en una planilla, hice
unos validadores y una macro para revisar donde se equivocan pero quiero que
aunque les permita guardar los cambios no les deje cerrar el archivo de excel
hasta que corrijan el error, intente usar el auto_close y evitar que se
cierre con un exit sub pero no puedo..

Sub auto_close()

For i = 11 To 1000

'XYX es el resultado de una formula que verifica el error
If Worksheets("line").Cells(i, 42).Value = "XYX" Then

'Selecciona la fila donde esta el error
Worksheets("line").Rows(i).Select

Exit For
Exit Sub
End If
Next i

End Sub
email Siga el debate Respuesta Responder a este mensaje
Ads by Google
Help Hacer una preguntaRespuesta Tengo una respuesta
Search Busqueda sugerida