Private Sub Workbook_Open()  
ActiveWorkbook.RefreshAll
End Sub

Sub go_()
    Up_
End Sub
Sub Up_()
    Dim tn_
    ActiveWorkbook.RefreshAll
    tn_ = TimeSerial(Hour(Now) + 3, Minute(Now), Second(Now))
    Range("B2") = Range("B2") + 1
    Application.OnTime tn_, "Up_"
End Sub


Sub go_()
Up_
End Sub

Sub Up_()
Dim tn_
ActiveWorkbook.RefreshAll
tn_ = TimeSerial(Hour(Now), Minute(Now) + 1, Second(Now))
Range("S2") = Range("S2") + 1
Range("S3") = Now
Application.OnTime tn_, "Up_"
End Sub

Sub Auto_Open()
    ActiveWorkbook.Save
End Sub

Private Sub Workbook_Open()
'отключаем обновление экрана
Application.ScreenUpdating = False

    Dim sh As Worksheet
    'снимаем защиту
    For Each sh In Worksheets
    sh.Unprotect "09052002" 'цифры - это пароль
    Next sh
    
    'обновляем запись
    For Each sh In ThisWorkbook.Sheets
    ActiveWorkbook.RefreshAll
    
    Next sh
    'устонавливаем защиту
    For Each sh In Worksheets
    sh.Protect password:="09052002", DrawingObjects:=True, Contents:=True, Scenarios:=True
    Next sh
    
'Возвращаем обновление экрана
Application.ScreenUpdating = True

MsgBox "Записи обновлены"

End Sub