AYUDA URGENTE CON PROBLEMA

01/06/2007 - 21:12 por LUIS DANNY SALAS | Informe spam
Hola gracias por la atencion , tengo la siguiente macro:

Private Sub ACTUALIZAR()
Application.ScreenUpdating = False
ActiveWorkbook.Unprotect "VKF76KL"
Sheets("MATRICULA").Visible = True
Sheets("MATRICULA").Select
ActiveSheet.Unprotect "DFR56HG"
Windows("ACTUALIZAR.xls").Activate
Sheets("MATRICULA").Visible = True
Sheets("MATRICULA").Select
Range("A2:Z5000").Select
Selection.Copy
ThisWorkbook.Activate
Range("A2").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone,
SkipBlanks _
:=False, Transpose:=False
Range("B2").Select
ActiveWindow.ScrollRow = 5006
Application.CutCopyMode = False
ActiveSheet.Protect "DFR56HG", DrawingObjects:=True, Contents:=True,
Scenarios:=True
ActiveSheet.EnableSelection = xlNoSelection
Range("D5029").Select
Sheets("INDICE").Select
Windows("ACTUALIZAR.xls").Activate
Range("B2").Select
Sheets("ACTUALIZAR").Visible = True
Sheets("ACTUALIZAR").Select
Sheets("MATRICULA").Select
ActiveWindow.SelectedSheets.Visible = False
ThisWorkbook.Activate
Sheets("MATRICULA").Visible = False
ActiveWorkbook.Protect "VKF76KL"
Sheets("PERSONALIZAR").Select
MsgBox "ACTUALIZACION REALIZADA CON EXITO!"
End Sub


Mi problema es que ocupa que este abierto un libro que se llama "actualizar"
que si no esta disponible al aplicar la macro produce un error
y deja la macro a "medio palo" es decir ejecuta las instrucciones hasta el
punto donde no encuentra el archivo "actualizar" y me deja el libro
desprotegido y la hoja matircula visible.
mi pregunta es : cual instruccion puedo agregarle para que en caso de que no
estar disponible y abierto el libro"actualizar" la macro no se ejecute
o se devuelva dejando las cosas como estaban, lo que mas me precisa es que
el libro no quede desprotegido.

Muchisimas gracias.

Preguntas similare

Leer las respuestas

#1 Arcano
01/06/2007 - 19:46 | Informe spam
On 1 jun, 15:12, "LUIS DANNY SALAS" wrote:
Hola gracias por la atencion , tengo la siguiente macro:

Private Sub ACTUALIZAR()
Application.ScreenUpdating = False
ActiveWorkbook.Unprotect "VKF76KL"
Sheets("MATRICULA").Visible = True
Sheets("MATRICULA").Select
ActiveSheet.Unprotect "DFR56HG"
Windows("ACTUALIZAR.xls").Activate
Sheets("MATRICULA").Visible = True
Sheets("MATRICULA").Select
Range("A2:Z5000").Select
Selection.Copy
ThisWorkbook.Activate
Range("A2").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone,
SkipBlanks _
:=False, Transpose:=False
Range("B2").Select
ActiveWindow.ScrollRow = 5006
Application.CutCopyMode = False
ActiveSheet.Protect "DFR56HG", DrawingObjects:=True, Contents:=True,
Scenarios:=True
ActiveSheet.EnableSelection = xlNoSelection
Range("D5029").Select
Sheets("INDICE").Select
Windows("ACTUALIZAR.xls").Activate
Range("B2").Select
Sheets("ACTUALIZAR").Visible = True
Sheets("ACTUALIZAR").Select
Sheets("MATRICULA").Select
ActiveWindow.SelectedSheets.Visible = False
ThisWorkbook.Activate
Sheets("MATRICULA").Visible = False
ActiveWorkbook.Protect "VKF76KL"
Sheets("PERSONALIZAR").Select
MsgBox "ACTUALIZACION REALIZADA CON EXITO!"
End Sub

Mi problema es que ocupa que este abierto un libro que se llama "actualizar"
que si no esta disponible al aplicar la macro produce un error
y deja la macro a "medio palo" es decir ejecuta las instrucciones hasta el
punto donde no encuentra el archivo "actualizar" y me deja el libro
desprotegido y la hoja matircula visible.
mi pregunta es : cual instruccion puedo agregarle para que en caso de que no
estar disponible y abierto el libro"actualizar" la macro no se ejecute
o se devuelva dejando las cosas como estaban, lo que mas me precisa es que
el libro no quede desprotegido.

Muchisimas gracias.



Cuando hay algun error puedes escribir el codigo:

Private Sub ACTUALIZAR()
On Error GoTo Errores

(esto va al principio en tu caso iria antes de
Application.ScreenUpdating = False)

(Luego al final del código escribes)

Errores:
ActiveSheet.Protect "DFR56HG"
ActiveWorkbook.Protect "VKF76KL"
MsgBox "ACTUALIZACION NO REALIZADA!"
End Sub()
'='acá agregas lo que quieres que haga la macro, es decir que si
encuentra un error al abrir el archivo, se saltará todas las lineas
hasta Errores:
email Siga el debate Respuesta Responder a este mensaje
Ads by Google
Help Hacer una preguntaRespuesta Tengo una respuesta
Search Busqueda sugerida