Rangos protegidos en TABLAS

[RubenDario]

Buenas tardes a todos:

No se puede trabajar con rangos protegidos y otros no (editables) en las tablas. (O quizás desconozca la forma de hacerlo).

Me han dicho en el foro que con las tablas la única forma de hacerlo es a través de VBA.

Y por supuesto recibí con satisfacción la forma de hacerlo. Sin embargo se trataba de una tabla sencilla con apenas 5 columnas.

Ahora tengo que hacerlo con una tabla de entre 20 y más columnas y se me complica mucho con el condicional IF y todos los operadores lógicos que hay que escribir. ¿Existe otra forma de hacerlo y que además evite la lentitud que crea tantos operadores lógicos?

Muchas gracias

Rubén

 

RangosProtegidos2.xlsx

[Antoni]

Prueba así:

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Select Case Target.Column
   Case 4, 5, 8, 10, 14, 15, 16, 20, 21, 22
      ActiveSheet.Protect "MiContraseña"
   Case Else
      ActiveSheet.Unprotect "MiContraseña"
End Select
End Sub

 

[RubenDario]

Hola Sr. @Antoni

Me está funcionando muy bien sin duda alguna.

Podría Ud además indicarme como modificar el código para que me permita utilizar filtros en las columnas protegidas.

Yo estuve haciendo mis intentos con la propiedad "allowfiltering" del objeto PROTECTION pero nada me funciona. Evidentemente lo hago mal.

Gracias

Rubén

[RubenDario]

Buenos días a todos:

¿Qué tal Sr. @Antoni?

Desués de mucho patalear, creo que he logrado algo. Sólo leyendo y releyendo en Google.

¿Me podrían indicar si la forma en que lo hice conlleva algún error?

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Select Case Target.Column
   Case 4, 5, 8, 10, 14, 15, 16, 20, 21, 22
      ActiveSheet.Protect Password:= "MiContraseña", AllowFiltering:= True
   Case Else
      ActiveSheet.Unprotect Password:= "MiContraseña"
End Select
End Sub

He agregado "Password" que en realidad no sé si es necesario.

¿Si el libro de Excel tiene otras hojas en los cuales necesito hacer lo mismo, debo declarar la misma rutina en cada una?

Estoy atento a todo lo que me puedan enseñar.

Gracias.

Rubén

[Antoni]

Debes usar el evento SheetSelectionChange de ThisWorkbook que se activa para cualquier hoja:

Private Sub Workbook_SheetSelectionChange(ByVal Sh As Object, ByVal Target As Range)
Select Case ActiveSheet.Name
   Case "Cuadrante", "Otros datos", "Mas datos" '<-- Hojas sobre la que hay que actuar
      Select Case Target.Column
         Case 4, 5, 8, 10, 14, 15, 16, 20, 21, 22
            ActiveSheet.Protect Password:="MiContraseña", AllowFiltering:=True
         Case Else
            ActiveSheet.Unprotect Password:="MiContraseña"
      End Select
End Select
End Sub

 

[RubenDario]

Buenas tardes Señor @Antoni

Teniendo en cuenta que en cada hoja las columnas a proteger son todas diferentes, sería correcta la solución que escribo a continuación:

Private Sub Workbook_SheetSelectionChange(ByVal Sh As Object, ByVal Target As Range)

Select Case ActiveSheet.Name

   Case "Cuadrante"

      Select Case Target.Column

         Case 4, 5, 8, 10, 21, 22

            ActiveSheet.Protect Password:="MiContraseña", AllowFiltering:=True

         Case Else

            ActiveSheet.Unprotect Password:="MiContraseña"

      End Select

Case "Otros datos"

      Select Case Target.Column

         Case 14,15,16

            ActiveSheet.Protect Password:="MiContraseña", AllowFiltering:=True

         Case Else

            ActiveSheet.Unprotect Password:="MiContraseña"

      End Select

Case "Mas datos"

      Select Case Target.Column

         Case 10, 20, 22

            ActiveSheet.Protect Password:="MiContraseña", AllowFiltering:=True

         Case Else

            ActiveSheet.Unprotect Password:="MiContraseña"

      End Select

End Select

End Sub

Muchas gracias...

Rubén