|
本帖最后由 tong_ 于 2017-8-30 16:53 编辑
我想其它操作结束以后,将所有工作表都选中在 A1 单元格这里,但我写了这个代码不对,麻烦老师指点一下,谢谢。
Sub Jm()
Dim Jm As Worksheet
Dim i As Integer
For i = 1 To 3
With Jm = Worksheets(i)
.Select
.Range("a1").Select
End With
Set Jm = Worksheets(i)
Jm.Protect Password:="1123", DrawingObjects:=True, contents:=True, Scenarios:=True, _
AllowFormattingCells:=True, AllowFormattingColumns:=True, _
AllowFormattingRows:=True, AllowFiltering:=True
Next
End Sub
- Sub Jm()
- Dim Jm As Worksheet
- Dim i As Integer
- For i = 1 To 3
- Set Jm = Worksheets(i)
- With Jm
- .Select
- .Range("a1").Select
- .Protect Password:="1123", DrawingObjects:=True, contents:=True, Scenarios:=True, _
- AllowFormattingCells:=True, AllowFormattingColumns:=True, _
- AllowFormattingRows:=True, AllowFiltering:=True
- End With
- Next
- End Sub
复制代码
|
|