VBA代码允许在受保护的工作簿中进行分组/取消分组

Question

我正在使用下面的代码在关闭时自动保护和保存工作簿。但是，当我重新打开工作簿时，此代码不允许我使用分组/取消分组功能。我可以编辑此代码以允许分组/取消分组吗？

Private Sub Workbook_BeforeClose(Cancel As Boolean)
Dim ws As Worksheet

For Each ws In ActiveWorkbook.Worksheets

    ws.Protect Password:="your password", UserInterfaceOnly:=True, AllowFormattingColumns:=True
    ws.EnableOutlining = True

Next ws
ThisWorkbook.Protect "your password", True

ThisWorkbook.Save

End Sub

我尝试使用下面的代码来允许“打开/打开”组，但是它并没有达到我的预期效果。我必须在工作表中插入一个按钮。该代码确实可以通过按钮使用。我希望能使用一种自动代码来解决不使用按钮的分组/取消分组问题。

Sub Workbook_Open()
For Each ws In Sheets
   With ws
       .Unprotect Password:="your password"
       .Protect Password:="your password", UserInterfaceOnly:=True
       .EnableOutlining = True
    End With
Next ws
End Sub