Jump to content

DUDA SOBRE HABILITAR MACROS


Recommended Posts

Hola compañeros,

Tengo un módulo de login que me mantiene ocultas las hojas del libro, siempre y cuando el usuario no se haya identificado previamente.

El caso es que cuando abro el libro en otro equipo (evento Workbook_Open > Abrir FormularioDeAcceso), me aparece el típico mensaje de "Habilitar las macros".

El problema es que YO NO QUIERO QUE EL USUARIO PUEDA VISUALIZAR EL CONTENIDO DE ESAS HOJAS SI NO ESTÁ LOGUEADO.

Y claro... Simplemente, con cerrar el mensaje de habilitar las macros y un click derecho "Mostrar hojas" es suficiente para visualizar el contenido de las hojas, sin necesidad de tener que loguearse.

Por eso mi pregunta es: ¿Sabéis si existe alguna manera (macro o lo que sea) tal que si un usuario no ha habilitado previamente las macros, entonces cierre el libro (Application.Quit sin guardar)?

Gracias.

Edited by paikerr
Link to comment
Share on other sites

  • Añade una hoja, por ejemplo Aviso.
  • Pon en esa hoja una leyenda con algo parecido a esto "DEBE HABILITAR LAS MACROS PARA ACCEDER"
  • Cuando guardes el archivo, en el procedimiento Workbook_BeforeSave, oculta todas las hojas como VeryHidden y visualiza la hoja Aviso.
  • Una vez logeado, oculta la hoja Aviso y visualiza las demás.

Por supuesto, el proyecto VBA y la hoja Aviso deben estar protegidos.

Link to comment
Share on other sites

Efectivamente, @Antoni. Esa es lo solución que he logrado encontrar.

Al parecer (y según he podido leer por Internet), lo que comentas se trata de un pequeño truco muy utilizado entre la comunidad de programadores de VBA.

Por mi parte, desconocía por completo de la propiedad "xlVeryHidden".

Este es mi código (por si a alguien le interesa):

Private Sub Workbook_BeforeClose(Cancel As Boolean)

Application.ScreenUpdating = False

   ' Limpiamos los errores anteriores (por si acaso)...
   Err.Clear

   ' Tratamos los errores de la aplicación ofimática...
   On Error GoTo error

   ' Declaramos las variables de ámbito local...
   Dim libroActual As Workbook, hojaActual As Worksheet

   ' Recorremos todos los libros abiertos...
   For Each libroActual In Workbooks
      ' Recorremos todas las hojas del libro abierto...
      For Each hojaActual In libroActual.Worksheets
         With hojaActual
            ' Si la hoja actual es el menu de inicio, entonces...
            If .Name = "MENU" Then
               ' Mostramos la hoja...
               .Visible = xlSheetVisible
            ' En caso contrario...
            Else
               ' Ocultamos la hoja...
               .Visible = xlVeryHidden
            End If
         End With
      Next hojaActual
   Next libroActual

salir:
   ' Y salimos del procedimiento...
   Exit Sub
error:
   ' Mostramos por pantalla el tipo de error y la descripción del mismo...
   MsgBox Prompt:="Upps, parece que hubo un error... Por favor, póngase en contacto " & _
                  "directamente con su programador informático." & vbCr & vbCr & _
                  "El error producido es [" & Err.Number & "] - " & Err.Description & _
                  " en el evento Workbook_BeforeClose del libro " & ActiveWorkbook.Name & ".", _
          Buttons:=vbCritical, _
          Title:="                                               AVISO IMPORTANTE"
   ' Sacamos el error fuera de la pila de errores...
   Resume salir

End Sub

Un saludo.

Link to comment
Share on other sites

Hola @paikerr

Tu pregunta me pareció muy interesante y dije: "Ahora podré ayudarlo" pero luego veo la magnífica respuesta de @Antoni y no queda más que aclarar, sus explicaciones son óptimas.

Solo aclarar un par de términos...

xlVeryHidden no es una propiedad, la propiedad se llama Visible y xlVeryHidden es el valor que le asignas a la propiedad Visible.

En el fondo la propiedad Visible puede tener tres valores: 0 (Invisible), -1 (Visible) y 2 ("Muy" invisible) pero a veces recordar qué significa cada valor es algo difícil (de recordar y luego de leer) entonces para ello tienes las CONSTANTES. Las constantes de Excel empiezan con "xl" y las de VBA empiezan por "vb"

Link to comment
Share on other sites

  • Crear macros Excel

  • Posts

    • Buenos días a todos; -Necesito de vuestra ayuda. Para mejor comprensión adjunto enlace de un video y comentario. Saludos y gracias de antemano     Adjunto también la macro. MEvento.zip
    • No debe importarnos que el usuario que abrió el tema no vuelva a consultarlo porque nuestras respuestas le llegaron demasiado tarde... Lo importante es poder ayudar a otros usuarios que tengan un problema similar en el futuro...
    • Es una opción original e ingeniosa pero creo que difícil de comprender para un usuario que sepa fórmulas sencillas... Adjunto otra opción con fórmulas desbordadas que puede que sea más fácil de comprender para un usuario que esté aprendiendo a formular, pues hay 3 pasos separados: Columna D : A cada valor se le añade 1> a la izquierda, se sustituye el primer + por 2> y el segundo + por 3>. De paso se quitan los signos , y . para convertir los valores en números. Todo ello con la función SUSTITUIR. ="1>"&SUSTITUIR(SUSTITUIR(SUSTITUIR(SUSTITUIR($C2;",";"");".";"");"+";"2>";1);"+";"3>";1)   Columna E (desbordada hacia la derecha en las columnas F y G): Extrae los valores y letras de 1>, 2> y 3>. Todo ello con una versión matricial de la función EXTRAE, con la ayuda de la función ENCONTRAR. =SI.ERROR(SUSTITUIR(EXTRAE($D2;ENCONTRAR({"1>"\"2>"\"3>"};$D2);SI.ERROR(ENCONTRAR({"2>"\"3>"\"0>"};$D2);100)-ENCONTRAR({"1>"\"2>"\"3>"};$D2));{"1>"\"2>"\"3>"};"");"")   Sumas de C, T y V: Suma las cantidades consumidas de cada letra con la función SUMAPRODUCTO. Salu2, Pedro Wave Sumar Letras PW1.xlsx
    • Hola,  Estoy intentando vía InputBox rellenar con el dato introducido una columna. Pero no consigo que lo haga desde la primera fila libre de A. Sería pegar el dato a partir de la primera celda libre de la columna A (está en verde), en función del Nº de filas de la columna B No consigo modificarla y se pega desde el comienzo.  Podéis echarle un vistazo? La macro está en el ejemplo. ¡Muchísimas gracias!      ej_InputBox.xlsm
    • La mía. Sub Mostrar() Application.ScreenUpdating = False Range("B:CM").EntireColumn.Hidden = False End Sub '-- Sub Ocultar() Dim Filtro As Range Application.ScreenUpdating = False Mostrar For y = 2 To Columns("CM").Column If WorksheetFunction.CountIf(Cells(8, y).Resize _ (Range("A" & Rows.Count).End(xlUp).Row, 1), "<>" & Empty) = 0 Then Columns(y).Hidden = True End If Next End Sub  
  • Recently Browsing

    No registered users viewing this page.

×
×
  • Create New...

Important Information

Privacy Policy