Option Explicit
Private Sub Worksheet_Change(ByVal Target As Range) ActiveSheet.Unprotect Password:="123456"
If Target <> "" Then
Target.Locked = 1ActiveSheet.Protect Password:="123456"
End If
End Sub
以上这段代码是要实现：excel表格数据输入后自动锁定不能修改。
但第2行和第4行是红色的，在运行时，系统选中了“ActiveSheet”，提示我编译错误，缺少语句结束。
请教各位大神怎么修正啊？

自己顶一下，本人不懂编程，是找的网上一位博主写的代码，请各位帮忙看看，多谢！

Option Explicit
Private Sub Worksheet_Change(ByVal Target As Range)
ActiveSheet.Unprotect Password:="123456"
If Target <> "" Then
Target.Locked = 1
ActiveSheet.Protect Password:="123456"
End If
End Sub

所以说，是因为没有换行？