第1个回答 2012-04-09
这个可以通过插入两个选项按钮来实现,一个yes一个no
再分别插入两个模块,一个是yes指定的宏,一个是no指定的宏
Sub yes选项()
ActiveSheet.Protect DrawingObjects:=False, Contents:=False, Scenarios:=False
End Sub
Sub no选项()
ActiveSheet.Protect DrawingObjects:=False, Contents:=False, Scenarios:=False
Range("B1:B2").Select
Selection.ClearContents
ActiveSheet.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True
End Sub
这样就可以实现你想要的功能了,希望能帮到你