保護されたワークシートで行をグループ化およびグループ解除するにはどうすればよいですか？

ご存知の通り、保護されたワークシートでは、さまざまな操作に制限があります。例えば、データのグループ化とグループ解除を切り替えることができません。保護されたワークシートで行をグループ化またはグループ解除する方法はありますか？

VBAコードを使用して保護されたワークシートで行をグループ化およびグループ解除する

VBAコードを使用して保護されたワークシートで行をグループ化およびグループ解除する

おそらく、この問題を解決するための他の良い方法はなく、VBAコードを使用するしかありません。以下の手順に従ってください：

1. 使用したいワークシートをアクティブにし、まだワークシートが保護されていないことを確認してください。

2. 次に、ALT + F11キーを押しながら開くと、Microsoft Visual Basic for Applicationsウィンドウが開きます。

3. 「挿入」>「モジュール」をクリックし、次のコードをモジュールウィンドウに貼り付けます。

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キーを押してこのコードを実行すると、現在のワークシートを保護するためのパスワード入力を促すダイアログボックスが表示されます。スクリーンショットをご覧ください：

5. 「OK」をクリックすると、ワークシートが保護されますが、この保護されたワークシートでアウトライン記号（O）を展開および縮小することができます。スクリーンショットをご覧ください：

注釈: ワークシートがすでに保護されている場合、このコードは機能しません。