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
 

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

Preguntas similares