VBA change shared workbook advanced settings

One team that I oversee works from shared workbooks all day.
The assistant manager runs appx 40 reports a day, making each workbook shared, and the team clears each report.

I'm trying to save my AM a bit of time by letting VBA handle the sharing of the workbook.
I already have the code in place that shares the book - no issues

Please Login or Register  to view this content.

What I'm trying to do now is see if there is a way using VBA to manipulate the advanced options in the Share Workbook dialogue box, namely the "Keep change history for:" and "Update changes" options.

As a default, the settings are to keep the change history for 30 days and update changes "When file is saved". I would like for the code to set the change history for 365 days and to set the "Update changes" option to "Automatically every 5 minutes".

If I had to choose between the two, the automatically save every 5 minutes is more valuable to me.

Thanks for your time and any help is appreciated.

Well, after much searching I was finally able to piece everything together!
Much thanks to this page over at tek-tips for showing the methods that I needed to use. What I had to use were the following:

KeepChangeHistory
ChangeHistoryDuration
AutoUpdateFrequency
AutoUpdateSaveChanges

The KeepChangeHistory/duration methods worked just fine, but I had to do a lot of trial/error with the autoupdate methods. I had originally tried to set the AutoUpdateSaveChanges first, but I'd always get an error. I switched the order and put the Frequency first and things worked like a charm. Maybe this can help someone else now.

Code below.

Please Login or Register  to view this content.