Errores Macro en Libro Compartido

[giussepe.colan@gmail.com]

Hola a todos buen día, hace poco termiiné de estudiar un curso rapido de Excel y terminé con exito la primera etapa de un proyecto que quiero implementar, al menos eso creía, resulta que este libro funciona hasta que lo cuelgo en una carpeta y lo uso como libro compartido:

Les adjunto el archivo trabajado, lo que quiero lograr es trabajar con un libro compartido sin los errores que me aparecen:

1. No puedo proteger el libro

2. se deshabilita el boton que llama mi Formulario Principal, ubicado en la Hoja2

3. Ocultar y proteger ciertas Hojas.

Pueden ingresar con ADMIN y contraseña 12345678.

 

de antemano les agradeceré que me den una mano con el tema.

 

Pepe

Prueba.xlsm

[bigpetroman]

Saludos @giussepe.colan@gmail.com, el problema es que los archivos compartidos NO pueden desbloquearse las hojas, directamente, a juro es necesarios des-compartir el archivo para poder desbloquear una hoja.

sin embargo existe una solución muy fácil y no entiendo porque la mayoría de los usuarios no la aplican.

bloquea tus hojas de esta forma

wLaHoja.Protect Password:=sClaveHojas, UserInterfaceOnly:=True, DrawingObjects:=False, _
                    Contents:=True, Scenarios:=True

wLaHoja, es tu hoja a bloquear

sClaveHojas, es la clave que vas a colocar.

de esta manera, prácticamente puedes hacer de todo (escribir en celdas protegidas especialmente), SIN NECESIDAD de desbloquear la hoja (en archivos compartidos o sin compartir, es lo mismo), eso si, debes hacerlo por macro, es decir, siempre y cuando manipules la celda mediante una macro no hay necesidad de desbloquear la hoja, pero si deseas escribir "manualmente" en una celda protegida NO se puede.

espero que hayas entendido, te coloco un ejemplo con tu propio codigo

Private Sub Btn_ok_Click()

    ActiveWorkbook.Unprotect "79743237" '----´protegemos la hoja
    Hoja2.Unprotect "79743237"
    
    fila = ultima_fila(Hoja2, 1)
    
    For i = 3 To fila '----llenamos los datos de la unidad programada
        Placa = Hoja2.Cells(i, 2)
        
        If txt_placa.Text = Placa And Hoja2.Cells(i, 11) = "Disponible" Then
        Hoja2.Cells(i, 13) = txt_Cod.Text
        Hoja2.Cells(i, 14) = Cbox_tda.Text
        Hoja2.Cells(i, 15) = Format(txt_Hasig, "HH:MM")
        Hoja2.Cells(i, 16) = txt_Rampa
        Hoja2.Cells(i, 12) = Format(Date, "DD/MM/YYYY")
        Hoja2.Cells(i, 11) = "Asignado"
        
        Hoja2.Cells(i, 11).Select
                With Selection.Interior
                .Color = vbYellow
                End With
        
        
            Set rango = Range(Cells(i, 12), Cells(i, 16))
            
            rango.Select
            
                With Selection.Interior
                .Color = RGB(255, 255, 0)
                End With
        
        End If
    Next i
        rpta = Auxiliar.Mensaje_repeticion("Camión Asignado, ¿deseas repetirlo?", "REGISTRO EXITOSO")
    
    ActiveWorkbook.Protect "79743237"
    Hoja2.Protect "79743237"
    
    If rpta = 6 Then
        Call UserForm_Initialize
    Else
        Unload Me
    End If
        Application.ScreenUpdating = True
End Sub

estas lineas que tienes al inicio

ActiveWorkbook.Unprotect "79743237" '----´protegemos la hoja
    Hoja2.Unprotect "79743237"

y estas otras al final

ActiveWorkbook.Protect "79743237"
    Hoja2.Protect "79743237"

 

NO SON NECESARIAS, si desde un principio bloqueas las hojas como te he dicho

suerte

[giussepe.colan@gmail.com]

11 hours ago, bigpetroman said:

Saludos @giussepe.colan@gmail.com, el problema es que los archivos compartidos NO pueden desbloquearse las hojas, directamente, a juro es necesarios des-compartir el archivo para poder desbloquear una hoja.

sin embargo existe una solución muy fácil y no entiendo porque la mayoría de los usuarios no la aplican.

bloquea tus hojas de esta forma

wLaHoja.Protect Password:=sClaveHojas, UserInterfaceOnly:=True, DrawingObjects:=False, _
                    Contents:=True, Scenarios:=True

wLaHoja, es tu hoja a bloquear

sClaveHojas, es la clave que vas a colocar.

de esta manera, prácticamente puedes hacer de todo (escribir en celdas protegidas especialmente), SIN NECESIDAD de desbloquear la hoja (en archivos compartidos o sin compartir, es lo mismo), eso si, debes hacerlo por macro, es decir, siempre y cuando manipules la celda mediante una macro no hay necesidad de desbloquear la hoja, pero si deseas escribir "manualmente" en una celda protegida NO se puede.

espero que hayas entendido, te coloco un ejemplo con tu propio codigo

Private Sub Btn_ok_Click()

    ActiveWorkbook.Unprotect "79743237" '----´protegemos la hoja
    Hoja2.Unprotect "79743237"
    
    fila = ultima_fila(Hoja2, 1)
    
    For i = 3 To fila '----llenamos los datos de la unidad programada
        Placa = Hoja2.Cells(i, 2)
        
        If txt_placa.Text = Placa And Hoja2.Cells(i, 11) = "Disponible" Then
        Hoja2.Cells(i, 13) = txt_Cod.Text
        Hoja2.Cells(i, 14) = Cbox_tda.Text
        Hoja2.Cells(i, 15) = Format(txt_Hasig, "HH:MM")
        Hoja2.Cells(i, 16) = txt_Rampa
        Hoja2.Cells(i, 12) = Format(Date, "DD/MM/YYYY")
        Hoja2.Cells(i, 11) = "Asignado"
        
        Hoja2.Cells(i, 11).Select
                With Selection.Interior
                .Color = vbYellow
                End With
        
        
            Set rango = Range(Cells(i, 12), Cells(i, 16))
            
            rango.Select
            
                With Selection.Interior
                .Color = RGB(255, 255, 0)
                End With
        
        End If
    Next i
        rpta = Auxiliar.Mensaje_repeticion("Camión Asignado, ¿deseas repetirlo?", "REGISTRO EXITOSO")
    
    ActiveWorkbook.Protect "79743237"
    Hoja2.Protect "79743237"
    
    If rpta = 6 Then
        Call UserForm_Initialize
    Else
        Unload Me
    End If
        Application.ScreenUpdating = True
End Sub

estas lineas que tienes al inicio

ActiveWorkbook.Unprotect "79743237" '----´protegemos la hoja
    Hoja2.Unprotect "79743237"

y estas otras al final

ActiveWorkbook.Protect "79743237"
    Hoja2.Protect "79743237"

 

NO SON NECESARIAS, si desde un principio bloqueas las hojas como te he dicho

suerte

Hola BigPetroman, 

Gracias por tu pronta respuesta, apliqué lo que me indicaste no sin antes quitar todos los protect y unprotect que había ingresado del proyecto, el problema está que sigue funcionando únicamente cuando no es compartido, cuando comparto el libro suceden dos cosas:

1. Si ya tengo el libro abierto se bloquea el botón que llama a los Formularios, los cuales tengo ubicados en la hoja 2.

2. si comparto el libro y lo cierro, al volverlo a abrir me sale el siguiente mensaje:

Si le doy finalizar se salta el Login y logro ingresar a la hoja2 pero aún con el botón que llama al formulario bloqueado.

Cabe resaltar que probé ingresando el código que me diste en los eventos Open Workbook y también al darle click al botón inicio del Login.

 

Saludos;

 

Pepe

Prueba 28.08.xlsm

[bigpetroman]

@giussepe.colan@gmail.com amigo, el problema es el libro compartido, erróneamente te indique que si se puede, pero no, esta forma de proteger es valida para libros NO compartidos, que si te permite actualizar datos sin necesidad de bloquear o desbloquear hojas.

y eso es algo propio de Excel en los libros compartidos, allí NO hay nada que hacer al respecto, salvo que busques alternativas

1.- Lo recomendable es que todo lo que necesites tener como base de datos lo tengas una base de datos, pudiera ser Access sin embargo puedes usa también un archivo de excel sin problemas (y le colocas contraseña de apertura, bloqueas las hojas, etc.)

2.- En tu archivo a compartir, tendrías todas tus macros y formularios para actualizar tu Base de datos, y tendrías todo lo relacionado a las consultas, en este punto, si en este libro NO es necesario guardar nada, puedes tener el archivo sin compartir, pero que abra solo como lectura, así nadie lo modifica y puedes usar tus macros aquí de forma completa.

suerte

[giussepe.colan@gmail.com]

Gracias BigPetroman, me queda buscar otras alternativas para conseguir mi objetivo ffinal.