[已解决]求助,两个代码合并成一个的问题

zxc2011

两个代码合并成一个的问题 请老师们帮忙 在此谢谢

最佳答案

月排行榜 / 总排行榜

zjdh

2011-11-9 08:09

1. Sub aaaa()
   
2.     For i = 1 To Sheets.Count
   
3.         If Sheets(i).Name <> "sheet1" Then
   
4.             Sheets(i).Unprotect ("123")
   
5.             Sheets(i).Cells.Locked = True
   
6.         End If
   
7.     Next
   
8. End Sub
   

复制代码

跳转到最佳答案楼层

zjdh

1. Sub aaaa()
   
2.     For i = 1 To Sheets.Count
   
3.         If Sheets(i).Name <> "sheet1" Then
   
4.             Sheets(i).Unprotect ("123")
   
5.             Sheets(i).Cells.Locked = True
   
6.         End If
   
7.     Next
   
8. End Sub
   

复制代码