保護されたシートで行を挿入または削除するにはどうすればよいですか？ 

Excelワークシートで機密データや共有データを扱う場合、シートを保護することは、偶発的または不正な変更を回避するための一般的な方法です。しかし、設計上、シートの保護は特定の操作を制限します。例えば、特にロックされているセルでは、行の挿入や削除ができません。多くのユーザーが、ワークシートの他の部分は保護しながらも、行の挿入や削除などの編集を許可する必要があるという問題に直面します。このチュートリアルでは、保護されたシートに行を挿入または削除するための実用的な方法を示し、その適用例、注意点、および代替ソリューションについて説明して、データを安全かつ効率的に管理する方法をお伝えします。

保護されたシートに行を挿入または削除する

VBA: 一時的に保護を解除し、挿入/削除を行い、自動的に再保護

保護されたシートに行を挿入または削除する

この解決策は、ワークシートの大部分を保護したまま、ユーザーに限定的な編集権限（例えば、行の挿入や削除）を与えたい場合に最適です。これにより、指定された行やデータセクションは柔軟で編集可能に保たれますが、ワークシートの残りの部分は偶発的な変更や削除から保護されます。

次のステップバイステップの手順に従って、保護されたシートでの行の挿入と削除を有効にしてください：

1. ユーザーが行を挿入または削除できるようにしたい行全体を選択します。このプロセスにより、保護されたワークシート内でこれらの操作が許可される場所が決まります。行を選択後、右クリックしてコンテキストメニューから「セルの書式設定」を選択してください。スクリーンショットをご覧ください：

2. 表示された「セルの書式設定」ダイアログで、「保護」タブに移動します。ここで、「ロック」のチェックを外して、これらの特定のセルまたは行のロックを解除します。ロックを解除することが重要です。そうしないと、他の権限があってもユーザーは変更できなくなります。ただし、保護された状態を維持したい重要な領域を誤ってロック解除しないよう注意してください。スクリーンショットをご覧ください：

3. ダイアログボックスを閉じるため「OK」をクリックします。次に、Excelリボンの「校閲」タブをクリックし、「シートの保護」を選択してワークシートの保護を有効にします。スクリーンショットをご覧ください：

4. 表示された「シートの保護」ダイアログ内にある「このワークシートを使用するすべてのユーザーに許可する」リストで、「行の挿入」と「行の削除」のオプションをチェックします。必要であれば、シートを保護するためのパスワードを入力し、求められたときに確認します。このステップは、ユーザーに必要な編集権限のみを付与し、ワークシートの残りの部分を保護する上で非常に重要です。スクリーンショットをご覧ください：

5. 最後に、「OK」をクリックして新しい設定でシートの保護を有効にします。結果として、構成した権限とアンロックに基づき、指定された行のみが挿入または削除できるようになり、ワークシートの残りの部分は影響を受けません。スクリーンショットをご覧ください：

この方法はほとんどの基本的なニーズに対応できますが、ユーザーはアンロックされた許可範囲外では行の挿入や削除ができないことに注意が必要です。保護を有効にする前に、どのセルがアンロックされているかを必ず確認し、意図しないデータの露出や不十分な保護を避けてください。

より広い範囲で挿入や削除を許可する必要がある場合や、さらに自動化したい場合は、以下のVBAベースのソリューションを検討してください。

VBA: 一時的に保護を解除し、挿入/削除を行い、自動的に再保護

このVBAマクロ方式は、保護されたワークシートで頻繁に行の挿入や削除を行う必要があり、毎回手動でシートのロック解除と再ロックを行いたくないユーザーにとって理想的です。マクロを実行すると、シートの一時的な保護解除、行の操作、そして再度シートが自動で保護されるという流れがボタン1つで完了します。これは、特に共同作業や定期的なタスクにおいて、データが柔軟でありながら常に保護されることを保証します。

このアプローチの主な利点としては、敏感なデータの偶発的な露出を最小限に抑えられることが挙げられ、保護解除の時間枠を制限することで、繰り返しパスワードを入力する手間を省けます。ただし、潜在的な制約として、マクロが有効になっている必要があり、基本的なマクロのセキュリティ理解が求められます。

1. この機能を有効にしたいワークシートを開きます。「開発」タブをクリックしてください（「開発」タブが表示されていない場合、ファイル > オプション > リボンのユーザー設定を介して有効にできます）。次に、「Visual Basic」をクリックします。表示されたVBAエディタウィンドウで、「挿入」>「モジュール」を選択し、次のコードをモジュールに貼り付けます：

Sub InsertRowInProtectedSheet()
    Dim ws As Worksheet
    Dim pwd As String
    Set ws = ActiveSheet
    pwd = InputBox("Enter sheet password:", "KutoolsforExcel")
    
    If pwd = "" Then Exit Sub
    
    On Error Resume Next
    ws.Unprotect Password:=pwd
    
    If Err.Number <> 0 Then
        MsgBox "Incorrect password or unprotect failed!", vbExclamation
        Exit Sub
    End If
    
    On Error GoTo 0
    Dim insertRow As Integer
    insertRow = Application.InputBox("Enter row number to insert:", "KutoolsforExcel", Type:=1)
    
    If insertRow > 0 Then
        ws.Rows(insertRow).Insert Shift:=xlDown, CopyOrigin:=xlFormatFromLeftOrAbove
        MsgBox "Row inserted at " & insertRow, vbInformation
    End If
    
    ws.Protect Password:=pwd, AllowInsertingRows:=True, AllowDeletingRows:=True
End Sub

Sub DeleteRowInProtectedSheet()
    Dim ws As Worksheet
    Dim pwd As String
    Set ws = ActiveSheet
    pwd = InputBox("Enter sheet password:", "KutoolsforExcel")
    
    If pwd = "" Then Exit Sub
    
    On Error Resume Next
    ws.Unprotect Password:=pwd
    
    If Err.Number <> 0 Then
        MsgBox "Incorrect password or unprotect failed!", vbExclamation
        Exit Sub
    End If
    
    On Error GoTo 0
    Dim delRow As Integer
    delRow = Application.InputBox("Enter row number to delete:", "KutoolsforExcel", Type:=1)
    
    If delRow > 0 Then
        ws.Rows(delRow).Delete
        MsgBox "Row " & delRow & " deleted.", vbInformation
    End If
    
    ws.Protect Password:=pwd, AllowInsertingRows:=True, AllowDeletingRows:=True
End Sub

2. VBAエディタを閉じます。行を挿入するには、Alt + F8キーを押してマクロダイアログを開き、「InsertRowInProtectedSheet」を選択して「実行」をクリックします。行を削除するには、「DeleteRowInProtectedSheet」を選択して「実行」をクリックします。操作後にシートがすぐに再保護されるため、継続的な安全性が確保されます。今後の使用のために、ワークブックをマクロ対応ファイル（.xlsm）として保存してください。

ヒント：

• マクロを実行する前に、正しいパスワードを持っていることを確認してください。パスワードが間違っていると、自動化がブロックされます。
• エラーが発生した場合、入力値を確認し、Excelのトラストセンター設定でマクロが有効になっていることを確認してください。