livedoor ナレッジ

VBAでシートコピー時の使い勝手で悩んでします。

営業で販売実績などに関わる資料をVBAで作成しのですが、わかりづらいので修正したいためアドバイスなどいただけないでしょうか。
まずどんなものを作成したかといいますと四半期ごとにある販売実績報告会議での資料作成用Bookです。
●シートのトップはただのシート作成ボタンがあるページです。
（実績作成TOP）という名のシート
●シート2枚目は各ページにいけるように目次のページです。
（シート選択）という名のシート
●シート3枚目は実績入力の”テンプレート”です。
（実績入力）という名のシート
●シート4枚目は上司提出用の”テンプレート”です。
（実績報告）という名のシート

使い方として例えば今月4月に「実績作成TOP」にあるコマンドボタンを押すこ
とで「シート選択」に「200801実績入力」「200802実績入力」「200803実績入
力」「200801実績報告」「200802実績報告」」「200803実績報告」のハイパー
リンクを作成します。
それと同時に上記の名前のシートをテンプレートよりコピーをし名前を振りま
す。
その後入力の使い方として1月のもので説明しますと「200801実績入力」でデ
ータを入力した後シート上に”決定”ボタンを押します。そうするとシートに
ロックがかかり編集できないようにします。それと同時に「シート選択」に遷
移させます。その後「200801実績報告」を作成するのですが、こちらは各人で
リンクで飛んでもらうという風にしています。

ここに使用者から改善してもらえないかというお話をいただきました。

今は作業工程として
「実績作成TOP」→「シート選択」→「200801実績入力」→「シート選択」→
「200801実績報告」としないとひとつきの作業を終えれないのですが、

「実績作成TOP」→「シート選択」→「200801実績入力」→「200801実績報告
」としてほしいとのことです。
最初の段階で私もそうしたかったのですがどうしてもわからず「シート選択を
」作るで回避してしまったのですがどうしても不満が出てしまいました。

テンプレートに最初からハイパーリンクを埋め込んでもシートに飛べないしというところで問題もあります。
もし作るとしたらシートをコピーすると同時に」→「200801実績入力」→「200801実績報告」へのハイパーリンクを書くということになると思うのですが同時にできるかわからずじまいでした

「200801実績入力」→「200801実績報告」へのシート切替は、以下のようにします。
テンプレートにあらかじめコマンドボタンを用意しておいて、以下のマクロを登録しておきます。

現在のシートを保護し、現在のシート名から左６文字を取り出し、そのyyyymmの文字列に「実績報告」を加えたシートを選択させるだけです。

Sub ボタン1_Click()

   With ActiveSheet
       .Protect
       Sheets(Left(.Name, 6) & "実績報告").Select
   End With

End Sub


現在が４月だったら、
200801、200802、200803の実績入力と実績報告のシート作成とのことですが、
これのコードとかも必要ですか？

ハイパーリンクは具体的にどのようにお使いでしょうか？

VBAならイベント使えば、ハイパーリンクを使う必要性ないんじゃない？

コードを示せば、詳しい方から具体的なアドバイスがもらえると思いますよ。