我试图在 VBA 中运行一个宏，它列出了特定文件夹的所有文件及其超链接。我的代码在不受保护时工作。但是当它受到保护时它不起作用。这是我的超链接宏。当工作表受到保护时，我的所有其他宏都可以工作。只是不是超链接之一。我已将私有子宏存储在 ThisWorkbook

Sub updatting()

Dim xFSO As Object
    Dim xFolder As Object
    Dim xFile As Object
    Dim xPath As String
    Dim I As Integer
    xPath = "C:\Users\risha\Downloads\a_few_little_tests\New folder"
    If xPath = "" Then Exit Sub
    Set xFSO = CreateObject("Scripting.FileSystemObject")
    Set xFolder = xFSO.GetFolder(xPath)
    For Each xFile In xFolder.Files
        I = I + 1
        activeSheet.Hyperlinks.Add Cells(I,14),xFile.Path,xFile.Name
    Next

End Sub

Private Sub Workbook_Open()


Sheet3.Protect Password:="abc",UserInterFaceonly:=True



End Sub