Sub Auto_edit_Workbooks()
    Dim wb As Workbook
    Dim wbPV As ProtectedViewWindow
        If Application.ProtectedViewWindows.Count > 0 Then
            For Each wbPV In Application.ProtectedViewWindows
            wbPV.Activate
            Set wb = wbPV.Edit()
            Next wbPV
        Else
        End If
    Set wb = Nothing
    End Sub

.Range("B1:F" & lr).Subtotal GroupBy:=2, Function:=xlSum, TotalList:=Array(5), Replace:=True, PageBreaks:=False, SummaryBelowData:=True

Sub NextValue()
Dim i, j, s As String, C As Range
   Set C = Range("A2:D2").Cells(1, 1)
   s = C.Value
   j = 1
   With Sheets("sheet2")
   Do While .Cells(j, 2) <> ""
      If s = .Cells(j, 2) Then
         If .Cells(j + 1, 2) <> "" Then
         s = .Cells(j + 1, 2)
         Else
         s = .Cells(1, 2)
         End If
         C = s
         Exit Do
      End If
   j = j + 1
   Loop
   End With
End Sub

Sub Test() 'zapusk_interneta
Dim IE As Object
Set IE = CreateObject("InternetExplorer.Application")
IE.Visible = 1
IE.Navigate "https://eu.yl-griffin.com/tesco/"
Do While IE.Busy Or (IE.readyState <> 4): DoEvents: Loop
IE.Document.getelementbyid("txtUserName").Value = "???"
IE.Document.getelementbyid("txtPassword").Value = "????"
IE.Document.getelementbyid("btnLogin").Click
''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
IE.Navigate "https://eu.yl-griffin.com/tesco/content/n_rpt_containermanifest.aspx"
Do While IE.Busy Or (IE.readyState <> 4): DoEvents: Loop
IE.Document.getelementbyid("ctl00_PageContent_cbx_ignoredate").Click

 Sheets("Ëèñò1").Activate
Application.ScreenUpdating = False

'
'    For Each C In Sheets("DATA").Range("D1:D15").Cells 'vmesto etogo
'    If C.Value <> "" Then

IE.Document.getelementbyid("ctl00_PageContent_Container1_txtcn").Value = Format(C.Value, "")

IE.Document.getelementbyid("ctl00_PageContent_btnSearch").Click

 End If
End Sub

'Sub NextValue()
'Dim i, j, s As String, C As Range
'   Set C = Range("A2:D2").Cells(1, 1)
'   s = C.Value
'   j = 1
'   With Sheets("Ëèñò2")
'   Do While .Cells(j, 2) <> ""
'      If s = .Cells(j, 2) Then
'         If .Cells(j + 1, 2) <> "" Then
'         s = .Cells(j + 1, 2)
'         Else
'         s = .Cells(1, 2)
'         End If
'         C = s
'         Exit Do
'      End If
'   j = j + 1
'   Loop
'   End With
'End Sub

Sub Test() 'zapusk_interneta
Dim IE As Object
Set IE = CreateObject("InternetExplorer.Application") 'C:\Users\Admin\AppData\Roaming\Microsoft\Internet Explorer\Quick Launch\User Pinned\TaskBar\Google Chrome.lnk
IE.Visible = 1
IE.Navigate "https://eu.yl-griffin.com/tesco/"
Do While IE.Busy Or (IE.readyState <> 4): DoEvents: Loop
IE.Document.getelementbyid("txtUserName").Value = "??????"
IE.Document.getelementbyid("txtPassword").Value = "??????"
IE.Document.getelementbyid("btnLogin").Click

Sub test()    Dim IE As Object
    Set IE = CreateObject("InternetExplorer.Application")
    IE.Visible = 1
    IE.Navigate "https://eu.yl-griffin.com/tesco/"
    Do While IE.Busy Or (IE.readyState <> 4): DoEvents: Loop
    IE.Document.getelementbyid("txtUserName").Value = "????????"
    IE.Document.getelementbyid("txtPassword").Value = "????????"
    IE.Document.getelementbyid("btnLogin").Click
End Sub

 Sub GoToWebSiteAndPlayAround()
    Dim appIE As Object
    Dim C1 As Object, E1 As Object, n1 As Integer
 
    On Error Resume Next
 
    Set appIE = CreateObject("InternetExplorer.Application")
    If Err <> 0 Then Exit Sub
 
    With appIE
        .Navigate "https://eu.yl-griffin.com/tesco/&quot;
        Do While (.Busy Or .readyState <> 4): DoEvents: Loop
        .Visible = True
 
        Set E1 = .document.all("login-parent")
        If Not E1 Is Nothing Then
            Set E1 = Nothing
 
            ' INPUTs <>
            Set C1 = .document.getElementsByTagName("INPUT")
            C1("txtUserName").Value = "????????"
            C1("txtPassword").Value = "???????"
 
            For n1 = 1 To C1.Length
                Set E1 = C1(n1 - 1)


 
                If E1.Value = "btnLogin" Or E1.Value = "btnLogin" Then 'problemma tut
                    E1.Click
                    Do While (.Busy Or .readyState <> 4): DoEvents: Loop
 
                    Exit For
                End If
            Next n1
            Set E1 = Nothing: Set C1 = Nothing
        End If
    
 
        .Quit
    End With    'appIE
    Set appIE = Nothing
End Sub

Sub STARTALL()



StartTimer = Now()
StartTimer2 = Now()
Application.ScreenUpdating = False



EndTimer2 = Now

TIX = "It's taken: " & Format(CDbl(EndTimer2) - CDbl(StartTimer2), "hh:mm:ss")

If Time < 0.5 Then
MsgBox "GOOD MORNING" & vbCrLf & "Alex" _
, vbExclamation + vbOKOnly, "Andy" & " " & TIX
ElseIf Time >= 0.5 And Time < 0.75 Then
MsgBox "GOOD AFTERNOON" & vbCrLf & "Alex" _
, vbExclamation + vbOKOnly, "Andy" & " " & TIX
Else
MsgBox "GOOD EVENING" & vbCrLf & "Alex" _
, vbExclamation + vbOKOnly, "Andy" & " " & TIX
End If
End Sub