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 respuesta
¡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 SubYa 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.
