保護されたシートで行を挿入または削除するにはどうすればよいですか?
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のトラストセンター設定でマクロが有効になっていることを確認してください。
最高のオフィス業務効率化ツール
🤖 | Kutools AI Aide:データ分析を革新します。主な機能:Intelligent Execution|コード生成|カスタム数式の作成|データの分析とグラフの生成|Kutools Functionsの呼び出し…… |
人気の機能:重複の検索・ハイライト・重複をマーキング|空白行を削除|データを失わずに列またはセルを統合|丸める…… | |
スーパーLOOKUP:複数条件でのVLookup|複数値でのVLookup|複数シートの検索|ファジーマッチ…… | |
高度なドロップダウンリスト:ドロップダウンリストを素早く作成|連動ドロップダウンリスト|複数選択ドロップダウンリスト…… | |
列マネージャー:指定した数の列を追加 |列の移動 |非表示列の表示/非表示の切替| 範囲&列の比較…… | |
注目の機能:グリッドフォーカス|デザインビュー|強化された数式バー|ワークブック&ワークシートの管理|オートテキスト ライブラリ|日付ピッカー|データの統合 |セルの暗号化/復号化|リストで電子メールを送信|スーパーフィルター|特殊フィルタ(太字/斜体/取り消し線などをフィルター)…… | |
トップ15ツールセット:12 種類のテキストツール(テキストの追加、特定の文字を削除など)|50種類以上のグラフ(ガントチャートなど)|40種類以上の便利な数式(誕生日に基づいて年齢を計算するなど)|19 種類の挿入ツール(QRコードの挿入、パスから画像の挿入など)|12 種類の変換ツール(単語に変換する、通貨変換など)|7種の統合&分割ツール(高度な行のマージ、セルの分割など)|… その他多数 |
Kutools for ExcelでExcelスキルを強化し、これまでにない効率を体感しましょう。 Kutools for Excelは300以上の高度な機能で生産性向上と保存時間を実現します。最も必要な機能はこちらをクリック...
Office TabでOfficeにタブインターフェースを追加し、作業をもっと簡単に
- Word、Excel、PowerPointでタブによる編集・閲覧を実現。
- 新しいウィンドウを開かず、同じウィンドウの新しいタブで複数のドキュメントを開いたり作成できます。
- 生産性が50%向上し、毎日のマウスクリック数を何百回も削減!
全てのKutoolsアドインを一つのインストーラーで
Kutools for Officeスイートは、Excel、Word、Outlook、PowerPoint用アドインとOffice Tab Proをまとめて提供。Officeアプリを横断して働くチームに最適です。





- オールインワンスイート — Excel、Word、Outlook、PowerPoint用アドインとOffice Tab Proが含まれます
- 1つのインストーラー・1つのライセンス —— 数分でセットアップ完了(MSI対応)
- 一括管理でより効率的 —— Officeアプリ間で快適な生産性を発揮
- 30日間フル機能お試し —— 登録やクレジットカード不要
- コストパフォーマンス最適 —— 個別購入よりお得