如何在保护的Excel 2007片使分组 - 没有宏

我有一个Excel 2007 XLSX工作簿中，我发展。它有多张表，其中大多数使用Excel的分组功能。我希望能够保护工作表，以保护一些公式等用户干预，但似乎没有办法做到这一点，并仍然允许用户在需要时展开或折叠分组列。如何在保护的Excel 2007片使分组 - 没有宏

它出现在这个标准答案是插入一个宏用类似这样的命令：

ActiveSheet.EnableGrouping 
ActiveSheet.Proect UserInterfaceonly = true

但这个工作簿现在已经没有宏，不能有任何永远。有没有办法在没有宏的情况下在Excel中执行此操作？

谢谢！

来源

2010-10-13 Peter

如果没有受到什么阻碍你从外部运行的代码，然后只是把这个代码到另一个宏启用工作簿或从一个单独的C＃的WinForm /控制台应用程序EXE运行它。注意我已经快速搜索了Excel 2007对象模型，但未找到EnableGrouping方法，但也许我看起来不够努力。

外部VBA

Sub UpdateWorkbook() 
Constant workbookpath As String = "C:\somepath\someworkbookname.xlsx" 
Dim wkbk As Workbook 
Set wkbk = Application.Workbooks.Open(workbookpath) 
Dim wksht As Worksheet 
Set wksht = wkbk.Worksheets.Item("sheetname") 
wksht.EnableGrouping 
wksht.Protect UserInterfaceonly = true 
Set wksht = Nothing 
Set wkbk = Nothing 
End Sub

外部C＃

public void UpdateWorkbook() 
    { 
     const string workbookpath = @"C:\somepath\someworkbookname.xlsx"; 
    Excel.Application xlApp = New Excel.Application(); 
    // To use the next line you need the Excel Extension library otherwise use Type.Missing. 
     Excel.Workbook wkbk = Application.Workbooks.Open(workbookpath); 
     Excel.Worksheet wksht wksht = (Excel.Worksheet)wkbk.Worksheets.get_Item("sheetname"); 
//Check the way this method works.. 
     wksht.EnableGrouping(); 
    // UserInterfaceOnly is the 6th parameter, so 5 before and 11 after. 
     wksht.Protect(missing,missing,missing,missing,missing,True,missing,missing,missing, missing,missing,missing,missing,missing,missing,missing,missing); 
     Set wksht = null; 
     Set wkbk = null; 
    Set xlApp = null; 
    }

来源

2010-10-18 02:44:07

该死 - 这看起来真的很有前途，但我不能有任何外部代码。工作簿通过网络提供给用户，因此必须完全独立。不管怎么说，还是要谢谢你！（它看起来像我所需要的是不可能的，所以我现在要摆脱分组） – Peter 2010-10-21 22:02:54

？如果你不能拥有外部代码或内部宏，那么你可能应该在超级用户上重新提出问题，而不是在编程问题的SO上。虽然罕见，但Excel中有些内容只有在使用代码时才可能（或更细化）。我能想到的唯一的其他选择是VSTO，您是否允许创建一个编译的VSTO DLL来与您的工作簿一起分发？如果没有，那么可以通过Excel UI检查工作帕尔帖的网站，excel嘲笑等来分组提示。有*可能*是一种方式来做到这一点，但不知道。 – 2010-10-21 22:10:02

如何在保护的Excel 2007片使分组 - 没有宏

回答

相关问题