Macros revertibles

Hola experto, buen día, como podría diseñar una macro de modo tal que al ejecutarla provoque una acción y al volverla a ejecutar provoque la acción opuesta.
Por ejemplo, ejecuto, inmoviliza ventana en excel, vualvo a ejecutar moviliza ventana en excel.
Gracias

2 Respuestas

Respuesta
1
Ok, aquí te va un ejemplo de una macro que protege y desprotege una hoja.
'************Comienza aquí*******************
Sub inmoviliza()
'1=desprotegida
'2=desprotegida
' inmoviliza Macro
'
'Hoja en donde se ejecutará la macro
   Sheets("Hoja1").Select
   'rango poco probable que sea utilizado.
   If Range("IV65000").Value = 1 Or Range("IV65000").Value = "" Then
       Range("IV65000").Value = 2
      ActiveSheet.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True
     MsgBox "La Hoja está Protegida"
   ElseIf Range("IV65000").Value = 2 Then
        ActiveSheet.Unprotect
        Range("IV65000").Value = 1
         MsgBox "La Hoja está Desprotegida"
   End If
'
End Sub
'************Termina aquí*********************
'
Nota:
Esta macro la asigne a un botón.
Atenta a tus dudas.
Muy astuto experto... sobre todo cambiando el comando de alternar por una opción en linea que hace cambiar el valor de una celda según la acción anterior-
Graciasssssssssssssss
Respuesta
1
Puedes usar el control "botón de alternar" (togglrButton), este control tiene dos posiciones presionado y no presionado.
Acá un ejemplo de lo que hace este control, ocultando columnas.
Private Sub ToggleButton1_Click()
If ToggleButton1.Value = True Then
    Columns("D:J").Hidden = False
End If
If ToggleButton1.Value = False Then
    Columns("D:J").Hidden = True
End If
End Sub
Analízalo y si tienes alguna duda no dudes en preguntar, suerte.
La copie tal cual al visual y me arroja un cartel de error de compilación diciendo que esperaba un end sub. Me voy a fijar a ver si puedo explorar el error.
Estoy muy agradecido por tu ayuda.
emi
QUE raro, primero inserta el botón de alternar en la hoja, en modo diseño dale dobleclick he inserta el código, no deberías de tener problema, cualquier cosa avisame.
Si solucionaste el problema, ¿puedes por favor dar por cerrada la pregunta?.

Añade tu respuesta

Haz clic para o

Más respuestas relacionadas

Como habilitar o deshabilitar un botón con macros.

Espero puedan ayudarme, no se mucho de macros, estoy elaborando en una misma plantilla de excel, ya sea una factura o un recibo, Tengo un botón que al presionarlo me muestra el texto del tipo de documento a generar "factura o Recibo" y me oculta...
1 respuesta

¿Cómo puedo ocultar COLUMNAS con macros en excel?

Tengo valores desde A1 a K18, son números, en A20 a K20 tengo una suma de todos los números, pero en algunos tengo valor CERO, lo que necesito es que si un valor de los que tengo en A20:K20 es igual a CERO oculte toda esa columna, por ejemplo: si en...
1 respuesta

Ocultar Filas con Macro

Este es el asunto; Tengo una hoja con muchos valores desde la columna B hasta la AA; en la columna B tengo una lista de valores desde la fila 11 hasta la 450, dichos valores provienen de otra hoja, es decir, son puras fórmulas "=hoja2!b11" y así por...
1 respuesta

Ejecutar macro si cambia valor en lista!

Os escribo porque quisiera crear una macro que, cuando cambiara el valor en una lista por medio de validación de datos, me ejecutase otra macro. Lo que tengo es lo siguiente: Private Sub Worksheet_Change(ByVal Target As Range) If Target.Address =...
1 respuesta

Activar y/o desactivar "bloq mayus" con una macro

Necesito activar y/o desactivar la tecla "bloq mayus" con una macro en excel... ¿Me pueden ayudar?.
1 respuesta

Macro borrar datos de hoja sin borrar formato

Tengo una macro con la que me ayudaron, trabaja muy bien la cual busca datos en un libro y los anota en una hoja llamada buscador, pero a esta hoja no puedo darle formato ya que se elimina al usarlo, es decir por ejemplo si le pongo un fondo a la...
1 respuesta

Pegar del UserForm dos veces un número en la misma hoja seleccionada... Para Dante Amor

Me proporcionaste una macro tal como te la pedí, quedó perfecta, pero también te comenté que yo quería hacer la siguiente parte sobre esta misma, pero me falló, ahora apelo a tu buena voluntad de apoyarme con esta partecita… Una vez hecha la...
1 respuesta

Destacar OptionButton al cargar formulario

Tengo un formulario con tres OptionButton y los tengo asignado a una misma celda. El valor al hacer click son 1,2 y 3 respectivamente. La idea es que al cargar el formulario me pueda mostrar activo el OptionButton que había asignado anteriormente, es...
1 respuesta

Macro que se ejecuta al cambio de una celda

Voy a intentar explicar mi problema: Gracias al foro logre crear una macro que se ejecuta al cambiar una celda con un valor especifico, esas me funciono de maravilla, luego necesite uan que se ejecute cuando otra celda sufra cualquier tipo de cambio,...
1 respuesta

No ingresar datos repetidos en una hoja

Tengo un form para ingresar datos en la hoja1 el caso es que requiero que cuando el registro de la columna a1 que es un código se repita me coloque un msgbox("dato ya existe")
2 respuestas