ALT+F11,删除其中的Private Sub Worksheet_SelectionChange(ByVal Target As Range)代码
通常这个是代码才能做到的工具-选项-安全性-宏安全性-高即可