批量填写和加密不同工作簿中相同工作表相同单元格

gydzzh

各位大侠，现求助批量填写和加密不同工作簿中相同工作表相同单元格，
具体见附件中模拟了几个不同的工作簿，要求为每个工作簿的第一个工作表“目录”的相同单元格"I1"单元格（已红色标注）输入相同的数值，例如输入“学习VBA”，然后为每个“目录”工作表加密123456

shuidisyy

将此表放在需要加密工作簿的文件夹里

gydzzh

您好，谢谢您的回复，在你的代码文件夹中有“__MACOSX”文件夹，他的作用是什么， 可不可以删除！另外，能否改进成不需将此文件放入工作簿，而是在文件中指定路径和工作簿，进行填空和加密？再次感谢！

shuidisyy

1. Sub test()
   
2.     Dim arr, i As Integer, wb As Workbook
   
3.     Application.ScreenUpdating = False
   
4.     Application.DisplayAlerts = False
   
5.     arr = Application.GetOpenFilename("excel文件,*.xls*", "请选择加密文件(可多选)", MultiSelect:=True)
   
6.     If VBA.IsArray(arr) = True Then
   
7.         For i = 1 To UBound(arr)
   
8.             Set wb = Workbooks.Open(arr(i))
   
9.             With wb.Worksheets("目录")
   
10.             .Range("i1").Value = "我爱vba"
    
11.             .Protect ("123456")
    
12.             End With
    
13.             wb.Save
    
14.             wb.Close
    
15.         Next i
    
16.     End If
    
17.     Application.ScreenUpdating = True
    
18.     Application.DisplayAlerts = True
    
19. End Sub

复制代码

shuidisyy

除了代码文件，其它都没用，可能误操作了
用上边的代码可以选择文件