无法使用VBA隐藏基于共享受保护工作表中空白单元格的行

Question

我目前正在处理共享文档，并且我相信使用Excel 2016时无法保护/取消保护共享文档。当我的文档受到保护时，我无法根据特定单元格的值隐藏行，我有什么办法允许宏在保护模式下运行？

Sub HideBlanks()
Dim rngBlnk As Range
On Error Resume Next
Set rngBlnk = Range("A6:B10").SpecialCells(xlCellTypeBlanks)
On Error GoTo 0
If Not rngBlnk Is Nothing Then
Debug.Print rngBlnk.Address()
rngBlnk.EntireRow.Hidden = True

End If

End Sub