我试图在 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
答案 0 :(得分:2)
在 I = I + 1 之后检查这个
I = I + 1
ActiveSheet.Cells(I, 14).Value = xFile.Name
ActiveSheet.Hyperlinks.Add Cells(I, 14), xFile.Path, , , xFile.Name