Excel 如何隐藏表内的所有公式

Excel 如何隐藏表内的所有公式

Excel可以设置隐藏表内所有公式，具体操作如下：
一、使用工具：excel2010
二、操作步骤：
1、进入excel2010并打开文档，点击最左上角方框选中所有单元格，然后右击鼠标，选择“设置单元格格式”，如图：

2、在“保护”选项卡中勾选中“隐藏”并按“确定”按钮，如图：

3、点击“审阅”中的“保护工作表”，如图：

4、不必输入密码，默认勾选“选定锁定单元格”和“选定未锁定的单元格”并按“确定”按钮，如图：

5、这是未进行设置隐藏保护的表格，公式会显示出来，如图：

6、这是设置了隐藏保护的表格，公式不会显示出来，如图：

全选——Ctrl+1——保护：隐藏（勾选）——确定。
菜单栏——工具——保护——保护工作表——两次输入密码——确定。

可以用vba实现：
1. 对于选择到的单元格，如果有公式就转化值，这样别人就无法看到公式啦。
2. 接着，你再选择其它单元格区域时，宏会自动恢复原来单元格中的公式，
所以绝对不会影响到你文件中的公式的使用。

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
'当选择了新的单元格区域时，该宏代码会自动执行。

Static FormulaText '设置可长期储存的变量FormulaText，可放入公式内容

If FormulaText <> "" Then '如果该变量不为空……
On Error Resume Next
Range("FormulaCell").Formula = FormulaText
'把上次储存到的公式内容重新写入到上次选择的有公式的单元格中。
End If

If Target.HasFormula Then '如果判断新选择的单元格内有公式
Target.Name = "FormulaCell" '首先把该有公式的单元格命名为FormulaCell
FormulaText = Target.Formula '其次把该单元格内公式内容存储到变量FormulaText中以备用。
Target = Target '最后把该单元格内公式转化为计算结果值来表示。
End If
End Sub

如以上回答内容为低俗、色情、不良、暴力、侵权、涉及违法等信息，可以点下面链接进行举报！

点此我要举报以上问答信息