新手求教各位大神

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”，提示我编译错误，缺少语句结束。
请教各位大神怎么修正啊？