It doesn't happen here either, but I suppose you could force the Normal view?
Sub LockCC()
SetCCStateInFooters True
If ActiveWindow.View.SplitSpecial = wdPaneNone Then
ActiveWindow.ActivePane.View.Type = wdPrintView
Else
ActiveWindow.View.Type = wdPrintView
End If
lbl_Exit:
Exit Sub
End Sub
Sub UnlockCC()
SetCCStateInFooters False
If ActiveWindow.View.SplitSpecial = wdPaneNone Then
ActiveWindow.ActivePane.View.Type = wdPrintView
Else
ActiveWindow.View.Type = wdPrintView
End If
lbl_Exit:
Exit Sub
End Sub