Question

Excel工作表保护时，用VBA成功运行组合功能后，排序、筛选和下拉菜单功却不能用了

第一步 对Excel作保护工作表时， 勾选了“选定未锁定的单元格”、“排序”、“使用自动筛选”、“编辑对 象”和“编辑方案” 查看以下图片

第二步 由于工作表使用了组功能， 保护工作表后不能打开组或重新组合组，所以录入下列VBA程序，保障组功能依然运行正常。 Private Sub Workbook_Open()
Worksheets("Outbound Daily Report").ProtectPassword:="123", userinterfaceonly:=True
Worksheets("Outbound Daily Report").EnableOutlining = True
End Sub
第三步 调试工作表，保护工作表功能、组功能、筛选功能、排序功能、数据有效性下拉菜单功能一切均可正常使用。
第四步 保存工作表，关闭工作表，无任何异常提示！
第五步 重新打开工作表，无异常提示，保护工作表功能生效，组功能也正常运行，但发现单元格排序、帅选和下拉菜单失效，鼠标点击无反应。见图

第六步 撤销工作表保护，发现第一步对“排序”、“使用自动筛选”、“编辑对象”和“编辑方案”的勾选 自动取消了，才造成了第五步的异常现象！ 见图

第七步 于是重复勾选上它们，保护工作表后，如第三步一样均可正常使用。关闭表后重新打开，第五步和第六步的异常现象又重复发生了。
依照猜想，应该是录入的VBA 程序对勾选项 “排序”、“使用自动筛选”、“编辑对象”和“编辑方案” 作了取消指令。
跪求Excel高手填补此VBA程序（以上），使其在工作表保护的情况下，组功能、筛选功能、排序功能、数据有效性下拉菜单功均可正常使用。十分感谢谢！！！





Answer 1

设置可编辑区域即可，如果确实表格是通过共享的，建议只读即可，保护很容易去掉的。
另外如果你的是规范化的数据建议做个vba筛选处理等。数据就不会乱

追问

只读不可行，表格需要多部门共同完成。
VBA程序让组功能正常运行了， 可否加几句指令也让筛选功能、排序功能、数据有效性下拉菜单功均可正常使用？？？