Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
  On Error Resume Next
  Me.UpdateLink Me.LinkSources
End Sub
 

Sub A1
Do While ActiveCell > 0
A1 = Str(ActiveCell)
Selection.Offset(1, 0).Select
Loop
End Sub 

Sub Макрос1()
A = Range("G1")    'так фильтрует только показывает пустые, хотя в G1 число 9517
A = "9517"         'Так все работает
ActiveSheet.Range("$C$6:$C$100000").AutoFilter Field:=3, Criteria1:=Array( _
        A), Operator:=xlFilterValues
End Sub

Sub Гриф()
    X = MsgBox("Введите номер волны?", vbYesNo, "Если надо!!!")
    If X = vbYes Then
        Z = InputBox("Введите номер волны", "8 цифр")
        Range("A1") = Z
        Гриф2
    Else
       Гриф2
  End Sub

Sub Гриф2()
For i = 1 To 9
            Range("A" & i) = i
        Next
End Sub

 For i = 1 To 9
 Range("A" & i) = i
 Next 

Sub Гриф()

    X = MsgBox("Введите номер волны?", vbYesNo, "Если надо!!!")
    If X = vbYes Then
    Z = InputBox("Введите номер волны", "8 Цифр")
         Range("A1").Select
         ActiveCell.FormulaR1C1 = "1"
         Range("A2").Select
         ActiveCell.FormulaR1C1 = "2"
         Range("A3").Select
         ActiveCell.FormulaR1C1 = "3"
         Range("A4").Select
         ActiveCell.FormulaR1C1 = "4"
         Range("A5").Select
         ActiveCell.FormulaR1C1 = "5"
         Range("A6").Select
         ActiveCell.FormulaR1C1 = "6"
         Range("A7").Select
         ActiveCell.FormulaR1C1 = "7"
         Range("A8").Select
         ActiveCell.FormulaR1C1 = "8"
         Range("A9").Select
         ActiveCell.FormulaR1C1 = "9"
         Range("A10").Select
    Else
         Range("A1").Select
         ActiveCell.FormulaR1C1 = "1"
         Range("A2").Select
         ActiveCell.FormulaR1C1 = "2"
         Range("A3").Select
         ActiveCell.FormulaR1C1 = "3"
         Range("A4").Select
         ActiveCell.FormulaR1C1 = "4"
         Range("A5").Select
         ActiveCell.FormulaR1C1 = "5"
         Range("A6").Select
         ActiveCell.FormulaR1C1 = "6"
         Range("A7").Select
         ActiveCell.FormulaR1C1 = "7"
         Range("A8").Select
         ActiveCell.FormulaR1C1 = "8"
         Range("A9").Select
         ActiveCell.FormulaR1C1 = "9"
         Range("A10").Select
  End If
End Sub

Sub Get_All_File_from_Folder()
    Dim sFolder As String, sFiles As String
    'диалог запроса выбора папки с файлами
    With Application.FileDialog(msoFileDialogFolderPicker)
        If .Show = False Then Exit Sub
        sFolder = .SelectedItems(1)
    End With
sFolder = sFolder & IIf(Right(sFolder, 1) = Application.PathSeparator, "", Application.PathSeparator)
    'отключаем обновление экрана, чтобы наши действия не мелькали
    Application.ScreenUpdating = False
    sFiles = Dir(sFolder & "*.xls*")

   Do While sFiles <> ""
        'открываем книгу
    ' Workbooks.Open sFolder & sFiles
    Dim w As Object
     On Error Resume Next
     If w Is Nothing Then Set w = Workbooks.Open(sFolder & sFiles)
     If w Is Nothing Then Set w = Workbooks.Open(sFolder & sFiles, , , , "6214562145")
     If w Is Nothing Then Set w = Workbooks.Open(sFolder & sFiles, , , , "62145")
     If w Is Nothing Then Set w = Workbooks.Open(sFolder & sFiles, , , , "55555")
     If w Is Nothing Then ''''''''''''''''''''''''=========== что написать что бы макрос пропустил книгу и открывал следующую
     Dim oVBComponent As Object, lCountLines As Long
    'Проверяем, защищен проект или нет
    If ActiveWorkbook.VBProject.Protection = 1 Then
       Set objVBProject = ActiveWorkbook.VBProject
    'просматриваем все окна проекта в поисках окна снятия защиты
    For Each objWindow In objVBProject.VBE.Windows
        ' Type = 6 - это нужное нам окно
        If objWindow.Type = 6 Then
            objWindow.Visible = True
            objWindow.SetFocus: Exit For
        End If
    Next
    'вводим пароль и подтверждаем ввод
    SendKeys "~62145~", True: SendKeys "{ENTER}", True
   End If
 For Each oVBComponent In ActiveWorkbook.VBProject.VBComponents
        On Error Resume Next
        With oVBComponent
            Select Case .Type
            Case 1    'Модули
                .Collection.Remove oVBComponent
            Case 2    'Модули Класса
                .Collection.Remove oVBComponent
            Case 3    'Формы
                .Collection.Remove oVBComponent
            Case 100    'ЭтаКнига, Листы
                    lCountLines = .CodeModule.CountOfLines
                    .CodeModule.DeleteLines 1, lCountLines
            End Select
        End With
    Next
    Set oVBComponent = Nothing
   'Закрываем книгу с сохранением изменений
     ActiveWorkbook.Close True 'если поставить False - книга будет закрыта без сохранения
        sFiles = Dir
Loop
    'возвращаем ранее отключенное обновление экрана
    Application.ScreenUpdating = True
End Sub