如何用VBA语句让EXCEL里某单元格不能被输入或更改?(比如说要让A1单元格不被输入)请诸路VBA高手赐教,谢谢!!

Question

如题所述

Answer 1

Sub Macro1()
Range("1:65536").Locked = False '解除全部锁定
Range("A1").Select '设置新锁定
Selection.Locked = True '开启锁定
ActiveSheet.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True
End Sub

Answer 2

这个用vba实现和你单元格锁定没什么区别的，也是要锁定你的单元格，然后把其他不用的单元格解锁，然后锁定整个表格，才能达到你要求的目的。

Answer 3

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