Excel宏更新宏

Question

我有个设想。我正在使用一组excel文件进行报告。所有这些优点都是宏启用的，并具有连接到服务器的“登录”功能。要解决安全问题，我们必须更新“登录”函数。是否有一种方法可以在所有这样的excel文件中编写宏来替换此函数？基本上是一个宏来更新一个宏！

Answer 1

启用宏安全选项：

​

​

那么你需要这样的代码：

Sub AddMacro()

    Dim xlbook As Workbook
    Set xlbook = ActiveWorkbook 'Assign workbook to have macro added here

    Dim xlmodule As Object
    Set xlmodule = xlbook.VBProject.VBComponents.Add(1)

    Dim strCode As String
    strCode = _
       "Function MyFunction()" & vbCr & _
       "'some function code here" & vbCr & _
       "End Function"
    xlmodule.CodeModule.AddFromString strCode

End Sub

Answer 2

我过去也有过类似的问题。基本需要更新功能时，新的费率来，所有用户。

我的解决方案是使用.xlam文件，基本上是在用户重新启动计算机时推动更新。

如果您没有多个用户，只需在"PERSONAL.XLSB“中拥有一个模块的宏，就只需要更新该宏，然后该宏就可以在每个工作簿上工作。