excel - 如何使用来自不同工作簿的子

Question

在 PERSONAL.XLSB 工作簿中，我有以下代码:

Public Sub Password(ByVal Target As Range)
    a = ""
    For n = 1 To Len(Target)
        a = a & "*"
    Next n
    Target.NumberFormat = """" & a & """;""" & a & """;""" & a & """;""" & a & """"
End Sub

在我的新工作簿中，我有以下代码:

Private Sub Worksheet_Change(ByVal Target As Range)
    If Target.Address = Info.Range("AA9").Address Then
        Workbooks("PERSONAL.XLSB").Password Target
    End If
End Sub

我不断收到错误消息， Compile error: Invalid use of property

Answer 1

以下是从个人工作簿运行宏的方法:

Application.Run "PERSONAL.XLSB!Password", Target

[编辑]
值得注意的是，您可以这样做，而不是构建 * 字符串的循环:

Public Sub Password(ByVal Target As Range)

    Dim sMask as String

    sMask = Mid(WorksheetFunction.Rept(";""" & String(Len(Target.Value), "*") & """", 4), 2)
    Target.NumberFormat = sMask

End Sub