excel - 在 protected 工作表上运行宏

Question

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

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

Answer 1

在 I = I + 1 之后检查这个

   I = I + 1
  ActiveSheet.Cells(I, 14).Value = xFile.Name
  ActiveSheet.Hyperlinks.Add Cells(I, 14), xFile.Path, , , xFile.Name