Share workbook macro 2

[cgmojoco]

I'm looking for a script that will:
-Share the workbook
As part of the sharing, these advanced options would be set
-Select, don't keep change history
-Select automatically save every 5 minutes
-Do not save personal view print and filter settings

Can this be done?

 

[cgmojoco]

This did the trick---but when another user opens the workbook, apparently these settings don't auto-populate for them....in other words, only the user that runs this macro when it's opened get's these settings applied to the workbook.

Another user entering the workbook would not have the workbook saved every 5 minutes!!!



Please please help! I need to see their work as they go, not every 15 minutes.

Sub ShareWB()
'SHARE
Dim CurFilename As String
Dim CurPath As String
Dim CurFile As Variant
Application.DisplayAlerts = False
ActiveWorkbook.ProtectSharing Filename:=ActiveWorkbook.FullName
'
'share settings
'
    With ActiveWorkbook
        .PersonalViewPrintSettings = False
        .PersonalViewListSettings = False
        .AutoUpdateFrequency = 5
        .AutoUpdateSaveChanges = True
        .KeepChangeHistory = False
    End With
'
'
'
    ActiveWindow.SmallScroll Down:=-54
Application.DisplayAlerts = True
'
'
'Save again
'
ActiveWorkbook.SaveAs Filename:=StrFilePath & "\" & _
StrFileName, FileFormat:=xlNormal, Password:="", WriteResPassword:="", _
ReadOnlyRecommended:=False, CreateBackup:=False
End Sub

 

[cgmojoco]

bump

ANYONE CAN GET THIS TO WORK FOR ALL USERS?