need help w/Excel vb 1

[pluz]

I need help with vb in Excel to check if workbook's Track Changes While Editing option (Tools>Track Changes>Highlight Changes) is turned ON. If yes, then I will alert the user with a message. Thanks for any help I can get with this one.

Note: HighlightChangesOnScreen prop does not work as users may have track changes while editing turned on and highlight changes on screen turned off.

 

[MakeItSo]

This should do it:

If ActiveWorkbook.KeepChangeHistory Then

;-)
Cheers,
MakeItSo

Andreas Galambos
EDP / Technical Support Specialist
(andreas.galambos@bowneglobal.de)
HP:

http://andygalambos.de

 

[pluz]

Thanks, MakeItSo. This seems to work, except the message pops up whether track changes is ON or not. Would you happen to know why? This is what the code looks like:

If ActiveWorkbook.KeepChangeHistory Then
Msgbox "ALERT: Track Changes is turned ON in this document."
End If

Regards.

 

[MakeItSo]

KeepChangeHistory seems to have an internal constant value, leading to the if clause always being true.
Try

If ActiveWorkbook.KeepChangeHistory[b]=True[/b] Then
Msgbox "ALERT: Track Changes is turned ON in this document."
End If

instead.

 

[pluz]

Hi MakeItSo - I tried that too. Do you have any other ideas that might work? Thanks for your help with this item!!

 

[MakeItSo]

This is really strange: It's always TRUE...although help says it only should be when enabled :~?

I have set a breakpoint and added a watch - it's also TRUE if I have disable Track Changes...

But this worked for me:

Sub test()
With ActiveWorkbook
If .KeepChangeHistory = True Then
 If .ChangeHistoryDuration > 0 Then
    MsgBox "Track Changes on"
 Else
    MsgBox "Track Changes off"
 End If
End If
End With
End Sub

You see the trick: It's the duration property...
;-)

 

[pluz]

Excellent! This worked. Much thanks, MakeItSo.