Option Explicit

Private Sub Workbook_BeforeClose(Cancel As Boolean)
    Application.ScreenUpdating = False
    Dim wsSh As Worksheet
    Sheets(sWarning).Visible = -1
    For Each wsSh In ThisWorkbook.Sheets
        If wsSh.Name <> sWarning Then wsSh.Visible = 2
    Next wsSh
    Application.ScreenUpdating = 1
End Sub
Private Sub Workbook_Open()
    Application.ScreenUpdating = False
    ThisWorkbook.Sheets(sMainSheet).Visible = -1
    ThisWorkbook.Sheets(sWarning).Visible = 2
    Application.ScreenUpdating = 1
    frmIndicateUser.Show
End Sub

Sub pp()
    Application.ScreenUpdating = False
    Dim iLastrow As Integer, i As Integer
    Dim iLastRow2 As Integer
    Dim s As Integer
    Dim sh1 As Worksheet, sh2 As Worksheet
    Set sh1 = Sheets("лист1")
    Set sh2 = Sheets("лист2")
    iLastrow = sh2.Cells(Rows.Count, 1).End(xlUp).Row
    iLastRow2 = sh1.Cells(Rows.Count, 1).End(xlUp).Row
    For i = 2 To iLastrow
        sh1.Range("a2:a" & iLastRow2).Find(what:=sh2.Cells(i, 1).Value, LookIn:=xlValues).Offset(0, 3).Copy
        sh2.Activate
        sh2.Cells(i, 6).Select
        ActiveSheet.Pictures.Paste(Link:=True).Select
    Next i
    Application.ScreenUpdating = True
End Sub

=ЕСЛИ(ИЛИ(ЕОШИБКА(ЕСЛИ(MIS!$E:$E>0;MIS!$Z:$Z)));"ЕСТЬ Н/Д";"ОК")

strdate = Format(Now, "ddmmyy-hhnnss")
ThisWorkbook.SaveAs Filename:=ThisWorkbook.Path & "\" & strdate & "_" & ThisWorkbook.Name, FileFormat:=xlOpenXMLWorkbookMacroEnabled