ワークシートでタブストリップを使いたい?

Question 57.1   Previous Next
教えていただきたいことが 2つあります、あつかましくお願いいたします。
  1. シートをタブの形で表示したい
  2. 指定の行を削除挿入をしたい
よろしくお願いいたします。
Answer   Copyright (C) 2003.1.22 永井善王
シートタブ 1.
「タブの形で表示」とは、どんな状態でしょうか? 「タブ」とは「シートタブ」のこと(右図)だとすると、イメージから連想できるものとしては「最小化した状態(下図)」くらいしか思い浮かばないのですが。
最小化した状態


もしも、これでよいならば、下記のコードになります。
'------------------------------------------------------------------------------
Sub ウインドウを最小化などする()
    ActiveWindow.WindowState = xlMinimized      '最小化する
    ActiveWindow.WindowState = xlMaximized      '元のサイズに戻す
    ActiveWindow.WindowState = xlMaximized      '最大化する
End Sub
'------------------------------------------------------------------------------
くわしいことは「ウィンドウの最大・最小化」をご覧ください。 また、意味が違う場合は、どんな状態にしたいのか具体的にご連絡ください。

2.
指定の行を削除・挿入するためのマクロは、すでに掲載済みですから、「
指定した行を削除するには」をご覧ください。
Question 補充
タブ 「シートをタブの形で表示したい」は説明不足でした。すみません。今回次の2点を教えていただければ嬉しいです。

1. 添付のようにシート(と見える)をタブクリックで
  切り替えるようにしたいのです。

2. それと、添付の絵のようにメニューをオリジナルの
  形にして表示したいのです。

お手数ですが、よろしくお願いいたします。
Answer   Copyright (C) 2003.1.24 Yoshioh Nagai
ワークシート 1.
失礼しました。発想が乏しくて。
いただいた画像は恐らく、ワークシートにActiveXコントロールの[Tab Strip]または[Multi Page]コントロールを埋め込んで作成されたものと思います。
もしも、[Tab Strip]を使用しているならば、セルをコントロールと同色に塗りつぶしているのかなと思います。
どちらのコントロールも、[表示]メニューから[ツールバー]-[コントロールツールボックス]とクリックし、表示された[コントロールツールボックス]で[コントロールの選択]ボタンをクリックして、[Microsoft Forms 2.0 TabStrip]または[Microsoft Forms 2.0 MultiPage]を選択すればマウスポインタの形状が + に変わるので、ワークシートに矩形を描くだけで作成できます。

2.
いただいた図のメニューは、標準では [編集(E)]から [印刷(P)]の間にある [表示(V)]、[挿入(I)]などが削除されていますね。
そうするためには、CommandBarsプロパティと Deleteメソッドなどを組み合わせれば実現できます。しかし、そうしたい理由は、ユーザーが余計な操作をしてトラブルが発生することを防止したいからかと思いますが、標準メニューにリセットする手段も準備しなければなりません。また、マクロ実行中に不測の事態でExcelを終了させたりすると、かえって困った事態が発生しかねません。
詳細は こちら
よって、本格的によく勉強してから行ってください。
参考書として「Excel VBA マクロ 500連発 第2弾」をご紹介します。その中のマクロ番号 66~81までに 16個のサンプルがあります。
後日情報
500連発第2弾は完売になりました。 が、その後に発売された下記の本にも、同様のマクロが掲載されています。
 ・ Excel VBA そのまま使える実用マクロ500連発 の75~89番
 ・
Excel VBA 実用マクロ 800連発 [中・上級編] の131~146番

Excel VBA Macro