Forums Últimos mensajes - Powered by IBM
 
Tags Palabras claves

Macro no funciona

04/10/2005 - 23:49 por Javichu | Informe spam
Ayuda Hacer una pregunta
Tengo asignada una macro a un botón, que funciona perfectamente siempr
y cuando no bloquee la hoja. En el momento que bloqueo la hoja
presiono el botón correspondiente aparece el siguiente mensaje:

"Se ha producido el error 1004 en tiempo de ejecución:
Error en el método Sort de la clase Range"

Os adjunto el código que tengo escrito y que se ejecuta al presionar e
botón correspondiente:

Private Sub CommandButton1_Click()
Range("C100:D117").Select
Selection.Sort Key1:=Range("C86"), Order1:=xlAscending
Header:=xlGuess _
, OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom
_
DataOption1:=xlSortNormal
Range("A2").Select
End Sub

Si alguien sabe como puedo solucionarlo le pido por favor que m
ayude.
Gracias por vuestro tiempo y vuestro interés. Un saludo

Javich
Javichu's Profile: http://www.msusenet.com/member.php?useridB9
View this thread: http://www.msusenet.com/t-187109914
email Siga el debateRespuesta 5 respuestasRespuesta Tengo una respuesta
DRAGON AGE™: INQUISITION – Matadragones
 

Leer las respuestas

#1 Héctor Miguel
05/10/2005 - 06:35 | Informe spam
hola, Javichu !

... una macro... que funciona perfectamente siemprey cuando no bloquee la hoja
... bloqueo la hoja y... aparece el siguiente mensaje:
"Se ha producido el error 1004 en tiempo de ejecucion: Error en el metodo Sort de la clase Range" [...]



si necesitas que la proteccion NO 'afecte' a tus macros ->SIN tener que [des/re]proteger la hoja<-
puedes usar la instruccion de 'solo interfase de usuario' [p.e.]

1) en excel 97 y 2000 NO necesitas 'repetir' el password <= es 'suficiente' con poner:
en el modulo de codigo del libro ==Private Sub Workbook_Open()
Worksheets("Hoja1").Protect UserInterfaceOnly:=True
End Sub

2) a partir de excel 2002 [xp] SI es requisito 'repetir' el password :-( < en el modulo de codigo del libro ==Private Sub Workbook_Open()
Worksheets("Hoja1").Protect _
PassWord:="la MISMA cOntRaSe#a qUe lE pUsISte", _
UserInterfaceOnly:=True
End Sub
[practicamente] TODO lo que 'hagas por codigo'... pasara 'sin problemas'

saludos,
hector.

Preguntas similares

 

Busqueda sugerida :