Dim val As Variant Sub LocksAllViews() Dim Folder As Outlook.MAPIFolder Set Folder = Application.ActiveExplorer.CurrentFolder val = "True" LoopFolders Folder.Folders, True End Sub Sub UnlocksAllViews() Dim Folder As Outlook.MAPIFolder Set Folder = Application.ActiveExplorer.CurrentFolder val = "False" LoopFolders Folder.Folders, True End Sub Public Sub LoopFolders(Folders As Outlook.Folders, _ ByVal Recursive As Boolean) Dim Folder As Outlook.MAPIFolder Dim objViews As Outlook.Views Dim objView As Outlook.View For Each Folder In Folders Set objViews = Folder.Views For Each objView In objViews If objView.SaveOption = olViewSaveOptionAllFoldersOfType Then Call LockView(objView, val) End If Next objView If Recursive Then LoopFolders Folder.Folders, Recursive End If Next 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