按ALT+F11然后把这个代码粘贴过去,按F5(里面的123456可以换成你想设的密码
Sub Macro1()
Dim n As Integer
For n = 1 To Worksheets.Count
Worksheets(n).Protect DrawingObjects:=True, Contents:=True, Scenarios:=True,password:="123456"
Next
End Sub
在“审阅”选项卡里有个“保护工作薄”的功能,你设置个密码就可以了!
设置工作表的保护功能,工具==》保护==》保护工作表,就可以了
置工作表的保护功能,工具==》保护==》保护工作表,
或者写个代码,弄个保存命令密码就OK
选项/安全 设置修改密码
设置个密码,不告诉他!