excel - 即使没有执行 Excel VBA 代码也会影响屏幕... - 需要帮助

Question

我在 Excel 的“ThisWorkbook”中有这个子：

Private Sub Workbook_Deactivate()
    On Error GoTo errore
    
    If Left(ActiveWorkbook.Name, 4) = "CALC" Then
    
        
        If Uscita = False Then
        
            ScreenUpdateOnOff (False)
 

            Application.DisplayFormulaBar = False

            With ActiveWindow
                .DisplayHorizontalScrollBar = True
                .DisplayVerticalScrollBar = True
            End With
 
            If CreazioneConfrontoSomme = False Then ThisWorkbook.Protect Password:=" "
    
            ScreenUpdateOnOff (True)
                
                
        Else
                
            MsgBox "Running here!"
            
            ScreenUpdateOnOff (False)
 
            Call DeleteSheet("CONFRONTO SOMME")
               
            With ActiveWindow
                .DisplayHorizontalScrollBar = True
                .DisplayVerticalScrollBar = True
            End With
 
                
            If Application.Workbooks.Count <= 1 Then
 
                ScreenUpdateOnOff (False)
                
                Massimizza_Ribbon
 
                Application.DisplayFormulaBar = True
        
                ScreenUpdateOnOff (True)
                
            End If
    
        End If
    End If
    
errore:
End Sub

我有 Excel 2010 和 2019，在这两种情况下，这部分代码都会导致屏幕上部短暂“闪烁”：

            If Application.Workbooks.Count <= 1 Then
 
                ScreenUpdateOnOff (False)
                
                Massimizza_Ribbon
 
                Application.DisplayFormulaBar = True
        
                ScreenUpdateOnOff (True)
                
            End If

即使没有执行！（变量“Uscita”是假的，除非我关闭工作簿并且 MsgBox“在这里运行！”实际上没有运行）。

如果我删除或重新修改代码，闪烁就会消失。

任何想法为什么会发生这种情况？

谢谢你。

标签： excelvba