代码求助

hepburn1020

小弟从网上抄的代码如下，想实现的功能是记录修改过的内容。但是在运行过程中，会跳出（运行时错误“7”，内存溢出），点击调试，倒数第二行XX = Target.Value显示黄色，哪位大神能够帮忙解答一下。

Dim XX

Private Sub Worksheet_Change(ByVal Target As Range)
Dim ROW1
With Sheets("日志")
On Error Resume Next
If XX <> Target Then
ROW1 = Sheets("日志").[A65536].End(xlUp).Row + 1
.Cells(ROW1, 1) = Date
.Cells(ROW1, 2) = Time
.Cells(ROW1, 3) = XX
.Cells(ROW1, 4) = Target.Value
.Cells(ROW1, 5) = Target.Worksheet.Name
.Cells(ROW1, 6) = Target.Address
End If
End With
End Sub
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
XX = Target.Value
End Sub

zjdh

没问题啊

hepburn1020

zjdh 发表于 2015-7-9 18:40
没问题啊

可能我没有表述清楚，我的意思是这段代码有错误，执行后出错，需要各位帮忙修正一下这段代码。

zjdh

没有错误啊！，我这运行正常得很！！

zjdh

只有看你的附件才能分析啦！

hepburn1020

zjdh 发表于 2015-7-9 19:36
只有看你的附件才能分析啦！

Book3.rar (15.27 KB, 下载次数: 0)

2015-7-9 20:22 上传

点击文件名下载附件

请看附件

qh8600

hepburn1020 发表于 2015-7-9 19:48
请看附件

Sheets("订单管理").Protect ("1234"), DrawingObjects:=True, Contents:=True, Scenarios:=True, AllowFiltering:=True
你没有订单管理这个表

hepburn1020

qh8600 发表于 2015-7-9 20:09
Sheets("订单管理").Protect ("1234"), DrawingObjects:=True, Contents:=True, Scenarios:=True, Allow ...

不好意思，应该是：

Sheets1.Protect ("1234"), DrawingObjects:=True, Contents:=True, Scenarios:=True, AllowFiltering:=True