Saltar al contenido
Te enseño 7 de los trucos que me permitieron trabajar 2 horas menos al día >>>

Nesecito ayuda por favor urgente!!!!

JoseGutierrez

Recommended Posts

JoseGutierrez Novato

JoseGutierrez

publicado
publicado

Hola buenas noches a todos y gracias de ante mano a la ayuda que me puedan dar

tengo un libro en excel con macros de un sistema de ventas con ayuda de un amigo lo fui terminando

el tema es que tengo varios botones con macro que me llevan a siertas hojas explico con el codigo

Sub ARCHIVOS_IR()

Hoja3.Activate

End Sub

ese es el codigo de uno de los botones los otros sin similares bueno lo que nesecito es agregarle a este codigo uno que tenga contraseña para cuando hacen clic en ese boton le pida una contraseña porque son hojas que solo yo puedo ver y modificar si alguien sabe como hacerlo o si me pueden dar alguna ayuda con una buena y larga explicaicon de como se hace estare muy agradecido

muchas gracias expertos

Compaq Novato

Compaq

publicado
publicado

Mostrar hojas en Excel ingresando una contraseña

Excel nos permite poder asignar una contraseña para abrir archivos, tanto modificarlos como para usarlos en modo de sólo lectura.

Pero por alguna razón, tal vez por que no sea algo trascendente, no le podemos asignar contraseñas para entrar a las hojas que tenga un libro.

Para qué contraseñas en hojas

Tal vez tengas varios colaboradores a los que les desees enviar el mismo archivo, pero no deseas que sólo vean las hojas que les correponden a cada uno de ellos. Una solución es enviar archivos independientes a cada uno, pero otra puede ser enviar un sólo archivo con un índice de hojas y que cada persona de click en su hoja y el archivo le solicite una contraseña para poder verla.

Las hojas ocultas de todos modos se pueden ver en la opción Mostrar hoja

La respuesta es si y no. Normalmente usamos la opción Ocultar para esconder las hojas en un archivo, y para mostrarlos usamos Mostrar hoja que se encuentra en Inicio > Formato > Ocultar y mostrar > Mostrar hoja.

image_thumb21.png

La limitante con esta opción es, que a menos que protejas la estructura del libro, cualquiera podrá mostrar las hojas. Yo prefiero usar vba y asignar una propiedad a las hojas que me permita ocultarlas de tal manea que sólo con vba se puedan mostrar:

Sheets(“Hoja1″).Visible = xlVeryHidden

El ejemplo

El archivo adjunto contiene visible un hoja llamada Index, la cual tiene 5 botones que al darles click solicita una contraseña dependiendo de la hoja que se quiera visualizar. Y cuando se muestra la hoja deseada, la hoja Index se oculta. Dentro de cada hoja hay un botón para regresarnos al índice y volver a ocultar todas.

Contrasea-en-hojas_thumb.gif

Código vba

En un módulo normal ingresamos.

'Asignamos las variables públicas para usarlas en cada botón.

Public Valor As Integer

Public Hoja As String

En el evento Open ingresamos.


Private Sub Workbook_Open()

'Asignamos la propiedad xlVeryHidden para que las hojas no puedan

'mostrarse en el menú Mostrar hojas.

For i = 2 To 6

Sheets("Hoja" & i).Visible = xlVeryHidden

Next i

End Sub

El código de los botones para mostrar las hojas.


Private Sub CommandButton1_Click()

Hoja = "Hoja2"

Valor = 2

frmPassword.Show

End Sub

El código del formulario


'Validar contraseña y mostrar hoja

Private Sub CommandButton1_Click()

'Validamos el contenido de la variable Valor para saber

'qué hoja debemos mostrar.

If Valor = 2 And Me.txtPass = "Hoja2" Then

Hoja2.Visible = xlSheetVisible

Hoja1.Visible = xlSheetVeryHidden

Hoja2.Activate

Unload Me

ElseIf Valor = 3 And Me.txtPass = "Hoja3" Then

Hoja3.Visible = xlSheetVisible

Hoja1.Visible = xlSheetVeryHidden

Hoja3.Activate

Unload Me

ElseIf Valor = 4 And Me.txtPass = "Hoja4" Then

Hoja4.Visible = xlSheetVisible

Hoja1.Visible = xlSheetVeryHidden

Hoja4.Activate

Unload Me

ElseIf Valor = 5 And Me.txtPass = "Hoja5" Then

Hoja5.Visible = xlSheetVisible

Hoja1.Visible = xlSheetVeryHidden

Hoja5.Activate

Unload Me

ElseIf Valor = 6 And Me.txtPass = "Hoja6" Then

Hoja6.Visible = xlSheetVisible

Hoja1.Visible = xlSheetVeryHidden

Hoja6.Activate

Unload Me

Else

MsgBox "La contraseña es incorrecta. Por favor vuelve a escribirla", vbExclamation, "EXCELeINFO"

Me.txtPass.SetFocus

End If

End Sub

'

'Cerrar el formulario

Private Sub CommandButton2_Click()

Unload Me

End Sub

'

'Al activar el formulario

Private Sub UserForm_Activate()

lblHoja.Caption = "Contraseña para " & "'" & Hoja & "'"

Me.txtPass.PasswordChar = "*"

End Sub[/CODE]

[b]Elaborado por Sergio Alejandro Campos[/b]

Enlace de descarga

[b][i]https://skydrive.live.com/redir?resid=4509FEB32392C17C!2409[/i][/b]

  • 3 weeks later...

Archivado

Este tema está ahora archivado y está cerrado a más respuestas.

Ir al listado de temas

  • 109 ¿Te parecen útiles los tips de las funciones? (ver tema completo)

    1. 1. ¿Te parecen útiles los tips de las funciones?


      • Sí
      • No
      • Ni me he fijado en ellos

  • Ayúdanos a mejorar la comunidad

    • Mantenimiento de la comunidad
      Donaciones recibidas este mes: 0.00 EUR
      Objetivo: 130.00 EUR

  • Archivos

  • Estadísticas de descargas

    • Archivos
      188
    • Comentarios
      98
    • Revisiones
      29
    Más información sobre "Cambios en el Control Horario"
    Última descarga
    Cambios en el Control Horario
    Por pegones1

    5    1

  • Crear macros Excel

  • Mensajes

    • jues
      Sumar Celdas Mediante Condición de Color

      Por jues · publicado

      Estimados amigos espero estén bien   Tengo este archivo que me ayuda a llevar las horas trabajadas al que necesito añadir en la Hoja5 (HHE) una fórmula que me cuente las Horas trabajadas en Días de Descanso (fines de semana y feriados), actualmente mediante una Regla de Formato Condicional se resaltan en amarillo el Dia de Semana y la Fecha de los Días de Descanso sin embargo el inconveniente se me presenta con los días feriados que cambian de posición de acuerdo a la fecha y cuando el mes comienza en día domingo por lo cual necesito una fórmula que me permita sumar los Días de Descanso cuando la Fecha que le corresponda este resaltada en Amarillo la sintaxis sería más o menos esta para la primera semana del mes de Enero de 2025: =SI('VTL1'!$I$7=AMARILLO;'VTL1'!$I8;0) + SI('VTL1'!$J$7=AMARILLO;'VTL1'!$J8;0) + SI('VTL1'!$K$7=AMARILLO;'VTL1'!$K8;0) + SI('VTL1'!$L$7=AMARILLO;'VTL1'!$L8;0) + SI('VTL1'!$M$7=AMARILLO;'VTL1'!$M8;0) + SI('VTL1'!$N$7=AMARILLO;'VTL1'!$N8;0) + SI('VTL1'!$O$7=AMARILLO;'VTL1'!$O8;0) Y así sucesivamente para el resto de las semanas, con los datos actuales el resultado esperado para la primera semana (I8:O8) sería 9 horas mientras que para el mes (Fila8) el resultado esperado seria 35 horas estos resultados deben reflejarse en la Celda “$Z7” de la Hoja5 (HHE) de modo tal que una vez haya completado la totalidad de la fórmula para el resto de las semanas del mes la pueda correr de Z27 hasta Z42 VTL - HHE_101128.xlsx
    • DiegoPC
      FORMULA PARA BUSCAR DIFERENTES RESULTADOS Y MOSTRARLOS

      Por DiegoPC · publicado

      Hola, veo que tienes 365, así que esta forma funcionará   Almacen.xlsx
    • jues
      Guardar Formulario en PDF

      Por jues · publicado

      Buenos días  @LeandroA espero estes bien Tengo un caso idéntico al planteado en la siguiente pregunta: Sin embargo, a diferencia de quien planteo originalmente la pregunta al correr el código no obtengo ningún resultado podrían ayudarme a resolver este inconveniente y que al hacer click en el Botón Guardar (CommandButton3) del Formulario RCS (frmrcs) el archivo pdf quede configurado con orientación vertical, márgenes superior, inferior, derecho e izquierdo = 1 y en página tamaño carta. Si acaso influye uso Microsoft Excel LTSC MSO (versión 2209 Compilación16.0.1.15629.20200) de 64 bits Mucho le sabre agradecer la ayuda que me pueda dar  RCS PRUEBA - copia.xlsm
    • DiegoLG
      Surtido de Mercancía

      Por DiegoLG · publicado

      @JSDJSDCon gusto mi estimado Para la opción 1: Sub Surtirhastadondealcanse() Dim ws As Worksheet Set ws = ThisWorkbook.Sheets(1) Dim filaInicio As Integer: filaInicio = 4 Dim filaFin As Integer: filaFin = 7 Dim colInventario As Integer: colInventario = 2 Dim colSolicitudesInicio As Integer: colSolicitudesInicio = 4 ' Columna C Dim colResultadoInicio As Integer: colResultadoInicio = 9 ' Columna I Dim colTotalSurtido As Integer: colTotalSurtido = 12 ' Columna L Dim colFinalInventario As Integer: colFinalInventario = 13 ' Columna M Dim numClientes As Integer: numClientes = 3 Dim fila As Integer, i As Integer For fila = filaInicio To filaFin Dim inventario As Double inventario = Val(ws.Cells(fila, colInventario).Value) Dim solicitudes(1 To 3) As Double Dim surtido(1 To 3) As Variant Dim totalSurtido As Double: totalSurtido = 0 ' Leer solicitudes For i = 1 To numClientes If IsNumeric(ws.Cells(fila, colSolicitudesInicio + i - 1).Value) Then solicitudes(i) = CDbl(ws.Cells(fila, colSolicitudesInicio + i - 1).Value) Else solicitudes(i) = 0 End If surtido(i) = "POR FALTA STOCK" Next i ' Surtir de acuerdo al inventario disponible For i = 1 To numClientes If solicitudes(i) > 0 Then If inventario >= solicitudes(i) Then surtido(i) = solicitudes(i) inventario = inventario - solicitudes(i) totalSurtido = totalSurtido + solicitudes(i) ElseIf inventario > 0 Then surtido(i) = inventario totalSurtido = totalSurtido + inventario inventario = 0 Else surtido(i) = "POR FALTA STOCK" End If End If Next i ' Escribir resultados en las columnas correspondientes para cada cliente For i = 1 To numClientes With ws.Cells(fila, colResultadoInicio + i - 1) If surtido(i) = "POR FALTA STOCK" Then .Value = surtido(i) .Font.Color = vbRed Else .Value = surtido(i) .Font.Color = vbBlack End If End With Next i ' Escribir total surtido y existencia final ws.Cells(fila, colTotalSurtido).Value = totalSurtido ws.Cells(fila, colFinalInventario).Value = inventario Next fila MsgBox "Resultado surtido cargado con éxito...", vbInformation End Sub Para la opción 2:   Sub surtirenpartesiguales() Dim ws As Worksheet Set ws = ThisWorkbook.Sheets(1) Dim filaInicio As Integer: filaInicio = 13 Dim filaFin As Integer: filaFin = 16 Dim colInventario As Integer: colInventario = 2 Dim colSolicitudesInicio As Integer: colSolicitudesInicio = 4 ' Columna C Dim colResultadoInicio As Integer: colResultadoInicio = 9 ' Columna I Dim colTotalSurtido As Integer: colTotalSurtido = 12 ' Columna L Dim colFinalInventario As Integer: colFinalInventario = 13 ' Columna M Dim numClientes As Integer: numClientes = 3 Dim fila As Integer, i As Integer For fila = filaInicio To filaFin Dim inventario As Double inventario = Val(ws.Cells(fila, colInventario).Value) Dim solicitudes(1 To 3) As Double Dim surtido(1 To 3) As Variant Dim totalSurtido As Double: totalSurtido = 0 Dim totalPedido As Double: totalPedido = 0 ' Leer solicitudes For i = 1 To numClientes If IsNumeric(ws.Cells(fila, colSolicitudesInicio + i - 1).Value) Then solicitudes(i) = CDbl(ws.Cells(fila, colSolicitudesInicio + i - 1).Value) totalPedido = totalPedido + solicitudes(i) Else solicitudes(i) = 0 End If surtido(i) = 0 Next i ' Si hay suficiente inventario, surtir lo que el cliente pide If inventario >= totalPedido Then For i = 1 To numClientes If solicitudes(i) > 0 And inventario >= solicitudes(i) Then surtido(i) = solicitudes(i) inventario = inventario - solicitudes(i) totalSurtido = totalSurtido + solicitudes(i) End If Next i Else ' Reparto base igualitario Dim baseSurtido As Long baseSurtido = Int(inventario / numClientes) For i = 1 To numClientes If solicitudes(i) > 0 Then If solicitudes(i) <= baseSurtido Then surtido(i) = solicitudes(i) inventario = inventario - solicitudes(i) totalSurtido = totalSurtido + solicitudes(i) Else surtido(i) = baseSurtido inventario = inventario - baseSurtido totalSurtido = totalSurtido + baseSurtido End If End If Next i ' Repartir sobrante restante uno por uno, respetando lo pedido Do While inventario > 0 For i = 1 To numClientes If surtido(i) < solicitudes(i) Then surtido(i) = surtido(i) + 1 totalSurtido = totalSurtido + 1 inventario = inventario - 1 If inventario = 0 Then Exit For End If Next i Loop End If ' Escribir resultados en las columnas correspondientes para cada cliente For i = 1 To numClientes With ws.Cells(fila, colResultadoInicio + i - 1) If surtido(i) = 0 Then .Value = "POR FALTA STOCK" .Font.Color = vbRed Else .Value = surtido(i) .Font.Color = vbBlack End If End With Next i ' Escribir total surtido y existencia final ws.Cells(fila, colTotalSurtido).Value = totalSurtido ws.Cells(fila, colFinalInventario).Value = inventario Next fila MsgBox "Resultado surtido cargado con éxito...", vbInformation End Sub Saludos, Diego
    • jose_alk
      FORMULA PARA BUSCAR DIFERENTES RESULTADOS Y MOSTRARLOS

      Por jose_alk · publicado

      Buenos dias.  Estoy trabajando en una hoja para poder llevar un control de un pequeño almacén.  Tengo un pedido con varias líneas y "lotes" y necesito sacar las ubicaciones que coincidan con la referencia y lote que pone en el pedido. El problema viene cuando tengo la misma referencia y mismo lote en ubicaciones diferentes y necesito sacar la información en columnas diferentes. No se si  me he explicado bien, pero creo que con el ejemplo adjunto se entiende mejor. Agradecería mucho si me pudieran ayudar  Libro1.xlsx

  • Visualizado recientemente

    • No hay usuarios registrado para ver esta página.
×
×
  • Crear nuevo...

Información importante

Echa un vistazo a nuestra política de cookies para ayudarte a tener una mejor experiencia de navegación. Puedes ajustar aquí la configuración. Pulsa el botón Aceptar, si estás de acuerdo.