Hola compañeros del foro,

 

Me gustaría que al seleccionar una hoja, no se pueda seleccionar ninguna celda de la hoja.

Para ello, estoy probando con el método "ActiveSheet.EnableSelection = xlNoSelection", pero no me funciona.

En cambio si protegemos la hoja, entonces si que funciona correctamente:

...  
      With ActiveSheet
         .Protect Password:=contraseña, _
                  DrawingObjects:=True, _
                  Contents:=True
         .EnableSelection = xlNoSelection
      End With
...

Pero yo no quiero proteger la hoja, simplemente quiero que no se pueda seleccionar ninguna celda (si es que se puede hacer eso...).

Agradezco cualquier tipo de ayuda. Un saludo.

Hace 7 horas, paikerr dijo:

Hola compañeros del foro,

 

Me gustaría que al seleccionar una hoja, no se pueda seleccionar ninguna celda de la hoja.

Para ello, estoy probando con el método "ActiveSheet.EnableSelection = xlNoSelection", pero no me funciona.

En cambio si protegemos la hoja, entonces si que funciona correctamente:

...  
      With ActiveSheet
         .Protect Password:=contraseña, _
                  DrawingObjects:=True, _
                  Contents:=True
         .EnableSelection = xlNoSelection
      End With
...

Pero yo no quiero proteger la hoja, simplemente quiero que no se pueda seleccionar ninguna celda (si es que se puede hacer eso...).

Agradezco cualquier tipo de ayuda. Un saludo.

Te podrá ayuda en algo:

http://www.cpearson.com/excel/unselect.aspx

En 5/8/2020 at 20:46 , Jose BN dijo:

Te podrá ayuda en algo:

http://www.cpearson.com/excel/unselect.aspx

No entiendo muy bien cuál es el objetivo que se pretende conseguir con ese código...

Editado el el 6 de agosto5 años por paikerr

En 5/8/2020 at 5:22 , paikerr dijo:

Pero yo no quiero proteger la hoja, simplemente quiero que no se pueda seleccionar ninguna celda (si es que se puede hacer eso...).

¿Suena contradictorio, entonces para que tienes esa hoja, si no necesitas seleccionar ninguna celda, cual es el real motivo?

Lo más parecido a lo que buscas es esto, o sea, proteger la hoja contra selección.

With Sheets("Hoja1")
 .EnableSelection = xlNoSelection
 .Protect
End With

 

Editado el el 7 de agosto5 años por Antoni

En 7/8/2020 at 10:14 , Antoni dijo:

Lo más parecido a lo que buscas es esto, o sea, proteger la hoja contra selección.

With Sheets("Hoja1")
 .EnableSelection = xlNoSelection
 .Protect
End With

 

Efectivamente, eso es lo que hago.

Muchas gracias, simplemente quería saber si es posible realizar esta acción.

 

Saludos.

Hace 7 horas, paikerr dijo:

simplemente quería saber si es posible realizar esta acción.

Como viste, la hoja se protege