Here is sample code:

If Worksheets("Sheet1").Range("E5").Value = "1" Then
Worksheets("Sheet1").Protect
Else
If Worksheets("Sheet1").Range("E5").Value = "2" Then
Worksheets("Sheet1").Unprotect
Worksheets("Sheet1").Range("J8").Value = "111"
End If
End If

When I choose the value 2 in the dropdown list of range E5, it can
unprotect this worksheet. But, it doesn't execute the clause after
unprotect. However, after I click anything on this worksheet, the
clause after unprotect runs(111 appears on the range J8). I am confused
about this. Do you know how to fix this problem?Thank you!

Best Regards

Sam

I see no reason why what you have posted shouldn't work. The syntax could be
cleaned up a bit but it should not affect the actual execution... In your
title you mentioned "event". Is this code executed based on an event?

with Worksheets("Sheet1")
If .Range("E5").Value = "1" Then
.Protect
ElseIf .Range("E5").Value = "2" Then
.Unprotect
.Range("J8").Value = "111"
End If
end with

--
HTH...

Jim Thomlinson


"sam" wrote:

Here is sample code:

If Worksheets("Sheet1").Range("E5").Value = "1" Then
Worksheets("Sheet1").Protect
Else
If Worksheets("Sheet1").Range("E5").Value = "2" Then
Worksheets("Sheet1").Unprotect
Worksheets("Sheet1").Range("J8").Value = "111"
End If
End If

When I choose the value 2 in the dropdown list of range E5, it can
unprotect this worksheet. But, it doesn't execute the clause after
unprotect. However, after I click anything on this worksheet, the
clause after unprotect runs(111 appears on the range J8). I am confused
about this. Do you know how to fix this problem?Thank you!

Best Regards

Sam

It is one more event after unprotected that specific worksheet, like
enable some grayed option buttons.
obj.Object.Enabled = False
However, I need to click the worksheet again to make it happen. I don't
know why the code couldn't execute it directly.Do you have some idea
regarding this issue?

Regards

Sam

Jim Thomlinson wrote:
I see no reason why what you have posted shouldn't work. The syntax could be
cleaned up a bit but it should not affect the actual execution... In your
title you mentioned "event". Is this code executed based on an event?

with Worksheets("Sheet1")
If .Range("E5").Value = "1" Then
.Protect
ElseIf .Range("E5").Value = "2" Then
.Unprotect
.Range("J8").Value = "111"
End If
end with

--
HTH...

Jim Thomlinson


"sam" wrote:

Here is sample code:

If Worksheets("Sheet1").Range("E5").Value = "1" Then
Worksheets("Sheet1").Protect
Else
If Worksheets("Sheet1").Range("E5").Value = "2" Then
Worksheets("Sheet1").Unprotect
Worksheets("Sheet1").Range("J8").Value = "111"
End If
End If

When I choose the value 2 in the dropdown list of range E5, it can
unprotect this worksheet. But, it doesn't execute the clause after
unprotect. However, after I click anything on this worksheet, the
clause after unprotect runs(111 appears on the range J8). I am confused
about this. Do you know how to fix this problem?Thank you!

Best Regards

Sam