Excel在工作表中隐藏公式和VBA代码保护
Excel在工作表中隐藏公式
在Excel中辛辛苦苦编制的计算公式，通常不希望使用者查看和修改。怎么办呢？利用Excel锁定、隐藏和保护工作表的功能，把公式隐藏和锁定起来。
1、选中整个工作表数据区域，执行“格式→单元格”命令，打开“单元格格式”对话框。
2、切换到“保护”标签，清除“锁定”选项前面复选框中的“∨” 号，确定返回。
3、执行“编辑定位”命令，打开“定位”对话框，单击其中的“定位条件”按钮，打开“定位条件”对话框。
4、选中其中的“公式”选项，确定返回，一次性选定工作表中所有包含公式的单元格。……选中你要隐藏公式的单元格(如果不在连续范围内,可以按Ctrl键选中它们)。
5、再次打开“单元格格式”对话框，切换到“保护”标签下，在“锁定”和“隐藏”选项前面复选框中加上“∨” 号，确定返回。
6、执行“工具→保护→保护工作表”命令，打开“保护工作表”对话框，输入密码，确定，再确认输入一次密码，确定返回即可。
注意：如果自己需要查看或修改公式，请先执行“工具→保护→撤销工作表保护”命令，解除对工作表的保护。
选中整张表-设置单元格格式-保护-去掉隐藏（锁定）的勾-确定-编辑-定位-定位条件-选公式-确定-右键一格式单元格-设置单元格格式-勾选隐藏（锁定）-确定-工具-保护-工作表-确定即可。
Excel VBA代码加密保护：工具-VBAProject属性-保护：勾选查看时锁定工程，密码，确定；保存
Excel在工作表中隐藏公式
在Excel中辛辛苦苦编制的计算公式，通常不希望使用者查看和修改。怎么办呢？利用Excel锁定、隐藏和保护工作表的功能，把公式隐藏和锁定起来。
1、选中整个工作表数据区域，执行“格式→单元格”命令，打开“单元格格式”对话框。
2、切换到“保护”标签，清除“锁定”选项前面复选框中的“∨” 号，确定返回。
3、执行“编辑定位”命令，打开“定位”对话框，单击其中的“定位条件”按钮，打开“定位条件”对话框。
4、选中其中的“公式”选项，确定返回，一次性选定工作表中所有包含公式的单元格。……选中你要隐藏公式的单元格(如果不在连续范围内,可以按Ctrl键选中它们)。
5、再次打开“单元格格式”对话框，切换到“保护”标签下，在“锁定”和“隐藏”选项前面复选框中加上“∨” 号，确定返回。
6、执行“工具→保护→保护工作表”命令，打开“保护工作表”对话框，输入密码，确定，再确认输入一次密码，确定返回即可。
注意：如果自己需要查看或修改公式，请先执行“工具→保护→撤销工作表保护”命令，解除对工作表的保护。
选中整张表-设置单元格格式-保护-去掉隐藏（锁定）的勾-确定-编辑-定位-定位条件-选公式-确定-右键一格式单元格-设置单元格格式-勾选隐藏（锁定）-确定-工具-保护-工作表-确定即可。
Excel VBA代码加密保护：工具-VBAProject属性-保护：勾选查看时锁定工程，密码，确定；保存
温馨提示：内容为网友见解，仅供参考
第1个回答 2012-06-02
先选择需要隐藏公式的单元格，
鼠标右键--设置单元格格式--保护--隐藏（打勾）
审阅--保护工作表--输入密码
鼠标右键--设置单元格格式--保护--隐藏（打勾）
审阅--保护工作表--输入密码
第2个回答 2012-06-02
不知道 你的是哪个版本了，加密就在保护工作簿中设置密码就可以
在加密的时候下面有个选择的地方是允许别人打开可以保用的功能，你把那个选中单元格的对勾也给点没有了，那样就看不到公式了希望能帮助到你
楼下的方式是对的
在加密的时候下面有个选择的地方是允许别人打开可以保用的功能，你把那个选中单元格的对勾也给点没有了，那样就看不到公式了希望能帮助到你
楼下的方式是对的
第3个回答 2012-08-27
Sub mima2()
Dim sht As Worksheet, rng As Range
On Error Resume Next
For Each sht In ThisWorkbook.Worksheets
With sht
.Unprotect Password:="khgx123" '撤销工作表保护
.Range("A:IV").Locked = False '取消所有单元格格式》保护 中的锁定选项
With .UsedRange.SpecialCells(xlCellTypeFormulas) '定位所有含有公式的单元格
.Locked = True '选中所有单元格格式》保护 中的锁定选项
.FormulaHidden = True '隐藏公式
End With
.Protect Password:="khgx123" '保护工作表，并将密码设置为khgx123
End With
Next
End Sub
Dim sht As Worksheet, rng As Range
On Error Resume Next
For Each sht In ThisWorkbook.Worksheets
With sht
.Unprotect Password:="khgx123" '撤销工作表保护
.Range("A:IV").Locked = False '取消所有单元格格式》保护 中的锁定选项
With .UsedRange.SpecialCells(xlCellTypeFormulas) '定位所有含有公式的单元格
.Locked = True '选中所有单元格格式》保护 中的锁定选项
.FormulaHidden = True '隐藏公式
End With
.Protect Password:="khgx123" '保护工作表，并将密码设置为khgx123
End With
Next
End Sub
相似回答
