时间戳

首页 > 解决方案 > 使用名称管理器的 Excel 插件

excel - 使用名称管理器的 Excel 插件

问题描述

在工作中，我们有一些加载项。有人想重命名工作表，因此脚本不再起作用。为了防止将来发生这种情况，我将以下公式放入工作表中，并使用名称管理器为单元格命名

=TEIL(ZELLE("dateiname";A1);SUCHEN("]";ZELLE("dateiname";A1))+1;31)

在 VBA 中，我使用以下脚本：

fileName = "Filename.xlam"
Test = Workbooks (fileName) .Application.Names ("Test")

如果我暂时将 isAddIn 值设置为 False，则一切正常。但是，作为加载项，我收到错误 1004。有人可以帮助我吗？如果可以通过函数获取 xlam 加载项的文件名，那应该很棒，以防其他人想出重命名此文件的绝妙主意。

非常感谢您的帮助

山姆

标签： excelvba

解决方案

我使用这种方法来锁定我的工作表名称：将其添加到要锁定的工作表代码中，然后保存工作表。如果用户尝试编辑名称，它将简单地恢复为原始名称。

    Private Sub Worksheet_SelectionChange(ByVal Target As Excel.Range)
    If ActiveSheet.Name <> "test" Then
    ActiveSheet.Name = "test"
    End If
    End Sub

资源

推荐阅读