它看起来很好,8-10个文件。但我必须处理大约49个文件,这是当我面临一个问题。我得到一个运行时错误1004: Ms Excel无法粘贴数据。emptyRow, 23))Sub AllFilesProject1()Dim filename As String Application.ScreenUpdating = False
'copy & paste range of i
下面的代码可以成功地检测到那些没有密码的宏的文件,但是无法找到带有密码保护的宏的文件。有什么我能解决的建议吗?Dim wb As WorkbookIf wb.VBProject.VBComponents.Count我检查行数的代码是: Number_Macro = 0
For k = 1 To .VBComponents.
如果我的宏检测到用户将一个新工作表插入到工作簿(现有的和新的)中,我希望它能够自动运行。Sub macro_run()
Dim wb As Excel.Workbook Set sample1 = .Sheets("Template")
For Each wb In Application.WorkbooksOpennew"
它可以检测到Pass,但由于某种原因,它并不能保护它。正如你在图像上看到的,它会检测密码,但不会将其应用于密码。Private Sub CommandButton3_Click()Application.ScreenUpdating = False If Sheets("Pass").Range("C5").Value <