求修改批量保护工作薄代码

欣语

1. Sub 所有表保护()
   
2. 
   
3.     Dim MyPath$, MyName$, sh As Worksheet
   
4. 
   
5.     Application.ScreenUpdating = False
   
6. 
   
7.     Application.DisplayAlerts = False
   
8. 
   
9.     MyPath = ThisWorkbook.Path & "\小学"
   
10. 
    
11.     MyName = Dir(MyPath & "*.xls")
    
12. 
    
13.     Do While MyName <> ""
    
14. 
    
15.         If MyName <> ThisWorkbook.Name Then
    
16. 
    
17.             With Workbooks.Open(MyPath & MyName)
    
18. 
    
19.                 For Each sh In .Sheets
    
20. 
    
21.                     sh.Protect
    
22. 
    
23.                 Next
    
24. 
    
25.                 .Close True
    
26. 
    
27.             End With
    
28. 
    
29.         End If
    
30. 
    
31.         MyName = Dir
    
32. 
    
33.     Loop
    
34. 
    
35.     Application.DisplayAlerts = True
    
36. 
    
37.     Application.ScreenUpdating = True
    
38. 
    
39.     MsgBox "完毕"
    
40. 
    
41. End Sub
    
42. 
    

复制代码

以上代码，我用来批量保护文件夹中工作薄，但有一个密码提示框，求高手取掉，谢谢，在这里只要求保护“成绩册”工作表，其他表不保护

huang1314wei

帮你顶一下，不用谢

欣语

呵呵，谢谢