Como bloquear celda y una hoja de libro en excel

Tengo la siguiente macro. Lo que deseo es que en esta hoja poder bloquear ciertas celdas para que los usuarios no puedan hacer modificaciones, en formato de celda ya bloquie las celdas que necesito pero al proteger la hoja y correr esta macro me da error, que puedo hacer al respecto

Private Sub TextBox1_Change()
Dim Criterio As String
If Hoja1.TextBox1.Value <> "" Then
    Criterio = Hoja1.TextBox1.Value
    Range("$A$6:$K$873").CurrentRegion.AutoFilter Field:=1, Criteria1:=Criterio
Else
    ActiveSheet.Range("$A$6:$I$873").AutoFilter Field:=1
End If
End Sub

1

1 Respuesta

4.750 pts. Cuando sientas que no puedes seguir, da 3 pasos más...

No se mucho de macros pero intenta algo así:

Sheets("Hoja1").Select
    ActiveSheet. Unprotect "agui pones tu contraseña"
    'aqui tu codigo
    ActiveSheet.Protect "agui pones tu contraseña", DrawingObjects:=True, Contents:=True, Scenarios:=True

¡Gracias! 

cuando dice tu código es el que ya tengo en el macro o como y la contraseña seria solo para desbloquear la hoja y celdas

Primero se tiene que desbloquear la hoja para que la macro pueda trabajar con ella y posteriormente al final se vuelve a bloquear, según yo desbloquea todo y lo vuelve a bloquear, no estoy seguro haz la prueba.

Con tu código quedaría así

Private Sub TextBox1_Change()
Dim Criterio As String
Sheets("Hoja1").Select
    ActiveSheet. Unprotect "agui pones tu contraseña"
If Hoja1.TextBox1.Value <> "" Then
    Criterio = Hoja1.TextBox1.Value
    Range("$A$6:$K$873").CurrentRegion.AutoFilter Field:=1, Criteria1:=Criterio
Else
    ActiveSheet.Range("$A$6:$I$873").AutoFilter Field:=1
End If
ActiveSheet.Protect "agui pones tu contraseña", DrawingObjects:=True, Contents:=True, Scenarios:=True
End Sub

Ya solo le ingresas la contraseña con la que bloqueaste la hoja.

Ya ingrese el código y me da error dice lo siguiente se ha producido un error 9 en tiempo de ejecución y subíndice fuera del intervalo

Marca en amarillo sheets ("hoja1").select

Quedo a la espera de tu apoyo

Yo lo probé y si salió, intenta quitando esa línea.

Añade tu respuesta

Haz clic para o

Más respuestas relacionadas