是后者啊,但是领导一定要求要有这么个功能啊
你帮我看看
Private Sub CommandButton1_Click()
On Error Resume Next
Dim Rng As Range
For Each Rng In ActiveSheet.UsedRange
If Rng.BackColor = RGB(0, 15, 0) Or Rng.HasFormula Then
Rng.Locked = True
End If
Next
ActiveSheet.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True
End Sub