Formulas que se ven en Hoja Protegida al ejecutar macro

[Leonardo Briceño]

Hola Amigos de AE como están.

Tengo un inconveniente con una macro. La función de la macro es borrar las celdas que solo contienen datos manteniendo la formulas intactas, solicitando a través de un msgbox escoger el nombre de la columna A que desea borrar. La hoja está protegida (CLAVE ES: 123).

El inconveniente se presenta que al llamar la macro con el botón, y suponiendo que la celda activa está en una columna gris de formula, se desprotege la hoja permitiendo ver las formulas. Claro, luego se selecciona la celda de la columna A -aunque también se ejecuta en cualquier columna de la fila que deseo borrar- y sigue el curso de la macro que es borrar la información.

Hay alguna forma de evitar esa situación, que no se vean las fórmulas al llamar la macro??

Gracias

 

EJEMPLO DE FORMULAS VISIBLES.xlsm

[AlexanderS]

@Leonardo Briceño, por lo que veo no estas volviendo a proteger la hoja luego de eliminar, solo la proteges si se cancela.

Así debería funcionar: 

Sub BorrarCeldas(): On Error GoTo ExitSub
ActiveSheet.Unprotect Password:="123"
Set CeldaDestino = Application.InputBox("SELECCIONE LA CELDA CON EL NOMBRE QUE DESEA ELIMINAR", _
                  "BORRAR - SELECCIONE CELDA", Type:=8)
                  Application.ScreenUpdating = False
                  CeldaDestino.Worksheet.Select
                  CeldaDestino.Select
If MsgBox("DESEA ELIMINAR EL NOMBRE " & ActiveCell.Value, vbQuestion + vbYesNo) = vbYes Then
   If MsgBox("¿ESTÁ SEGURO?", vbQuestion + vbYesNo) = vbYes Then
      Range("A" & ActiveCell.Row).Resize(1, 2).ClearContents
      Range("D" & ActiveCell.Row).Resize(1).ClearContents
      Range("F" & ActiveCell.Row).Resize(1).ClearContents
      Range("J" & ActiveCell.Row).Resize(1).ClearContents
      MsgBox ("NOMBRE ELIMINADO SATISFACTORIAMENTE")
      ActiveSheet.Protect ("123") '<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<
      Exit Sub
      End If
End If
ExitSub:
   MsgBox "¡OPERACIÓN CANCELADA!", vbExclamation
ActiveSheet.Protect ("123")
End Sub

Saludos

[Leonardo Briceño]

Pura vida @AlexanderS Gracias por tu respuesta.

efectivamente, así es el código como lo mencionas, solo que accidentalmente borré la linea de protección después de eliminar. Anexo con la corrección del código. CLAVE 123

Ahora se puede visualizar lo que planteo. al ejecutar la macro, (deje la celda activa en H2) se puede ver la formula porque se quita la protección del libro en el código, luego se continua seleccionando la fila a borrar y se protege nuevamente.

Ese momento (cuando se desprotege la hoja y quedan visibles las formulas) es lo que me gustaría tratar de corregir de ser posible. Se podrá lograr?

EJEMPLO DE FORMULAS VISIBLES.xlsm

[AlexanderS]

@Leonardo Briceño Pura vida!!

A mi no me pasa lo que indicas, pero de igual forma puedes probar solo des protegiendo la hoja cuando confirmas la eliminación de esta forma no deberías ver las formulas cuando se muestren los cuadros de mensaje.

 

Sub BorrarCeldas(): On Error GoTo ExitSub
Set CeldaDestino = Application.InputBox("SELECCIONE LA CELDA CON EL NOMBRE QUE DESEA ELIMINAR", _
                  "BORRAR - SELECCIONE CELDA", Type:=8)
                  Application.ScreenUpdating = False
                  CeldaDestino.Worksheet.Select
                  CeldaDestino.Select
If MsgBox("DESEA ELIMINAR EL NOMBRE " & ActiveCell.Value, vbQuestion + vbYesNo) = vbYes Then
   If MsgBox("¿ESTÁ SEGURO?", vbQuestion + vbYesNo) = vbYes Then
   ActiveSheet.Unprotect Password:="123"
      Range("A" & ActiveCell.Row).Resize(1, 2).ClearContents
      Range("D" & ActiveCell.Row).Resize(1).ClearContents
      Range("F" & ActiveCell.Row).Resize(1).ClearContents
      Range("J" & ActiveCell.Row).Resize(1).ClearContents
      MsgBox ("NOMBRE ELIMINADO SATISFACTORIAMENTE")
      ActiveSheet.Protect ("123")
      Exit Sub
      End If
End If
ExitSub:
   MsgBox "¡OPERACIÓN CANCELADA!", vbExclamation
ActiveSheet.Protect ("123")
End Sub

Saludos

[Leonardo Briceño]

Genial @AlexanderSPura vida!! Ya no se ven las fórmulas. Muchas gracias!!?