виснет по всей видимости на Selection.Delete  
 
тут можно прочитать про ограничения использования книги общего пользования, чего нельзя.. http://www.planetaexcel.ru/forum.php?thread_id=7667

смотрите

раз дома работает нормально, может дома его и преобразовать в *.xlam, и на работе работать с новым, если получится...

Вам может эта ссылка поможет, похожая проблема была http://www.programmersforum.ru/showthread.php?t=41716

у меня при открытии пишет:  
 
Для открытия содержащегося в этом файле проекта VBA требуется компонент, который в настоящий момент не установлен. Файл будет открыт без проекта VBA.  
Для получения дополнительных сведений выполните поиск слов "конвертеры VBA" на веб-узле Microsoft Office Online.  
 
и открывает без VBA

Галочку в свойствах файла "Только чтение" можно и через vba включить, сохраняя или открывая... например..  
 
Private Sub Workbook_BeforeClose(Cancel As Boolean)  
   ActiveWorkbook.Close SaveChanges:=True  
   SetAttr ThisWorkbook.FullName, vbReadOnly  
End Sub  
 
 
Sub Workbook_Open()  
   SetAttr ThisWorkbook.FullName, vbReadOnly  
End Sub

не до конца сделано... надо еще в панеле отключить...

пример в файле

Удаление рабочей книги после определенной даты, минуя корзины  
 
Sub Workbook_Open()  
If Date <= #12/31/2004# Then Exit Sub  
MsgBox "Сейчас рабочая книга будет удалена!"  
With ThisWorkbook  
.Saved = True  
.ChangeFileAccess xlReadOnly  
Kill .FullName  
.Close False  
End With  
End Sub

Точнее, там полная версия.

Это взято с сайта http://www.cpearson.com/Excel/formcontrol.aspx  
By Chip Pearson.

The_Prist  
Спасибо большое за помощь! :) очень помогли

Здравствуйте!  
Помогите как подключить ListBox к форме, чтоб тоже растягивалась с формой, если кто знает. Просто ее вариант работы понравился.

может в свойствах "ЭтаКнига" в  VBAProject ->  IsAddin = False  
тогда появятся листы. Если про это речь. Перед этим переименовать файл в xls (может и не обязательно, не проверял)