linksEnabled = True;
    Print[Button["Disable/Enable Hyperlinks",
        NotebookFind[EvaluationNotebook[], "MyGraphic", All, CellTags,
         AutoScroll -> False];
        (* NotebookLocate["MyGraphic"];*)
        temp = NotebookRead[EvaluationNotebook[]];
        NotebookWrite[EvaluationNotebook[], If[linksEnabled,
          linksEnabled = False;
          Replace[temp,
           EventHandlerTag[{"MouseClicked" :> x__, y___}] ->
            EventHandlerTag[{"MouseClicked2" :> x, y}], \[Infinity]]
          ,
          linksEnabled = True;
          Replace[temp,
           EventHandlerTag[{"MouseClicked2" :> x__, y___}] ->
            EventHandlerTag[{"MouseClicked" :> x, y}], \[Infinity]]
          ]]
        ] Button["Edit Hyperlink For Object", Function[
         Module[{ret},
          shape = NotebookRead[SelectedNotebook[]];
          If[Head[shape] == GraphicsBox,
           MessageDialog["Unable to add Hyperlink to GraphicsBox"];
           Return[], Null];
          NotebookWrite[EvaluationNotebook[],
           TagBox[shape, "MouseClickedUniqueId314"]];
          (* Prevents adding duplicate links *)
          NotebookFind[EvaluationNotebook[], "MyGraphic", All, CellTags,
           AutoScroll -> False];
          (* NotebookLocate["MyGraphic"];*)
          temp = NotebookRead[EvaluationNotebook[]];
          text = If[linksEnabled, "MouseClicked", "MouseClicked2"];
          NotebookWrite[EvaluationNotebook[],
           temp /.
             TagBox[TagBox[shape_, "MouseClickedUniqueId314"],
               EventHandlerTag[t___]
               ]  -> TagBox[shape, EventHandlerTag[t]] /.
            TagBox[shape_, "MouseClickedUniqueId314"]
             ->
             TagBox[shape,
              EventHandlerTag[{text :>
                 FrontEndExecute[{NotebookLocate[{URL[
                      FindFile["./Costs.nb"]], None}]}],
                PassEventsDown -> Automatic, PassEventsUp -> True}]
              ]
           ];

          ]
         ]
        ]];
    CellPrint[Cell[BoxData[
       ToBoxes[Graphics[{Circle[]}, ImageSize -> {100, Automatic}]]
       ], "Output", CellTags -> "MyGraphic"]]