Check Box Точность как на экране

Public Sub ScreenAccuracyR(rc As IRibbonControl, isButtonChecked As Boolean)
    If isButtonChecked = True Then
        ActiveWorkbook.PrecisionAsDisplayed = True
    Else
        ActiveWorkbook.PrecisionAsDisplayed = False
    End If
End Sub

ActiveWorkbook.PrecisionAsDisplayed = isButtonChecked

Private Sub Workbook_Open()
 
End Sub

Private Sub Workbook_Open()
    Call Test 
End Sub

Sub Test()
    If ActiveWorkbook.PrecisionAsDisplayed = False Then
        MsgBox "Галки нет"
    Else
        MsgBox "Галка стоит"
    End If
End Sub

Private Sub Workbook_Open()
 
    ActiveWorkbook.PrecisionAsDisplayed = True
    
End Sub

Option Explicit
 
Private Sub Workbook_Open()
 
    Set g_clsAppEvt = New CAppEvt
    
End Sub

Option Explicit
 
Public g_clsAppEvt As CAppEvt
 
Public Sub GetPressed(control As IRibbonControl, ByRef returnedVal)
    returnedVal = g_clsAppEvt.ChkBoxPressed
End Sub
 
Public Sub PageSetupOnAction(control As IRibbonControl, pressed As Boolean)
    If pressed = True Then
        ActiveWorkbook.PrecisionAsDisplayed = True
    Else
        ActiveWorkbook.PrecisionAsDisplayed = False
    End If
End Sub

Option Explicit
 
Public ChkBoxPressed As Boolean
Public BookName As String
Public RibUI As IRibbonUI
Private WithEvents m_appXL As Application
 
Private Sub Class_Initialize()
    Set m_appXL = Application
End Sub
 
Private Sub m_appXL_NewWorkbook(ByVal Wb As Workbook)
 
    If ActiveWorkbook.PrecisionAsDisplayed = True Then
        Me.ChkBoxPressed = True
    End If
    
    If ActiveWorkbook.PrecisionAsDisplayed = False Then
        Me.ChkBoxPressed = False
    End If
    
End Sub
 
Private Sub m_appXL_WorkbookActivate(ByVal Wb As Workbook)
 
    If ActiveWorkbook.PrecisionAsDisplayed = True Then
        Me.ChkBoxPressed = True
    End If
    
    If ActiveWorkbook.PrecisionAsDisplayed = False Then
        Me.ChkBoxPressed = False
    End If
    
End Sub

Public Sub PageSetupOnAction(control As IRibbonControl, pressed As Boolean)
 
    ActiveWorkbook.PrecisionAsDisplayed = pressed
 
End Sub
 
Private Sub m_appXL_WorkbookActivate(ByVal Wb As Workbook)
 
    Me.ChkBoxPressed = Wb.PrecisionAsDisplayed
    
End Sub

Public Sub PageSetupOnAction(control As IRibbonControl, pressed As Boolean)
'
' Code for onAction callback. Ribbon control checkBox
'
    If Not ActiveWorkbook Is Nothing Then _
       ActiveWorkbook.PrecisionAsDisplayed = pressed
End Sub