Sub tt()
If Worksheets.Count < 8 Then
MsgBox "工作表数量不足！", vbCritical
Exit Sub
End If
For i = 8 To Worksheets.Count
With Sheets(i)
.Unprotect Password:="123"
.Cells.Locked = False
.Range("a3:h12,k4,j12:j21").Locked = True
.Protect Password:="123"
End With
Next
End Sub
Locked方法不可以吗？
答：一般来说,如果表格不是很多,用excel的超链接功能即可实现.但是如果表格多了,用VBA就更为方便.可以按Alt+F11,在Sheet1中添加如下代码实现功能,...详情>>
问：怎样用Camtasia Studio v2.0.3来制作媒体
答：这个软件有使用向导的，你新建一个文件，然后照着他的说明一步一步的走下去，就知道怎么用了，这个软件太小了，网上跟本找不到教程的，如果你确实还是不会的话，找个懂电脑...详情>>
