如题所述
Sub Macro1()
Range("1:65536").Locked = False '解除全部锁定
Range("A1").Select '设置新锁定
Selection.Locked = True '开启锁定
ActiveSheet.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True
End Sub
Range("1:65536").Locked = False '解除全部锁定
Range("A1").Select '设置新锁定
Selection.Locked = True '开启锁定
ActiveSheet.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True
End Sub
温馨提示:答案为网友推荐,仅供参考
第1个回答 2010-08-17
这个用vba实现和你单元格锁定没什么区别的,也是要锁定你的单元格,然后把其他不用的单元格解锁,然后锁定整个表格,才能达到你要求的目的。
第2个回答 2010-08-18
Private Sub Worksheet_Activate()
Dim A As String
A = Cells(1, 1)
Cells(2, 1).Select
End Sub
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Cells(1, 1) = A Then
Else
MsgBox "此单元格保护!不能改写操作!"
Cells(1, 1) = A
End If
End Sub
Dim A As String
A = Cells(1, 1)
Cells(2, 1).Select
End Sub
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Cells(1, 1) = A Then
Else
MsgBox "此单元格保护!不能改写操作!"
Cells(1, 1) = A
End If
End Sub