Доброго времени суток!  
 
Столкнулся с такой задачей.  
Имеется определенный файл с макросами Excel 2003, в котором будут работать Пользователи.  
Необходимо, чтобы при работе в этом файле Excel, другие файлы Excel - не открывались.  
Точнее, чтобы они вообще не могли открыться.  
 
Пробовал так:  
Private WithEvents App As Application  
Private Sub App_WorkbookOpen(ByVal Wb As Workbook)  
   With Application  
       .EnableCancelKey = xlDisabled  
       .ScreenUpdating = False  
       .EnableEvents = False  
       If Wb.Name <> Me.Name Then  
           Wb.Close False  
           MsgBox "Нельзя открывать файлы Excel!", 16, "Ошибка!"  
       End If  
       .EnableEvents = True  
       .ScreenUpdating = True  
       .EnableCancelKey = xlInterrupt  
   End With  
End Sub  
 
Но файл всеравно открывается...  
 
Или возможно, чтобы макросы при открытии других файлов не срабатовали?!