legatura date

[adof]

am verificat acum fiecare Nume Definit
toate sunt definite in fisierul actual
am sa veric si data validation sa vad daca nu cumva este in vreo listă
dar am ceva de lucru pâna le verific pe toate
mulţumesc

[adof]

sal
am gasit ceva

la un buton (un dreptunghi ) era o macrocomanda din alt fisier

cum pot verifica daca mai este vreo legatura ca in lista de macrocomenzi nu apare
iar la meniu Edittare-Legaturi încă mai apare acelaşi fişier ca si legatura gasita

mersi

[Catalin B.]

Poti sa rulezi codul urmator in fiecare foaie de lucru, o sa afiseze numele formei si codul repartizat acelui buton:

Cod: Selectaţi tot

Sub FindAssignedMacro()
Dim sh As Shape
For Each sh In ActiveSheet.Shapes
MsgBox sh.Name & ", Assigned macro: " & sh.OnAction
Next
End Sub

[adof]

multumesc
a mers am gasit înca 2 shapes cu legatura

cum fac sa caute în tot fisierul ca am multe pagini ?
am adaugat şi o comanda sa le stearga dupa ce îm apare mesajul

[Catalin B.]

Scrie codul anterior in interiorul altei bucle care sa treaca prin toate foile de lucru din fisierul tau:

Cod: Selectaţi tot

Sub FindAssignedMacro()
Dim sh As Shape
Dim Sht as Worksheet
For each Sht in thisworkbook.worksheets
  Sht.activate
      For Each sh In sht.Shapes
            MsgBox sh.Name & ", Assigned macro: " & sh.OnAction
            'ca sa anulezi codul repartizat la acel buton sau forma fara sa stergi Butonul sau forma respectiva:
            sh.OnAction=""
     Next
Next
End Sub

[adof]

super tare

dar e periculos codul

noroc ca am avut o copie la fişier
ca am avut vro 25 de butoane în tot fisierul
când am vazut ca nu mai MERE nici un buton era sa dau in boli ascunse


multumesc pt cod

[Catalin B.]

You're wellcome
Pai nu asta ai vrut? Sa anulezi comenzile atasate butoanelor?
Oricum, intotdeauna e o idee buna sa lucrezi pe o copie...

[adof]

am gasit

trebuie dechis şi fisierul sursa
şi apoi verificat la NUME DEFINITE
şi şterse numele definite cu legatura

inainte sa deschid si fişierul sursă
am sters toate numele definite dar tot îmi mai aparea legatura

acum nu mai apare
multumesc
pt timpul acordat
şi coduri