VBA time date stamp

[naslami]

I have input the following code to get a time-date stamp in column B when
anything is entered in column A:

Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect([A3:A2000], Target) Is Nothing Then
Application.EnableEvents = False
Cells(Target.Row, 2) = Now
Application.EnableEvents = True
End If
End Sub

This code works while I have the document open, but when I close it and
reopen it, it stops working. Sometimes it says the security is set at high
and that is causing problems...I have tried some of the suggestions in that
error box, but it doesn't help. Any suggestions? Ultimately I want to load
this file onto a Palm Pilot for use in the field.

 

[Mike Middleton]

naslami -

Any suggestions? Ultimately I want to load this file onto a Palm Pilot for
use in the field. <

I suggest you first check to see if there is a version of software for the
Palm Pilot that supports Excel VBA.

- Mike
http://www.MikeMiddleton.com

I have input the following code to get a time-date stamp in column B when
anything is entered in column A:

Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect([A3:A2000], Target) Is Nothing Then
Application.EnableEvents = False
Cells(Target.Row, 2) = Now
Application.EnableEvents = True
End If
End Sub

This code works while I have the document open, but when I close it and
reopen it, it stops working. Sometimes it says the security is set at high
and that is causing problems...I have tried some of the suggestions in
that
error box, but it doesn't help. Any suggestions? Ultimately I want to load
this file onto a Palm Pilot for use in the field.

 

[naslami]

Yes, I am working on that...but even if I find a Palm that supports VBA, I
still cannot
get the file to work on the computer after I open and close it...

naslami -

Any suggestions? Ultimately I want to load this file onto a Palm Pilot for
use in the field. <

I suggest you first check to see if there is a version of software for the
Palm Pilot that supports Excel VBA.

- Mike
http://www.MikeMiddleton.com

I have input the following code to get a time-date stamp in column B when
anything is entered in column A:

Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect([A3:A2000], Target) Is Nothing Then
Application.EnableEvents = False
Cells(Target.Row, 2) = Now
Application.EnableEvents = True
End If
End Sub

This code works while I have the document open, but when I close it and
reopen it, it stops working. Sometimes it says the security is set at high
and that is causing problems...I have tried some of the suggestions in
that
error box, but it doesn't help. Any suggestions? Ultimately I want to load
this file onto a Palm Pilot for use in the field.

 

[Leung]

if the problem is from the setting of "excel VBA security is set at high "
after you set to low you need to exit Excel application to make it effective.

Yes, I am working on that...but even if I find a Palm that supports VBA, I
still cannot
get the file to work on the computer after I open and close it...

naslami -

Any suggestions? Ultimately I want to load this file onto a Palm Pilot for
use in the field. <

I suggest you first check to see if there is a version of software for the
Palm Pilot that supports Excel VBA.

- Mike
http://www.MikeMiddleton.com

I have input the following code to get a time-date stamp in column B when
anything is entered in column A:

Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect([A3:A2000], Target) Is Nothing Then
Application.EnableEvents = False
Cells(Target.Row, 2) = Now
Application.EnableEvents = True
End If
End Sub

This code works while I have the document open, but when I close it and
reopen it, it stops working. Sometimes it says the security is set at high
and that is causing problems...I have tried some of the suggestions in
that
error box, but it doesn't help. Any suggestions? Ultimately I want to load
this file onto a Palm Pilot for use in the field.