Private Sub workbook_Open()
For Each sht In Worksheets
sht.Protect Password:="123456", userinterfaceonly:=True
sht.EnableOutlining = True '保护工作表，并将密码设置为指定内容，可修改此处更换密码
Next
End Sub