1

いくつかのセルとワークシートをロックし、ワークシート用のマクロを持っていますが、ワークシートをロックしてマクロを同時に実行する方法が見つかりません。ロックされているときにマクロを実行しようとすると、エラーが発生します。

    Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim g As Long
Dim r As Long
Dim y As Long
Dim overallhealth As Range
Dim varaincerange As Range
Set varaincerange = Sheets("D").Range("B5:B9")
Set overallhealth = Sheets("D").Range("B4")
y = Application.WorksheetFunction.CountIf(varaincerange, "y")
g = Application.WorksheetFunction.CountIf(varaincerange, "g")
r = Application.WorksheetFunction.CountIf(varaincerange, "r")
If g = 5 Then
overallhealth = "G"
ElseIf g = 4 And y = 1 Then
overallhealth = "G"
ElseIf r >= 2 Then
overallhealth = "R"
ElseIf y = 1 And r = 1 Then
overallhealth = "Y"
ElseIf y > 1 And r >= 1 Then
overallhealth = "R"
ElseIf y = 1 And r > 1 Then
overallhealth = "R"
ElseIf y >= 3 Then
overallhealth = "R"
ElseIf g = 3 And y = 2 Then
overallhealth = "Y"
ElseIf g = 4 And r = 1 Then
overallhealth = "Y"
End If
End Sub

セルとワークシートがロックされ保護されているときにマクロを実行するにはどうすればよいですか?

ありがとうございました！

4

1 に答える 1

0

マクロの先頭で保護を解除するには、次のコマンドを使用します。

Sheets（ "D"）。"パスワード"の保護を解除します

そして最後にそれを再保護します

Sheets（ "D"）。Protect "password"

于 2013-02-18T15:24:01.543 に答える