メインコンテンツへスキップ

Kutools for Office — 1つのスイート、5つのツールで、もっと多くのことを成し遂げましょう。

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

Author Xiaoyang Last modified

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

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

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


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

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

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

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

a screenshot of selecting Format Cells after right-clicking on the selected rows

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

a screenshot of unchecking the Locked option in the Format Cells dialog box

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

a screenshot of enabling the Protect Sheet feature

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

a screenshot of the Protect Sheet dialog box with password specified and Insert Row and Delete Row options checked

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

a screenshot of rows that can be deleted and inserted in a protected worksheet

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

より広い範囲で挿入や削除を許可する必要がある場合や、さらに自動化したい場合は、以下の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はお好みの言語で利用可能 ― 英語、スペイン語、ドイツ語、フランス語、中国語、その他40以上の言語に対応!

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