在有组合的情况下如何实现保护带公式单元格？

510437958

如上图，带颜色区域为有公式单元格，但是由于需要组合，对单元格实行保护以后无法使用组合键，使用了论坛上的VBA语句，如通过下面的代码已经使EXCEL 工作簿在保护的状态下使用组合功能，但这是整个工作簿都被保护了，请问如何修改能实现部分区域可编辑？
Private Sub Workbook_Open()
   Worksheets("sheet1").Protect Password:="123", userinterfaceonly:=True
   Worksheets("sheet1").EnableOutlining = True
End Sub
sheet1是工作表名字，123为密码，结果是没有用？不仅没有用吗而且在保存时提示无法保存VB项目，后来又导致点击工作表标签时，只出现保护工作表和查看代码两个选项，其他选项都是灰色，反复试验了好久都没有办法？期待大神能指导一下。谢谢！设置了宏安全性也没有用，选择相信使用所有宏不行。
要求可以在2007使用，既可以保护带公式单元格不被修改，也可以保证打开组合键。希望有可以不通过VBA实现的办法，虽然我也知道希望不大。再次谢谢！

tanglf188

xunanming

参考---------------------

袁勇

Private Sub CommandButton1_Click()
  Dim rng As Range
  Application.ScreenUpdating = False
  On Error Resume Next
  Unprotect Password:="123"
  Cells.Locked = False
  Cells.SpecialCells(xlCellTypeFormulas, 23).Locked = True  '选中所有有公式的单元格锁定
  Cells.FormulaHidden = True
  EnableSelection = xlNoRestrictions
  Protect Password:="123"
  Application.ScreenUpdating = True
End Sub

袁勇

20230524问题.zip (19.77 KB, 下载次数: 7)

2023-5-24 17:24 上传

点击文件名下载附件

510437958

袁勇 发表于 2023-5-24 17:25

袁勇老师，您这个VBA我试了一下，我可能没有表达清楚。我的需求就是既可以展开或合拢组合单元格，又可以同时保护带有公式单元格。但是要展开组合键时，提示要输入密码，输入123以后带公式单元格又可以修改，而我的需求是不能修改，这个拜托袁老师能完善一下吗？您这个目前是最接近的

510437958

xunanming 发表于 2023-5-24 16:43
参考---------------------

因为这个表是给别人填写的，所以需要可以展开或合拢组合键时，可以保护带公式的单元格，但是你您这个好像既不是VBA，也不知道您是怎么操作的，无法实现任何功能，要求是可以在2007使用，且展开或合拢组合键的同时可以保护带公式单元格不被修改，不要求再输入密码。谢谢！

510437958

tanglf188 发表于 2023-5-24 16:17

这个无法实现展开或合拢组合键的同时，保护带有公式单元格，且无需再输入密码，因为是给别人填写的。可以不要用图片吗？对菜鸟而言很不方便啊？

xunanming

你再试试,操作需要先点击sheet2,然后再点击sheet1.否则组合就提示解锁保护.