電子表格中的公式是我們在編輯文檔時(shí)經(jīng)常使用的，而且也是我們在數(shù)據(jù)分析和計(jì)算時(shí)必不可少的工具。但是，在一些情況下，我們希望將這些公式隱藏起來，以避免被他人隨意更改，此時(shí)就需要用到VBA代碼來實(shí)現(xiàn)一鍵隱藏

電子表格中的公式是我們在編輯文檔時(shí)經(jīng)常使用的，而且也是我們在數(shù)據(jù)分析和計(jì)算時(shí)必不可少的工具。但是，在一些情況下，我們希望將這些公式隱藏起來，以避免被他人隨意更改，此時(shí)就需要用到VBA代碼來實(shí)現(xiàn)一鍵隱藏公式的功能。

1. 新建按鈕

首先，我們需要在開發(fā)工具中插入一個(gè)命令按鈕（ActiveX控件），并將其屬性Caption修改為“保護(hù)公式”。

2. 查看代碼

接下來，選擇該控件，進(jìn)入開發(fā)工具，查看代碼（或右擊查看代碼），在彈出的VBA按鈕代碼輸入界面中輸入如下代碼：

Private Sub CommandButton1_Click()

, True, True

For Each c In ActiveSheet.Cells.SpecialCells(xlCellTypeFormulas)

If c.HasFormula Then

c.Locked True

True

End If

Next

End Sub

這段代碼的作用是將當(dāng)前工作表進(jìn)行保護(hù)，并將其中的所有公式隱藏起來。

3. 運(yùn)行代碼

完成代碼輸入后，關(guān)閉VBA界面，點(diǎn)擊開發(fā)工具取消設(shè)計(jì)模式，然后點(diǎn)擊按鈕即可運(yùn)行隱藏保護(hù)功能。

4. 修改名稱和代碼

如果想要只保護(hù)數(shù)據(jù)和隱藏公式，可以將控件屬性的名稱修改為“隱藏公式”，并將Caption改為相應(yīng)的文字，然后輸入以下代碼：

Private Sub CommandButton1_Click()

, True, True

For Each c In ActiveSheet.Cells.SpecialCells(xlCellTypeFormulas)

If c.HasFormula Then

c.Locked True

True

End If

Next

End Sub

5. 撤銷保護(hù)

如果需要繼續(xù)編輯內(nèi)容，可以點(diǎn)擊審閱選項(xiàng)卡中的“更改”按鈕，然后選擇“撤銷工作表保護(hù)”，步驟4的代碼無需輸入密碼即可撤銷，而步驟3的代碼則需要輸入密碼解鎖。

總結(jié)

通過以上步驟，我們可以輕松地實(shí)現(xiàn)一鍵隱藏公式的功能，有效地保護(hù)了我們的文檔內(nèi)容。同時(shí)，我們也可以根據(jù)實(shí)際需求進(jìn)行相應(yīng)的修改和調(diào)整，使得代碼更加貼合我們的需求。