Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
If Target.Interior.ColorIndex <> 6 Then
PS = InputBox("请输入密码", "密码核对")
If PS = 123 Then
ActiveSheet.Unprotect Password:="123"
Else
MsgBox "密码错误!"
End If
End If
End Sub
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
With ActiveSheet
.Unprotect Password:="123"
.Range("A:IV").Locked = True
.Range("A:IV").FormulaHidden = True
For Each CL In .UsedRange
If CL.Interior.ColorIndex = 6 Then
AD = CL.Address
CL.Locked = False
CL.FormulaHidden = False
End If
Next
.Protect Password:="123"
End With
End Sub