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