如何在Excel中保護(hù)數(shù)據(jù)透視表？
在Excel中，我們?nèi)绾伪Ｗo(hù)數(shù)據(jù)透視表以防止其他用戶拖動(dòng)字段或弄亂布局？ 本文，我將討論一些保護(hù)工作表中數(shù)據(jù)透視表的方法。
使用VBA代碼保護(hù)數(shù)據(jù)透視表
保護(hù)數(shù)據(jù)透視表，但允許訪問(wèn)切片器
使用VBA代碼保護(hù)數(shù)據(jù)透視表以下VBA代碼可以幫助您保護(hù)數(shù)據(jù)透視表，請(qǐng)按以下步驟操作：
1。 按住 ALT + F11 鍵打開(kāi) Microsoft Visual Basic應(yīng)用程序 窗口。
2。 點(diǎn)擊 插頁(yè) > 模塊，然后將以下代碼粘貼到 模塊 窗口。
VBA代碼：保護(hù)數(shù)據(jù)透視表
Sub RestrictPivotTable()Updateby ExtendofficeDim xpf As PivotFieldApplication.ScreenUpdating = FalseWith ActiveSheet.PivotTables(1).EnableDrilldown = False.EnableFieldList = False.EnableFieldDialog = False.PivotCache.EnableRefresh = FalseFor Each xpf In .PageFieldsWith pf.DragToPage = False.DragToRow = False.DragToColumn = False.DragToData = False.DragToHide = FalseEnd WithNext xpfEnd WithApplication.ScreenUpdating = FalseMsgBox "The pivot table has been protected!", vbInformation, "Kutools for Excel"End SubCopy3。 然后按 F5 鍵運(yùn)行此代碼，然后會(huì)彈出一個(gè)提示框，提醒您數(shù)據(jù)透視表已受到保護(hù)，請(qǐng)參見(jiàn)屏幕截圖：
筆記：
1.此代碼將禁用數(shù)據(jù)透視表中的許多功能，例如防止用戶將任何字段拖到其他位置，并禁用“字段列表”，“字段設(shè)置”，“追溯”和“刷新”功能。
2.如果活動(dòng)工作表中有多個(gè)數(shù)據(jù)透視表，則此代碼僅應(yīng)用于最后一個(gè)數(shù)據(jù)透視表。
保護(hù)數(shù)據(jù)透視表，但允許訪問(wèn)切片器有時(shí)，您可能想保護(hù)數(shù)據(jù)透視表，但允許訪問(wèn)切片器以應(yīng)用過(guò)濾器功能，以下步驟可能會(huì)對(duì)您有所幫助。
1。 插入切片器后，右鍵單擊它，然后選擇 大小和屬性 從上下文菜單中，查看屏幕截圖：
2。 在 格式切片器 窗格中單擊 租房 展開(kāi)選項(xiàng)，然后取消選中 鎖定 選項(xiàng)，請(qǐng)參見(jiàn)屏幕截圖：
3。 然后關(guān)閉窗格，然后單擊 進(jìn)入步驟三：發(fā)送 > 保護(hù)工作表 為了保護(hù)此表，請(qǐng)參見(jiàn)屏幕截圖：
4。 在彈出 保護(hù)工作表 對(duì)話框，然后檢查 選擇解鎖的單元格 和 使用數(shù)據(jù)透視表和數(shù)據(jù)透視圖 選項(xiàng)僅在 允許該工作表的所有用戶 列表框，然后輸入密碼并確認(rèn)，請(qǐng)參見(jiàn)屏幕截圖：
5。 然后點(diǎn)擊 OK 按鈕以關(guān)閉對(duì)話框，現(xiàn)在，當(dāng)您單擊數(shù)據(jù)透視表報(bào)表并嘗試對(duì)其進(jìn)行更改時(shí)，它不會(huì)被修改，但是您可以根據(jù)需要應(yīng)用“切片器”功能。
最佳辦公生產(chǎn)力工具
將小時(shí)轉(zhuǎn)化為分鐘 Kutools for Excel!準(zhǔn)備好增強(qiáng)您的 Excel 任務(wù)了嗎？ 利用的力量 Kutools for Excel - 您終極的節(jié)省時(shí)間的工具。 簡(jiǎn)化復(fù)雜的任務(wù)并像專業(yè)人士一樣瀏覽數(shù)據(jù)。 以閃電般的速度體驗(yàn) Excel！
為什么需要 Kutools for Excel
