DNA工具箱1.021中英版- 独创强大的工作簿表预览导航和2013焦点灯功能，可隐藏VBA模块.

lipton

windows7 64 + office2010 64 无法加载

wqfzqgk

不支持64位

wqfzqgk

又到办公室试了试，就你的xll和我的vsto加载项打官司，其他的都可以，可能是DNA的加载原因吧，我看看DNA的源码{:soso_e102:}

liucqa

[ComVisible(true)]
    public class RibbonUI2007 : ExcelRibbon
    {public override string GetCustomUI(string uiName)
        {
            string ribbonxml = string.Empty;
            //读取CustomUI.xml文件，定制RibbonX。
            try
            {
                ribbonxml = ResourceHelper.GetResourceText("CustomUI.xml");   //CustomUI.xml必须是UTF-8格式
            }
            catch (Exception ex)
            {
                MessageBox.Show(ex.Message);
            }
            return ribbonxml;
        }
    }


代码用的是GetCustomUI重载，DNA的原函数如下：

public virtual string GetCustomUI(string RibbonID)
        {
            if (RibbonID != "Microsoft.Excel.Workbook")
            {
                Debug.Print("ExcelRibbon.GetCustomUI - Invalid RibbonID for Excel. RibbonID: {0}", RibbonID);
                return null;
            }

            // Default behaviour for GetCustomUI is to look in DnaLibrary.
            // We return a CustomUI based on the version of Excel, as follows:
            // If Excel12, look for a CustomUI with namespace... If not found, return nothing
            // If Excel14 or bigger look for CustomUI with namespace ... If not found, look for ... else return nothing.
            // (not sure how to future-proof...)

            Dictionary<string, string> customUIs = new Dictionary<string, string>();
            foreach (XmlNode customUI in this.DnaLibrary.CustomUIs)
            {
                customUIs[customUI.NamespaceURI] = customUI.OuterXml;
            }

            if (ExcelDnaUtil.ExcelVersion >= 14.0)
            {
                if (customUIs.ContainsKey(NamespaceCustomUI2010))
                {
                    return customUIs[NamespaceCustomUI2010];
                }
                if (customUIs.ContainsKey(NamespaceCustomUI2007))
                {
                    return customUIs[NamespaceCustomUI2007];
                }
                return null;
            }
            if (ExcelDnaUtil.ExcelVersion >= 12.0)
            {
                if (customUIs.ContainsKey(NamespaceCustomUI2007))
                {
                    return customUIs[NamespaceCustomUI2007];
                }
                return null;
            }
            throw new InvalidOperationException("Not expected to provide CustomUI string for Excel version < 12.0");
        }

wqfzqgk

这个源码我有下载

liucqa

更新0.6.3.版

ctp_119

超级强大！！！膜拜！！

wqfzqgk

发一个无法用VBADUMP提取的

wqfzqgk

HiddenModueDemo.zip (7.8 KB, 下载次数: 146)

2013-6-19 15:41 上传

点击文件名下载附件

看附件

wqfzqgk