Option Explicit

Private Sub Workbook_BeforeClose(Cancel As Boolean)
    
      Application.OnKey "^v": Application.OnKey "^V"
    Application.OnKey "^x": Application.OnKey "^X"
    Dim li As Long
    With Application.CommandBars("Cell")
        For li = 1 To .Controls.Count: .Controls(li).Visible = True: Next li
    End With
    
    scr
    
    
End Sub

Private Sub Workbook_Open()

If ActiveSheet.Name = "Ëèñò5" Then
        Application.OnKey "^v", "": Application.OnKey "^V", ""
        Application.OnKey "^x", "": Application.OnKey "^X", ""
    End If

    scr
End Sub

Private Sub Appl_SheetSelectionChange(ByVal Sh As Object, ByVal Target As Range)
   On Error Resume Next
   With JP_Сalendar_Frm
      If .Visible Then .UserForm_Activate
   End With
End Sub

Private Sub Appl_SheetBeforeDoubleClick(ByVal Sh As Object, ByVal Target As Range, Cancel As Boolean)
   If TypeName(Selection) <> "Range" Then Exit Sub
   With Target(1, 1)
      If .HasFormula Then Exit Sub
      If IsDate(.Value) Then
         JP_Сalendar_Frm.Show 0   '(vbModeless)
         Cancel = True   'не входить в режим редактирования ячейки
      End If
   End With
End Sub

Sub Reload_Appl(): Set Appl = Application: End Sub  ' "патч" (у меня почему-то иногда теряется определение Appl)