Изменить размеры окна программы

[КамТерДал]

Извиняюсь перед Админами и теми, кто будет просто недоволен.. ))
Вопрос прост (для Вас), для меня тяжел и требует срочного решения! ((

У меня есть написаная большая программа в Экселе.
Перемещение по окнам - нажатие клавишь с макросами перехода.

Так вот, при запуске программы, Эксель запускается во все окно, а сама программа только в маленьком, и при чем ни как не реагирует на попытки переместить само маленькое окошко, ни расширить его, ни растянуть, не развернуть... а было раньше нормально.
Другие проги запускаемые в экселе, разворачиваются, и т.д.

Что мне сделать??? Окно 3х10 см! (((ууууууу.... а работать надо! Терять много информации не могу себе позволить...!!!
Подскажите пожалуйста!

В поиск не могу пойти, т.к. просто даже не знаю в каких разделах вообще искать.. (((

[EducatedFool]

Прикрепите к сообщению файл с программой.

Иначе ответа Вам не дождаться, ибо никто не знает, что там у Вас за программа...

[КамТерДал]

вот данная программа.
Если можно мне описать, в чем проблема и как ее решить?
Заранее СПАСИБО!

[EducatedFool]

Нажмите в меню Сервис - Защита - Снять защиту книги

PS: В "программе" 90% кода - лишнего (он только замедляет работу с документом)

[КамТерДал]

уфф....
В кнопке "защита книги" надо было снять галочку с "защита структуры окон" УРА!

СПАСИБО!!! ))))

[КамТерДал]

Сообщение от EducatedFool

Нажмите в меню Сервис - Защита - Снять защиту книги

PS: В "программе" 90% кода - лишнего (он только замедляет работу с документом)

А как его можно сократить? И что подразумевается под словом "КОД" ?
Вроде в Экселе разбираюсь не совсем плохо... думаю пойму! ))

[EducatedFool]

И что подразумевается под словом "КОД" ?

А за счёт чего, по Вашему, работают кнопки?

Нажмите Alt + F11, и Вы увидите множество макросов вроде этого:

Sub Очистка_2()
'
' Очистка_2 Макрос
' Макрос записан 11.09.2004 (Alex-1)
'

'
    Range("K3,M3,J8:K75").Select
    Range("J8").Activate
    ActiveWindow.SmallScroll Down:=17
    Range("K3,M3,J8:K75,J81:L94").Select
    Range("J81").Activate
    Selection.ClearContents
    ActiveWindow.SmallScroll Down:=-85
    Range("M3").Select
    ActiveCell.FormulaR1C1 = "1"
    Range("K3").Select
End Sub

Его без потери функциональности (и с целью увеличения быстродействия) можно сократить до такого вида:

Sub Очистка_2()
    Range("K3,M3,J8:K75,J81:L94").ClearContents
    [M3] = 1
End Sub

Всего в файле 54 макроса. (1066 строк кода, из которых полезных - около 50)