Excel 保护工作表时如何分组显示

?

?

在 excel 2007下测试过

?

代码作用域：thisworkbook

?

Private Sub Workbook_Open()    Sheets(1).Protect Password:="***", userInterFaceonly:=True    Sheets(1).EnableOutlining = TrueEnd Sub

?

?

?