保護されたワークシートで行をグループ化・グループ解除するにはどうすればよいですか？
ご存じの通り、Excel でワークシートを保護すると、ユーザーが実行できる操作に多くの制限がかかります。たとえば、Excel のアウトライン機能を使ってグループを展開・折りたたむ操作は、通常、保護されたシートではデフォルトで無効になります。この制限は、特定のユーザーにはグループ化機能を使ってデータを整理・参照させたい一方で、他のコンテンツは不要な変更から守りたい場合に特に不便です。シートのセキュリティを損なうことなく、グループ化およびグループ解除を許可する方法を理解することは、データの整合性と使いやすさの両方を維持するために重要です。
VBA コードを使用して保護されたワークシートで行をグループ化およびグループ解除する
VBA コードを使用して保護されたワークシートで行をグループ化およびグループ解除する
ワークシートを保護していると、グループ化やグループ解除が使えなくなることがよくあります。この問題を確実に解決する方法の一つは、VBA コードを使うことです。これにより、シートの保護を維持したままアウトライン機能をプログラムで有効にできます。この方法は、マクロに慣れている方や、組織の方針で VBA コードの使用が許可されている場合に最適です。ただし、VBA による解決策にはマクロを有効にしたブック（).xlsm）が必要です。そのため、環境でマクロが無効になっている場合や、ファイルを開く際にセキュリティ警告を避けたい場合にはご利用いただけません。
1。グループ化およびグループ解除を有効にしたいワークシートをアクティブにしてください。ワークシートが現在保護されていないことを確認してください。すでに保護されている場合は、この方法は適用されません。必要に応じて、まず［レビュー］>［シートの保護を解除］コマンドを使用してください。
2。次に、ALT + F11を押して、Microsoft Visual Basic for Applicationsエディターを開きます。
3。VBA エディターで、［挿入］>［標準モジュール］をクリックし、新しいモジュールウィンドウに次のコードを貼り付けてください。正しく動作させるには、コードを正確に貼り付けることが重要です。
VBA コード：保護されたワークシートで行をグループ化およびグループ解除する
Sub EnableOutlining()
'Updateby Extendoffice
Dim xWs As Worksheet
Set xWs = Application.ActiveSheet
Dim xPws As String
xPws = Application.InputBox("Password:", xTitleId, "", Type:=2)
xWs.Protect Password:=xPws, Userinterfaceonly:=True
xWs.EnableOutlining = True
End Sub
このコードはワークシート保護を有効にしながら、グループ化された行や列の展開・折りたたみ機能を許可します。コード実行時に保護用パスワードの設定が求められますので、必ずそのパスワードを覚えておいてください。将来的にワークシートの保護を解除する際に必要となります。万一パスワードを忘れてしまった場合、高度な復旧手法を用いないとシートのロックを解除できなくなる可能性があります。
4。コードを実行するには、F5キーを押してください。ワークシートの保護パスワードを設定するようプロンプトが表示されますので、希望のパスワードを入力して［OK］をクリックしてください。下記のスクリーンショットをご確認ください：
5。パスワードを入力したら、［OK］をクリックしてください。これでワークシートは保護されますが、あなたや他のユーザーも引き続き、ワークシート左側のプラス・マイナスのアウトライン記号を使ってグループの展開や折りたたみが可能です。下記のスクリーンショットをご参照ください：
ヒントと注意点：
- ワークシートがすでに保護されている場合は、コードは実行されません。必ず事前に保護を解除してください。
- VBA による保護は高度なシナリオでは効果的ですが、マクロの使用が制限された環境や VBA に不慣れなユーザーには適用できません。
- マクロを有効にしたブックを共有する際は、これらの機能を正しく動作させるため、受信者に必ずマクロを有効化するようお知らせください。
メリット：この方法を使えば、保護プロセスを自動化したり、許可する操作を柔軟にカスタマイズしたりできます。
制限事項：マクロを有効にする必要がありますが、セキュリティ上の理由から、すべてのユーザーまたは組織が VBA の使用を許可しているわけではありません。
マクロ実行後にエラーが発生したり、グループ化機能が期待通りに動作しない場合は、以下の点を再度確認してください：
- マクロを実行する前に、ワークシートの保護が解除されました。
- アウトライン記号（プラス／マイナス）は、保護する前にすでに［データ］＞［グループ化］から作成されています。
- プロンプトが表示されたら、正しいパスワードを入力するか、トラブルシューティングのためにより簡単なパスワードをお試しください。
- Excel のマクロ設定により、VBA が実行可能になっています。
最高の Office 業務効率化ツール
| 🤖 | KUTOOLS AI アシスタント：次に基づいてデータ分析を革新します：インテリジェント実行 ｜ コード生成｜ カスタム数式作成 ｜ データ分析とチャート生成｜ 拡張機能呼び出し… |
| 人気の機能：検索・ハイライト、または重複をマーキング ｜ 空白行を削除する ｜ データを失うことなく列の結合またはセルを ｜ 数式を使用しない四捨五入... | |
| スーパー LOOKUP：複数条件 VLookup ｜ 複数値 VLookup ｜ 複数シート間 VLookup ｜ ファジーマッチ.... | |
| 高度なドロップダウンリスト：ドロップダウンリストをすばやく作成 ｜ 連動型ドロップダウンリスト ｜ 複数選択可能なドロップダウンリスト.... | |
| 列マネージャー：指定した数の列を追加｜列の移動｜非表示列の表示状態を切り替え｜範囲および列の比較... | |
| 注目の機能：グリッドフォーカス ｜ デザインビュー ｜強化された数式バー ｜ ワークブックとシートマネージャー ｜ リソースライブラリ（オートテキスト）｜ 日付ピッカー ｜ ワークシートの統合 ｜ 暗号化／セルの復号化 ｜ リストからメール送信 ｜ スーパーフィルター ｜ 特殊フィルタ（太字のフォントを持つセルをフィルタリング／斜体／取り消し線。。。） 。。。 | |
| トップ15 ツールセット：12 テキストツール（テキストの追加、特定の文字を削除、...）｜ 50+チャートタイプ（ガントチャート、...）｜ 40+実用的関数（誕生日に基づいて年齢を計算します、...）｜ 19 挿入ツール（QR コードを挿入、パスから画像を挿入、...）｜ 12 変換ツール（単語に変換する、為替レートの変換、...）｜ 7 結合と分割ツール（高度な行のマージ、セルの分割、...）｜さらに多数 |
Kutools for Excel でExcel スキルを強化し、これまでにない効率を体験しましょう。Kutools for Excel は、生産性を高め、時間を大幅に節約できる高度な機能を300 以上提供します。最も必要な機能を今すぐ入手するにはこちらをクリック。。。
Office Tab は Office にタブインターフェースをもたらし、作業を大幅に簡単にします
- Word、Excel、PowerPoint でタブを使った編集と閲覧を有効にします。Publisher、Access、Visio、Project でもご利用いただけます。
- 複数のドキュメントを、新しいウィンドウではなく、同じウィンドウ内の新しいタブで開いたり作成したりできます。
- 日々の生産性を50％も向上させ、毎日数百回ものマウスクリックを削減します！
すべてのKutools アドインが、たった1 つのインストーラーで完結。
Kutools for Officeスイートには、Excel ・Word ・Outlook ・PowerPoint 用のアドインと Office Tab Pro が含まれており、複数の Office アプリを横断して作業するチームに最適です。
- オールインワンスイート— Excel、Word、Outlook、PowerPoint 用アドイン＋Office Tab Pro
- インストーラー1 つ、ライセンス1 つ— 数分でセットアップ可能（MSI 対応）
- 連携してさらにパワーアップ— Office アプリ全体で生産性が向上
- 30 日間のフル機能トライアル— 登録不要、クレジットカード不要
- 最高のお得感— 個別アドイン購入よりお得