Display

Hola Gema:
Mientras aparece otra opcion te pongo un codigo alternativo:

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Target.Address = "$A$1" Then
MsgBox "Esta celda no se puede modificar"
[A2].Select
End If
End Sub

Haz click con el boton derecho sobre la etiketa de la hoja y elige "Ver
Código", pegas el texto anterior y comprobaras que al seleccionar la celda
A1 te avisa de que no puedes modificarla y te manda a la celda A2.
Ya solo te queda adaptarlo..
Espero que te resulte facil.
Un saludo.


"Gemma" escribió en el mensaje
news:10bc01c4ff20$fad95540$

Hola que tal, alguien me puede decir como eliminar el
mensaje que muestra excel al tratar de modificar una celda
protegida o cambiarlo por uno personalizado
espero me puedan ayudar, gracias

Saludos
Gemma

Gracias Ignacio, desafortunadamente no me sirve ya que la
hoja activa la tengo protegida y debo mostrar un mensaje
diferente al que manda excel al tratar de modificar la(s)
celda(s) y el codigo que me hiciste favor de proporcionar
no me deja seleccionar la celda pasando a otra, se que
puedo quitar la referencia de celda a2.select esto me
permitiria seleccionar y a la vez modificar la(s) celda(s)
y posterior a la modificacion me mandaria el mensaje, de
todas maneras te agradezo

saludos
Gemma

Hola Gema:
Mientras aparece otra opcion te pongo un codigo

alternativo:

Private Sub Worksheet_SelectionChange(ByVal Target As

Range)

If Target.Address = "$A$1" Then
MsgBox "Esta celda no se puede modificar"
[A2].Select
End If
End Sub

Haz click con el boton derecho sobre la etiketa de la

hoja y elige "Ver

Código", pegas el texto anterior y comprobaras que al

seleccionar la celda

A1 te avisa de que no puedes modificarla y te manda a la

celda A2.

Ya solo te queda adaptarlo..
Espero que te resulte facil.
Un saludo.


"Gemma" escribió en

el mensaje

news:10bc01c4ff20$fad95540$

Hola que tal, alguien me puede decir como eliminar el
mensaje que muestra excel al tratar de modificar una

celda

protegida o cambiarlo por uno personalizado
espero me puedan ayudar, gracias

Saludos
Gemma

.

Gemma:
He estado curioseando un poco y creo que el unico sistema de mostrar un
mensaje personalizado al intento de modificar una celda protegida pasa por
desproteger la hoja y hacerlo mediante VBA, ya que el numero de error que te
da (1004) puede estar asociado a muchos otros sucesos.(Si no es
así, por favor, que alguien me corrija).
Te pongo un codigo para que, estando la hoja desprotegida, no puedan
modificar el rango de celdas A1:A10.
el sistema para ponerlo es igual que en la anterior macro pero este te
permite seleccionar la celda.
Si tienes alguna duda o problema por aqui estaré

Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, Range("A1:A10")) Is Nothing Then
MsgBox "Esta celda no se puede modificar"
Application.EnableEvents = False
Application.Undo
Application.EnableEvents = True
End If
End Sub

Un saludo

"Gemma" escribió en el mensaje
news:12e201c4ff4b$908fcdb0$
Gracias Ignacio, desafortunadamente no me sirve ya que la
hoja activa la tengo protegida y debo mostrar un mensaje
diferente al que manda excel al tratar de modificar la(s)
celda(s) y el codigo que me hiciste favor de proporcionar
no me deja seleccionar la celda pasando a otra, se que
puedo quitar la referencia de celda a2.select esto me
permitiria seleccionar y a la vez modificar la(s) celda(s)
y posterior a la modificacion me mandaria el mensaje, de
todas maneras te agradezo

saludos
Gemma

Hola Gema:
Mientras aparece otra opcion te pongo un codigo

alternativo:

Private Sub Worksheet_SelectionChange(ByVal Target As

Range)

If Target.Address = "$A$1" Then
MsgBox "Esta celda no se puede modificar"
[A2].Select
End If
End Sub

Haz click con el boton derecho sobre la etiketa de la

hoja y elige "Ver

Código", pegas el texto anterior y comprobaras que al

seleccionar la celda

A1 te avisa de que no puedes modificarla y te manda a la

celda A2.

Ya solo te queda adaptarlo..
Espero que te resulte facil.
Un saludo.


"Gemma" escribió en

el mensaje

news:10bc01c4ff20$fad95540$

Hola que tal, alguien me puede decir como eliminar el
mensaje que muestra excel al tratar de modificar una

celda

protegida o cambiarlo por uno personalizado
espero me puedan ayudar, gracias

Saludos
Gemma

.