perhaps to save your time, and eliminate errors on my part, here is the vba code that I ran:
--------------------------
Sub LocksPublicViews()
'Locks the interface of all views that are available to
'all users of this folder.
Dim objName As Outlook.NameSpace
Dim objViews As Outlook.Views
Dim objView As Outlook.View
Set objName = Application.GetNamespace("MAPI")
Set objViews = objName.GetDefaultFolder(olFolderTasks).Views
For Each objView In objViews
If objView.SaveOption = olViewSaveOptionThisFolderOnlyMe Then
Call LockView(objView, True) ' False = unlock
End If
Next objView
End Sub
Sub LockView(ByRef objView As View, ByVal blnAns As Boolean)
With objView
If blnAns = True Then
'if true lock UI
.LockUserChanges = True
.Save
Else
'if false don't lock UI
.LockUserChanges = False
End If
End With
End Sub
----i made a duplicate of the particular tasks list that i am trying this on, shown below, "custom order, no modifications"
I run the script, then click on column heading, which changes order, and removes (this is the frustrating part) the ability to drag items to a different order. I then go to a different task list, or close tasks and reopen, even try closing outlook and reopening; nothing brings back the original custom task settings allowing me to drag tasks to a custom order. (until i go into settings and change the column sort setting back to "none"). perhaps I don't understand what you mean by closing folder, or whatever it is that you do to reestablish original settings.