Почему не один ни другой макрос с LOG не работает в компании с такими кодами  
Private Sub Workbook_Open()  
Application.ScreenUpdating = False  
   Dim wsSh As Worksheet  
   Sheets("1").Visible = -1  
   For Each wsSh In ThisWorkbook.Sheets  
       If wsSh.Name <> "1" Then wsSh.Visible = 2  
   Next wsSh  
Dim hh As Worksheet  
' Îòêëþ÷èòü òîðìîçà  
On Error Resume Next  
Application.ScreenUpdating = False  
Application.EnableEvents = False  
' Îáðàáîòàòü âñå ëèñòû  
 Const MyPassword = "Top2007"  
For Each hh In Sheets  
If hh.Name <> "LOG" Then  
If hh.ProtectContents Then  
Else  
hh.Unprotect Password:=MyPassword  
hh.EnableOutlining = True  
hh.Protect Password:=MyPassword, DrawingObjects:=True, Contents:=True, Scenarios:=True, _  
AllowFiltering:=True, UserInterfaceOnly:=True  
End If  
End If  
Next  
For Each hh In Sheets  
hh.Cells(1).EntireRow.Hidden = True  
hh.Cells(1).EntireColumn.Hidden = True  
Next  
Application.ScreenUpdating = True  
Sheets("ÎÃËÀÂËÅÍÈÅ").Select  
End Sub  
 
Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)  
Dim sOldValue As String  
Const Sep$ = "; " ' ðàçäåëèòåëü ïðè ïåðå÷èñëåíèè çíà÷åíèé ÿ÷ååê  
Const MaxCells% = 16 ' ìàêñèìàëüíîå êîëè÷åñòâî çíà÷åíèé ÿ÷ååê ïðè èõ ïåðå÷èñëåíèè  
  '---------------------------------------------------------------------------------------  
  ' Procedure : Workbook_SheetChange  
  ' Author    : The_Prist (èäåÿ) & Alex_St (äîðàáîòêà)  
  ' URL       : http://www.excel-vba.ru/index.php?file=Tips_Macro_Log  
  ' Date      :  
  ' Purpose   : Âåäåíèå ËÎÃ-ôàéëà ïðîèçâåäåííûõ èçìåíåíèé íà ëèñòå LOG  
  ' Notes     :  
  '---------------------------------------------------------------------------------------  
  If Sh.Name = "LOG" Then Exit Sub  
  Dim sNewValue As String  
  Dim lLastRow As Long  
  Dim rCell As Range  
 
  With Sheets("LOG")  
     lLastRow = .UsedRange.Row + .UsedRange.Rows.Count  
     If lLastRow = .Rows.Count Then Exit Sub  
     Application.ScreenUpdating = False: Application.EnableEvents = False  
     .Cells(lLastRow, 1) = CreateObject("wscript.network").UserName  
     .Cells(lLastRow, 2) = Format(Now, "dd.mm.yyyy HH:MM:SS")  
     .Cells(lLastRow, 3) = Sh.Name  
     .Cells(lLastRow, 4) = Target.Address(0, 0)  
     .Cells(lLastRow, 5) = sOldValue  
     If Not Intersect(Target, Sh.UsedRange) Is Nothing Then  
        If Target.Count > 1 Then  
           For Each rCell In Intersect(Target, Sh.UsedRange)  
              If Not IsError(Target) Then sNewValue = sNewValue & Sep & rCell Else sNewValue = sNewValue & Sep & "Err"  
              If UBound(Split(sNewValue, Sep)) > MaxCells - 1 Then sNewValue = sNewValue & Sep & "...": Exit For  
           Next rCell  
           sNewValue = Mid(sNewValue, Len(Sep) + 1)  
        Else  
           If Not IsError(Target) Then sNewValue = Target.Value Else sNewValue = "Err"  
        End If  
     End If  
     .Cells(lLastRow, 6) = sNewValue  
  End With  
  Application.ScreenUpdating = True: Application.EnableEvents = True  
End Sub  
Private Sub Workbook_SheetSelectionChange(ByVal Sh As Object, ByVal Target As Range)  
Dim sOldValue As String  
Const Sep$ = "; " ' ðàçäåëèòåëü ïðè ïåðå÷èñëåíèè çíà÷åíèé ÿ÷ååê  
Const MaxCells% = 16 ' ìàêñèìàëüíîå êîëè÷åñòâî çíà÷åíèé ÿ÷ååê ïðè èõ ïåðå÷èñëåíèè  
  Dim rCell As Range, i%  
  sOldValue = ""  
  If Sh.Name = "LOG" Then Exit Sub  
  If Not Intersect(Target, Sh.UsedRange) Is Nothing Then  
     If Target.Count > 1 Then  
        For Each rCell In Intersect(Target, Sh.UsedRange)  
           If Not IsError(rCell) Then sOldValue = sOldValue & Sep & rCell Else sOldValue = sOldValue & Sep & "Err"  
              If UBound(Split(sOldValue, Sep)) > MaxCells - 1 Then sOldValue = sOldValue & Sep & "...": Exit For  
        Next rCell  
        sOldValue = Mid(sOldValue, Len(Sep) + 1)  
     Else  
        If Not IsError(Target) Then sOldValue = Target.Value Else sOldValue = "Err"  
     End If  
  End If  
End Sub  
Private Sub Workbook_BeforeClose(Cancel As Boolean)  
   Dim hh As Worksheet  
' Îòêëþ÷èòü òîðìîçà  
On Error Resume Next  
Application.ScreenUpdating = False  
Application.EnableEvents = False  
' Îáðàáîòàòü âñå ëèñòû  
 Const MyPassword = "Top2007"  
For Each hh In Sheets  
If hh.ProtectContents Then  
Else  
hh.Unprotect Password:=MyPassword  
End If  
Next  
For Each hh In Sheets  
hh.Cells(1).EntireRow.Hidden = True  
hh.Cells(1).EntireColumn.Hidden = True  
Next  
Application.ScreenUpdating = True  
   Dim wsSh As Worksheet  
   Sheets("1").Visible = -1  
   For Each wsSh In ThisWorkbook.Sheets  
       If wsSh.Name <> "1" Then wsSh.Visible = 2  
   Next wsSh  
End Sub