保護されたワークシートでテーブルを展開可能に保つには、Excelでどのように行を挿入すればよいですか？

Author Siluvia Last modified 2025-08-26

Excelでは、ワークシートを保護すると、テーブルの自動拡張機能が無効になることがよくあります。たとえば、Table1という名前のテーブルがあり、保護されたワークシートの最後の行の下にデータを追加しようとすると、そのテーブルは新しい行を含むように自動的に拡張されません。しかし、保護されたワークシートであってもテーブルを展開可能に保つ方法があります。このチュートリアルでは、ワークシートが保護された状態でテーブルの自動拡張を有効にする手順を説明します。

VBAコードを使用して、保護されたワークシートに行を挿入することでテーブルを展開可能に保つ

VBAコードを使用して、保護されたワークシートに行を挿入することでテーブルを展開可能に保つ

以下のスクリーンショットに示すように、ワークシート内にTable1という名前のテーブルがあり、テーブルの最後の列は数式列です。ここで、数式列が変更されないようにワークシートを保護しつつ、新しい行を挿入してテーブルを拡張し、新しいセルにデータを割り当てられるようにする必要があります。次の手順に従ってください。

A screenshot of a table named Table1 in a worksheet with the formula column shown

1. 「開発」＞「挿入」＞「ボタン（フォームコントロール）」の順にクリックして、フォームコントロール ボタンをワークシートに挿入します。

A screenshot of inserting a Form Control button in Excel using the Developer tab

2. 表示される「マクロの割り当て」ダイアログボックスで、「新規」ボタンをクリックします。

A screenshot of the Assign Macro dialog box in Excel with the New button highlighted

3. 「Microsoft Visual Basic for Applications」ウィンドウで、以下のVBAコードを「Sub」と「End Sub」の間にコピーして貼り付けます。

VBAコード: 保護されたワークシートに行を挿入してテーブルを展開可能に保つ

'Update by ExtendOffice 20220826
    Dim xRg, tableRg As Range
    Dim xRowCount As Integer
    Dim pswStr As String
    pswStr = "123"
    On Error Resume Next
    Application.ScreenUpdating = False
    ActiveSheet.Unprotect Password:=pswStr

    Set tableRg = ActiveSheet.ListObjects("Table4").Range
    xRowCount = tableRg.Rows.Count
    
    Set xRg = Range("Table4[[#Headers],[Total]]").Offset(1, 0)
    Set yRg = xRg.Resize(xRowCount, 1)
    xRg.Resize(xRowCount - 1, 1).AutoFill Destination:=yRg, Type:=xlFillDefault

    ActiveSheet.Protect Password:=pswStr, DrawingObjects:=False, _
                    Contents:=True, Scenarios:=False, _
                    AllowFormattingCells:=True, AllowFormattingColumns:=True, _
                    AllowFormattingRows:=True, AllowInsertingColumns:=True, _
                    AllowInsertingRows:=True, AllowInsertingHyperlinks:=True, _
                    AllowDeletingColumns:=True, AllowDeletingRows:=True, _
                    AllowSorting:=True, AllowFiltering:=True, _
                    AllowUsingPivotTables:=True
    Application.ScreenUpdating = True

注意:

1) コード内の数字「123」は、ワークシートを保護するために使用するパスワードです。

2) テーブル名と、保護する数式が含まれる列の名前を変更してください。

4. Alt + Q キーを押して、「Microsoft Visual Basic for Applications」ウィンドウを閉じます。

5. 数式列以外の、新しいデータを割り当てる必要があるテーブル内のセルを選択し、Ctrl + 1 キーを押して「セルの書式設定」ダイアログボックスを開きます。「セルの書式設定」ダイアログボックスで、「ロック」チェックボックスのチェックを外し、「OK」ボタンをクリックします。スクリーンショットをご覧ください：

A screenshot of the Format Cells dialog box in Excel with the Locked checkbox unchecked

6. VBAコードで指定したパスワードを使用してワークシートを保護します。

これ以降、保護されたワークシートのフォームコントロールボタンをクリックすると、以下のスクリーンショットに示すように、新しい行を挿入してテーブルが展開可能になります。

A screenshot of a protected worksheet with a table being expanded by inserting a new row

注意: 保護されたワークシートの数式列以外の部分は、テーブルを変更できます。

最高のオフィス業務効率化ツール

🤖	Kutools AI Aide：データ分析を革新します。主な機能：Intelligent Execution｜コード生成｜カスタム数式の作成｜データの分析とグラフの生成｜Kutools Functionsの呼び出し……
	人気の機能：重複の検索・ハイライト・重複をマーキング｜空白行を削除｜データを失わずに列またはセルを統合｜丸める……
	スーパーLOOKUP：複数条件でのVLookup｜複数値でのVLookup｜複数シートの検索｜ファジーマッチ……
	高度なドロップダウンリスト：ドロップダウンリストを素早く作成｜連動ドロップダウンリスト｜複数選択ドロップダウンリスト……
	列マネージャー：指定した数の列を追加｜列の移動｜非表示列の表示/非表示の切替｜範囲＆列の比較……
	注目の機能：グリッドフォーカス｜デザインビュー｜強化された数式バー｜ワークブック＆ワークシートの管理｜オートテキストライブラリ｜日付ピッカー｜データの統合｜セルの暗号化/復号化｜リストで電子メールを送信｜スーパーフィルター｜特殊フィルタ（太字/斜体/取り消し線などをフィルター）……
	トップ15ツールセット：12 種類のテキストツール（テキストの追加、特定の文字を削除など）｜50種類以上のグラフ（ガントチャートなど）｜40種類以上の便利な数式（誕生日に基づいて年齢を計算するなど）｜19 種類の挿入ツール（QRコードの挿入、パスから画像の挿入など）｜12 種類の変換ツール（単語に変換する、通貨変換など）｜7種の統合＆分割ツール（高度な行のマージ、セルの分割など）｜… その他多数