1、用VBA
当前表代码，下面“1”是密码，自已修改
Private Sub Worksheet_Change(ByVal Target As Range)
ActiveSheet.Protect Password:="1", DrawingObjects:=True, Contents:=True, Scenarios:=True
End Sub
使用参考下面
Excel工作表被修改后自动升序排列
2、加密VBA
