Excel单元格问题

[hong1987]

如何动态的改变单元格的状态，例如：可写入、不可写入信息？
利用vba代码实现，请高手指教！

[wsri6]

你是怎么想动态的改变单元格的状态呢?
是冲着屏幕大喊一声，有的单元格就不能输入了吗？

[dlmeijianyu]

可以在工作表表的Selectchange事件中写代码，不让选择不想输入的单元格。

[dlmeijianyu]

给个例子，如果是选择[C5：F6]当中的某个单元格，则弹出一个对话框，
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Target.Row >= 5 And Target.Row <= 10 And Target.Column >= 3 And Target.Column <= 6 Then
MsgBox ("不可写入")
Range("A1").Select
End If
End Sub

[dlpseeyou]

程序有错误,自己调试看看,

[fvflove]

Sub Macro1()
   Dim mySheet As Worksheet
   Set mySheet = Sheets("Sheet1")
   
   '不让写入
   mySheet.Protect "fvflove", True, True, True '"fvflove"是密码
   
   '可以写入
   mySheet.Unprotect "fvflove"
End Sub

[hong1987]

[Quote=引用 3 楼 dlmeijianyu 的回复:]
给个例子，如果是选择[C5：F6]当中的某个单元格，则弹出一个对话框，
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Target.Row >= 5 And Target.Row <= 10 And Target.Column >= 3 And Target.Column <= 6 Then
MsgBox ("不可写入")
Range("A1").Select
End If
End Sub
[/Quote]

提示错误‘424’要求对象

[dlmeijianyu]

[Quote=引用 4 楼 hong1987 的回复:]
引用 3 楼 dlmeijianyu 的回复:
给个例子，如果是选择[C5：F6]当中的某个单元格，则弹出一个对话框，
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Target.Row >= 5 And Target.Row <= 10 And Target.Column >= 3 And Target.Column <= 6 Then
MsgBox ("不可写入")
Range("A1").Select
End If
End Sub


提示错误‘424’要求对象
[/Quote]
这段代码是我在机器上调试的。没有错误。