1、首先我们打开一个空白的工作表
3、Ctrl+1打开单元格格式对话框
5、审阅选项卡→保护工作表
7、Alt+F11打开VBE窗口,在左上的工程窗口双击要保护的工作表,把下面的代码粘贴进去就OK了Option呶蓟鹭毵ExplicitPrivateSubWorksheet_Change(ByValTargetAsRange)ActiveSheet.UnprotectPassword:="123456"IfTarget<>""ThenTarget.Locked=1ActiveSheet.ProtectPassword:="123456"EndIfEndSub
