如何实用宏为Excel工作表公式加密

Question

如题所述

Answer 1

代码如下：
Sub 密码保护()
　　ActiveSheet.Unprotect ("888888") '默认密码，自行修改
　　Cells.Select
　　Selection.Locked = False
　　Selection.SpecialCells(xlCellTypeFormulas, 23).Select
　　Selection.Locked = True
　　Selection.FormulaHidden = True
　　ActiveSheet.Protect ("123456")
　　ActiveSheet.EnableSelection = xlUnlockedCells
　　End Sub