[[20071114163448]]　『ハイパーリンク先を一括で移動可能？』（33）　ページの最後に飛ぶ

『ハイパーリンク先を一括で移動可能？』（33）

いつもお世話になっています。フォルダ毎移動したら、ハイパーリンクしていたファイルが指定されなくなってしまいました。
ブックもかなり数がありますが、シートも相当な数があり、１枚１枚のシートに全てハイパーリンクで同じファイルを指定しています。しかもシート保護をしているので、１つ１つを解除して指定し直すのは恐ろしいほど時間がかかります。
一括で指定し直す方法などはありますか？過去ログを見るとマクロなどでも出来るようですが、応用がきかない為どうしたらいいのか分かりません。
誰か教えて下さい。
2000/XP

 質問の概要は分かりますが、具体的にどうしたいのかが分かりません。
 ご自身で適当に修正して下さい。 (1or8)

 Sub Link()
    Dim lkName As String
    Dim Rng As Range
    ActiveSheet.Unprotect Password:="パスワード"
    'ActiveSheet.Unprotect 'パスワードが無い場合はこっち
    lkName = "ファイルのフルパスを記入"
    For Each Rng In Range("範囲を記入")
        ActiveSheet.Hyperlinks.Add Anchor:=Rng, Address:=lkName
    Next Rng
    ActiveSheet.Protect Password:="パスワード"
    'ActiveSheet.Protect 'パスワードが無い場合はこっち
 End Sub

コメント返信：

[ 一覧(最新更新順) ]

[[20071114163448]] 『ハイパーリンク先を一括で移動可能？』（33） ページの最後に飛ぶ

[[20071114163448]]　『ハイパーリンク先を一括で移動可能？』（33）　ページの最後に飛ぶ