eliminar una nota pop

[shark]

hola a todos.

espero me puedan ayudar con esto?. gracias por todo.
Sub ELIMINARNOTAS()
' ELIMINARNTAPOP Macro
ActiveSheet.Unprotect
ActiveSheet.Shapes("Text Box 355").Select...

Para poder visualizar el resto de este tema y sus adjuntos:
. Si nunca te has registrado puedes registrarte gratis aquí
. Si ya te has registrado debes iniciar sesión aquí

 

[TodoExcel]

Deberí­as adjuntar tu ejemplo, para ver como tienes las notas.
Explica mejor en el mismo eso de "las notas que voy haciendo..." para q podamos entenderte mejor y ayudarte...

Salu2.xls

 

[shark]

haber si con esto me pueden ayudar. gracias

 

[galileogali]

Fí­jate si esto te funciona...
Esto de hacer de Terminator nos es de los papeles que más me gustan, pero bueno....
sub Termitextor()
For Each wks In Worksheets
wks.Activate...

Para poder visualizar el resto de este tema y sus adjuntos:
. Si nunca te has registrado puedes registrarte gratis aquí
. Si ya te has registrado debes iniciar sesión aquí

 

[galileogali]

CUIDADO!!

[font=Times New Roman, serif]Mi solucion hay que modoficarla; por ahora destruye mucho mas de lo...

Para poder visualizar el resto de este tema y sus adjuntos:
. Si nunca te has registrado puedes registrarte gratis aquí
. Si ya te has registrado debes iniciar sesión aquí

 

[shark]

jajaja ya lo vi se llevo todo.
ojala encuentres algo.gracias

 

[galileogali]

Hola .....!
Quedo algo de vida sobre la faz de ese planeta.?????

&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&
Bueno te doy lo que se me ocurre hasta tanto venga algun especialista en jerarquia de...

Para poder visualizar el resto de este tema y sus adjuntos:
. Si nunca te has registrado puedes registrarte gratis aquí
. Si ya te has registrado debes iniciar sesión aquí

 

[galileogali]

Hola .....!
Quedo algo de vida sobre la faz de ese planeta.?????

&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&
Bueno te doy lo que se me ocurre hasta tanto venga algun especialista en jerarquia de...

Para poder visualizar el resto de este tema y sus adjuntos:
. Si nunca te has registrado puedes registrarte gratis aquí
. Si ya te has registrado debes iniciar sesión aquí

 

[shark]

gracias voy a probarlo. muy amable.

 

[galileogali]

Esta que te mando creo que es bastante mas simple

<i>
</i>Sub destruir()
On Error Resume Next
For j = 1 To Worksheets.Count


Worksheets(j).Activate
ActiveSheet.Unprotect Password:="12345"...

Para poder visualizar el resto de este tema y sus adjuntos:
. Si nunca te has registrado puedes registrarte gratis aquí
. Si ya te has registrado debes iniciar sesión aquí

 

[shark]

muchas gracias me gusta esta ultima aunque parece todas sirven. ve esto.
con boton 2 haces las notas

 

[shark]

la ultima no corre bien
si la pruebas paso a paso la quita y despues la pone otra vez
la otra muy bien aunque todavia no me atrevo a ponerla en mi trabajo tal vez vuele hasta las macros jajajajaja

 

[shark]

te mando este en el otro cambie la contraseña por la del formulario pero aqui ya esta bien

 

[shark]

galileo muchas gracias.
trabaja perfecto.
!eres grande¡

 

[TodoExcel]

Gracias Galileo, un maestro con todas las letras !

Salu2.xls