Private Sub txtKol1_Exit(ByVal Cancel As MSForms.ReturnBoolean)
   MsgBox "TextBox1_Exit";
   nn = 1
   Nazv_TMC = Me.Controls(cmbNazv & nn).Text
   Kol_TMC = Me.Controls(txtKol & nn).Value
   If Остатки(Nazv_TMC, Kol_TMC, nn) Then
   Else
      Cancel = True   '"<-" строка вызывает ошибку времени выполнения 
   End If
End Sub
Private Sub B_Сохранить_Приход_Click()
   txtFoxus.SetFocus 
   txtFoxus = "Focus"
   MsgBox "сработала кнопка"
End Sub
Function Остатки(Name_TMC As String, Kol_TMC As String li As Long) As Boolean
   Остатки = False
End Function

Private Sub Worksheet_Change(ByVal Target As Range)
    If Target.Column <> 2 And Target.Column <> 6 Then Exit Sub
'''    iCol = ActiveCell.Column
'''    iRow = ActiveCell.Row
'''    MsgBox " adress" & iRow & "," & iCol
    Call Добавить
End Sub

Function CellAddress()
  CellAddress = Application.ThisCell.Address
End Function

Option Explicit
Public myVyzov As Integer
' следующая процедура запускается из моего всплывающего меня myPopap из файла "Работы мастерская"

Sub Открыть_файл_Картотека() ' данная процедура в главном модуле проекта в файле Авторзация
'  открытие из Работы_мастерская 
    Dim LastRow As Long
    ChDir myDisk
    On Error Resume Next
    Set wb = Workbooks("Картотека".xlsm")
    If Err.Number <> 0 Then
        Workbooks.Open Filename:=myDisk & "\"Картотека".xlsm"        
        Workbooks("Картотека".xlsm").Sheets("Лист1").Visible = True
        Workbooks("Картотека".xlsm").Sheets("Внимание").Visible = False
    End If
    With Workbooks("Картотека".xlsm").Sheets("Лист1")
         LastRow = .Cells(.Rows.count, 1).End(xlUp).Offset(1, 0).Row
        .Cells(LastRow + 1, 1).Activate ' чтобы последние данные были в зоне видимости
    End With
    myVyzov = 1
End Sub

Private Sub Worksheet_BeforeRightClick(ByVal Target As Excel.Range, Cancel As Boolean)
        If Target.Column >= 1 And Target.Column < 8 Then
            CommandBars("MyShortcut1").ShowPopup
            Cancel = True
        End If
    If myVyzov = 0 Then ' VBA уже здесь не видит Паблик переменную. и при компиляции выдает ошибку. 
       '(Тогда я убрал в заголовке Option Explicit - перестал ругаться но значение стало Empty  :)
        Workbooks("Работа_Мастерская.xlsm").Worksheets("Лист1").Activate
    End If
    myVyzov = 0
End Sub

Sub CreateShortcut1()
    Dim myBar As CommandBar
    Dim myItem As CommandBarControl
    Call    DeleteShortcut1
    Set myBar = CommandBars.Add _
      (Name:="MyShortcut1", Position:=msoBarPopup, Temporary:=True)
    ...
    Set myItem = myBar.Controls.Add(Type:=msoControlButton)
    With myItem
        .Caption = "&Отрыть картотеку"
        .OnAction = "Авторизация.xlsm!Открыть_файл_Картотека"
        .FaceId = 767
    End With
End Sub 

Application.ScreenUpdating = False

Workbooks("Карта_ремонта.xlsm").Worksheets("Печать").Visible = True
    Workbooks("Карта_ремонта.xlsm").Worksheets("Печать").Activate
       myformKol_Kopiy.Show
    Workbooks("Карта_ремонта.xlsm").Worksheets("Печать").Visible = False   
    Workbooks("Карта_ремонта.xlsm").Worksheets("Карта_ремонта").Activate
       myformKarta_Remontu.Show

 Workbooks("Карта_ремонта.xlsm").Save