Microsoft Excelの色に基づいてセルをロックする方法

Microsoft Excelでは、条件を適用できますセルのフォーマット。セル内の値が設定した特定のルールを満たしている場合、条件付き書式設定機能により、セル内のテキストの色、塗りつぶしの色、またはその両方が変更されます。これは、すぐに使用できる基本機能ですが、色に基づいてセルをロックする場合は、それを行うための小さなVBAスクリプトが必要です。

条件付き書式を使用して、セルの色、または手動で色を好きな色に変更できます。 VBSスクリプトは、セルをロックするための条件付き書式設定に依存しません。セルに色を付けるだけです。

色に基づいてセルをロック

VBAスクリプトを作成する前に、参照しているセルの色を知る必要があります。 VBAは色をそのまま表示しません。カラーコードを介してそれらを参照します。

最初に行う必要があるのは、セルを与えることです色。簡単に参照できる基本的な黄色を使用しました。別の色を使用する場合は、このWebサイトを使用して、使用する必要のある色コードを見つけてください。黄色に使用しているカラーコードは＃FFFF00です。

Excelで、[開発]タブを有効にしてから切り替えます。 Visual Basicボタンをクリックし、「このワークシート」に次を貼り付けます。このスクリプトは、スーパーユーザーのデイブによって作成されました。

Sub WalkThePlank()
dim colorIndex as Integer
colorIndex = FFFF00
Dim rng As Range
For Each rng In ActiveSheet.UsedRange.Cells
Dim color As Long
color = rng.Interior.ColorIndex
If (color = colorIndex) Then
rng.Locked = True
else
rng.Locked = false
End If
Next rng
End Sub

スクリプトを実行すると、設定した色のセルがすべてロックされます。色の色コードは、スクリプトのこの行に設定されます。

colorIndex = FFFF00

FFFF00は黄色を表し、それは使用している色に適用されるカラーコードに置き換える必要があるもの。基本色を使用するのが最善であることに言及する必要があります。これを追加したら、Excelファイルをマクロ対応ファイルとして保存する必要があります。そうしないと、VBAスクリプトは保存されません。

ロックされたセルは簡単にロック解除できます。 ロックはパスワードで保護されたロックではなく、他の人が必要に応じてセルの値を変更できないようにします。ファイルの偶発的な変更を防ぐ通常のロックです。