Excelで空でないセルをロックして事前に検出する方法は？

データ範囲内のいくつかの空白セルにデータを入力するワークシートがあるとします。次に、すべてのデータセルをロックして保護し、新しい値を入力するために空白セルのロックを解除したままにします。 空でないセルをExcelでできるだけ早くロックして保護するにはどうすればよいでしょうか。

保護シートを使用して、選択した範囲内のすべての空でないセルをロックして保護します

VBAコードを使用して、使用範囲内のすべての空でないセルをロックおよび保護します

保護シートを使用して、選択した範囲内のすべての空でないセルをロックして保護します

通常、Excelでこのジョブを完了するには、次の方法を段階的に実行します。

1。 データセルをロックおよび保護するセル範囲を選択し、[ ホーム > 検索と選択 > 特別に行く、スクリーンショットを参照してください：

2。 の中に 特別に行く ダイアログボックスで ブランク 選択 セクション、スクリーンショットを参照してください：

3。 次に、をクリックします OK ボタンをクリックすると、すべての空白セルが一度に選択され、を押します。 Ctrl + 1 キーを押して セルの書式設定 ダイアログボックス、下 保護 タブをクリックし、 ロック オプション、スクリーンショットを参照してください：

4に設定します。 OK をクリックします。 OK、[OK]をクリックします レビュー > 保護シート、必要に応じてパスワードを入力して確認します。スクリーンショットを参照してください。

5に設定します。 OK をクリックします。 OK ダイアログを閉じると、すべてのデータセルが保護され、空白のセルのみが保護されなくなります。

VBAコードを使用して、使用範囲内のすべての空でないセルをロックおよび保護します

上記の方法には複数のステップがあります。できるだけ早くそれを達成するために、次のVBAコードがあなたに有利に働きます。次のようにしてください。

1。 を押し続けます Alt + F11 キーを押して アプリケーション向け Microsoft Visual Basic 窓。

2。 次に、をクリックします インセット > モジュール、次のコードをに貼り付けます モジュール 窓。

VBAコード：ワークシート内の空でないセルをすべてロックして保護します

Sub UnlockEmptyCells()
'Updateby Extendoffice
    Application.ScreenUpdating = False
    Cells.Locked = True
    Selection.SpecialCells(xlCellTypeBlanks).Locked = False
    ActiveSheet.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True
    Application.ScreenUpdating = True
End Sub

3。 そして、 F5 このコードを実行するためのキー。使用範囲内で一度に保護されるのは空白以外のセルのみです。