Excelの保護されたワークシートにテーブルの行を挿入してテーブルを展開可能に保つにはどうすればよいですか?
Excelでワークシートを保護すると、テーブルの自動展開機能が失われます。 たとえば、保護されたワークシートにTable1という名前のテーブルがあり、最後の行の下に何かを入力しても、テーブルは自動的に展開されて新しい行が含まれることはありません。 保護されたワークシートに新しい行を挿入してテーブルを展開可能に保つ方法はありますか? この記事の方法は、それを達成するのに役立ちます。
VBAコードを使用して保護されたワークシートにテーブルの行を挿入することにより、テーブルを拡張可能に保ちます
VBAコードを使用して保護されたワークシートにテーブルの行を挿入することにより、テーブルを拡張可能に保ちます
以下のスクリーンショットに示すように、ワークシートのTable1という名前のテーブルで、テーブルの最後の列は数式列です。 次に、数式列が変更されないようにワークシートを保護する必要がありますが、新しい行を挿入して新しいデータを新しいセルに割り当てることにより、テーブルを拡張できます。 次のようにしてください。
1。 クリック Developer > インセット > ボタン(フォームコントロール) 挿入するには フォームコントロール ワークシートにボタンを押します。
2.ポップアップで マクロの割り当て ダイアログボックスで 新作
3。 の中に アプリケーション向け Microsoft Visual Basic ウィンドウの間に、以下のVBAコードをコピーして貼り付けてください サブ & End Subの の段落 Code 窓。
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
ノート:
4。 プレス 他の + Q キーを押して、Microsoft Visual Basic forApplicationsウィンドウを閉じます。
5.数式列を除いて、新しいデータを割り当てる必要があるテーブルのセルを選択し、を押します。 Ctrlキー + 1 キーを押して セルの書式設定 ダイアログボックス。 の中に セルの書式設定 ダイアログボックスで、チェックを外します ロック ボックスをクリックし、 OK ボタン。 スクリーンショットを参照してください:
6.次に、VBAコードで指定したパスワードでワークシートを保護します。
今後、保護されたワークシートの[フォームコントロール]ボタンをクリックした後、下のスクリーンショットに示すように、新しい行を挿入することでテーブルを展開できます。
Note:保護されたワークシートの数式列以外のテーブルを変更できます。
関連記事:
- Excelでワークシートをスクロールしてピボットテーブルのスライサーを動かし続けるにはどうすればよいですか?
- セルを組み合わせてExcelでセルの書式を維持するにはどうすればよいですか?
- 重複を削除して最初のインスタンスをExcelに保持する方法は?
最高のオフィス生産性向上ツール
🤖 | Kutools AI アシスタント: 以下に基づいてデータ分析に革命をもたらします。 インテリジェントな実行 | コードを生成 | カスタム数式の作成 | データを分析してグラフを生成する | Kutools関数を呼び出す... |
人気の機能: 重複を検索、強調表示、または識別する | 空白行を削除する | データを失わずに列またはセルを結合する | 数式なしのラウンド ... | |
スーパールックアップ: 複数の基準の VLookup | 複数の値の VLookup | 複数のシートにわたる VLookup | ファジールックアップ .... | |
詳細ドロップダウン リスト: ドロップダウンリストを素早く作成する | 依存関係のドロップダウン リスト | 複数選択のドロップダウンリスト .... | |
列マネージャー: 特定の数の列を追加する | 列の移動 | Toggle 非表示列の表示ステータス | 範囲と列の比較 ... | |
注目の機能: グリッドフォーカス | デザインビュー | ビッグフォーミュラバー | ワークブックとシートマネージャー | リソースライブラリ (自動テキスト) | 日付ピッカー | ワークシートを組み合わせる | セルの暗号化/復号化 | リストごとにメールを送信する | スーパーフィルター | 特殊フィルター (太字/斜体/取り消し線をフィルター...) ... | |
上位 15 のツールセット: 12 テキスト ツール (テキストを追加, 文字を削除する、...) | 50+ チャート 種類 (ガントチャート、...) | 40+ 実用的 式 (誕生日に基づいて年齢を計算する、...) | 19 挿入 ツール (QRコードを挿入, パスから画像を挿入、...) | 12 変換 ツール (数字から言葉へ, 通貨の換算、...) | 7 マージ&スプリット ツール (高度な結合行, 分割セル、...) | ... もっと |
Kutools for Excel で Excel スキルを強化し、これまでにない効率を体験してください。 Kutools for Excelは、生産性を向上させ、時間を節約するための300以上の高度な機能を提供します。 最も必要な機能を入手するにはここをクリックしてください...
Officeタブは、タブ付きのインターフェイスをOfficeにもたらし、作業をはるかに簡単にします
- Word、Excel、PowerPointでタブ付きの編集と読み取りを有効にする、パブリッシャー、アクセス、Visioおよびプロジェクト。
- 新しいウィンドウではなく、同じウィンドウの新しいタブで複数のドキュメントを開いて作成します。
- 生産性を 50% 向上させ、毎日何百回もマウス クリックを減らすことができます!