Private Sub Workbook_Open()
    Dim wsSh As Object
    For Each wsSh In Me.Sheets
        Protect_for_User_Non_for_VBA wsSh
    Next wsSh
End Sub
Sub Protect_for_User_Non_for_VBA(wsSh As Worksheet)
    wsSh.Protect Password:="13092008", UserInterfaceOnly:=True
End Sub

Sub оформление_фактуры_счета()
'
' оформление_фактуры_счета Макрос
    ActiveWorkbook.Worksheets("Счет фактура").ListObjects("Таблица1").Sort. _
        SortFields.Clear
    ActiveWorkbook.Worksheets("Счет фактура").ListObjects("Таблица1").Sort. _
        SortFields.Add Key:=Columns("A:A"), SortOn:=xlSortOnValues, Order:= _
        xlAscending, DataOption:=xlSortNormal
    With ActiveWorkbook.Worksheets("Счет фактура").ListObjects("Таблица1").Sort
        .Header = xlYes
        .MatchCase = False
        .Orientation = xlTopToBottom
        .SortMethod = xlPinYin
        .Apply
    End With
    Range("A3").Select
    ActiveCell.FormulaR1C1 = "|01851"
    Cells.Replace What:="|", Replacement:="", LookAt:=xlPart, SearchOrder:= _
        xlByRows, MatchCase:=False, SearchFormat:=False, ReplaceFormat:=False
    Range("E4").Select
    ActiveCell.FormulaR1C1 = "I 0"
    Cells.Replace What:="I", Replacement:="", LookAt:=xlPart, SearchOrder:= _
        xlByRows, MatchCase:=False, SearchFormat:=False, ReplaceFormat:=False
End Sub
Sub замена_палок()
'
' замена_палок Макрос
    Range("E4").Select
    ActiveCell.FormulaR1C1 = "I 0"
    Cells.Replace What:="I", Replacement:="", LookAt:=xlPart, SearchOrder:= _
        xlByRows, MatchCase:=False, SearchFormat:=False, ReplaceFormat:=False
    Range("E3").Select
    ActiveCell.FormulaR1C1 = "15|"
    Cells.Replace What:="|", Replacement:="", LookAt:=xlPart, SearchOrder:= _
        xlByRows, MatchCase:=False, SearchFormat:=False, ReplaceFormat:=False
    ActiveWindow.SmallScroll Down:=-33
End Sub

Sub попорядку123_выполняем_все_макросысчетфактуры()
   Call оформление_фактуры_счета
   Call замена_палок
End Sub
 

Range("A3").Select
    ActiveCell.FormulaR1C1 = "|01851"