如何對受保護的工作表中的行進行分組和取消分組？

如何對受保護的工作表中的行進行分組和取消分組？

眾所周知，在受保護的工作表中，應用某些操作有很多限制。 例如，我們無法在分組數據和未分組數據之間切換。 有沒有一種方法可以對受保護的工作表中的行進行分組或取消分組？

使用VBA代碼對受保護的工作表中的行進行分組和取消分組

使用VBA代碼對受保護的工作表中的行進行分組和取消分組

也許，沒有其他解決該問題的好方法，但是使用VBA代碼，請執行以下操作：

1。 激活您要使用的工作表，請確保該工作表尚未受到保護。

2。 然后按住 ALT + F11 鍵，然后打開 Microsoft Visual Basic for Applications窗口.

3。 點擊 插頁 > 模塊，然后將以下代碼粘貼到 模塊窗口.

VBA代碼：在受保護的工作表中對行進行分組和取消分組

Sub EnableOutlining() Update 20140603 Dim xWs As Worksheet Set xWs = Application.ActiveSheet Dim xPws As String xPws = Application.InputBox("PassWord:", xTitleId, "", Type:=2) xWs.Protect PassWord:=xPws, Userinterfaceonly:=True xWs.EnableOutlining = True End Sub

4. 然后按 F5 鍵運行該代碼，然后會彈出一個提示框，提醒您輸入密碼以保護當前工作表。 看截圖：

5。 然后點擊 OK，您的工作表已受到保護，但是您可以在此受保護的工作表中展開和收縮輪廓符號，請參見屏幕截圖：

備注：如果您的工作表已經受到保護，則此代碼將不起作用。