.Enabled
.Top
.Left

Начните с чтения хелпа по предложенным мной свойствам.

segailПрименить свойства формы StartUpPosition при клике по кнопке (по центру, в левый верхний угол)

Придется по нажатию кнопки проанализировать это свойство и в зависимости от него проставить Left и Top

segailА также изменять свойство формы ShowModal (активное не активное)

Это совсем не то же самое, что активность/неактивность.

Прошу прощения, не дописал
Модальность формы на ходу стандартными средствами без привлечения API по-моему нельзя.

Поэкспериментируйте с
Form1.SetFocus
Form1.Show

segailНо если Left и Top применить, то назад по центру как?

Можно сделать хитро.
При запуске формы запоминать ее координаты Left и Top (а они как раз будут зависеть от StartUpPosition)
А при нажатии вашей кнопки - восстанавливать.

segailА если размер монитора будет другой?

Вы имеете ввиду, что между запуском формы и нажатим кнопки восстановления изменится размер монитора????

segailКак сделать наоборот, то есть другой кнопкой сделать форму активной. Кто подскажет?

Предложенные мной варианты, в частности .Show не помогают сделать ее активной?

segailЗачем так утрировать, файл можно открыть и на другом мониторе.
Так это вы утрируете, что у вас между открытием формы и нажатием кнопки вдруг изменится размер монитора.

На другом мониторе будут другие координаты, которые будут считаны во время загрузки формы.
Вы недостаточно внимательно прочитали мое сообщение.

segailнет

Киньте сюда ваш файл с кнопками, формой и имеющимся кодом активации/деактивации - я попробую посмотреть.

segailДанный код делает форму по отношению к листу не активной
Private Sub CommandButton1_Click()
AppActivate Application.Name
End Sub


Взял ваш файл.
Добавил туда этот код.
Жму на кнопку, ничего не меняется, форма не становится неактивной, ибо она модальная.
Поясните, как добиться описанного вами эффекта или что он собой представляет?

Убейте меня, я не понимаю. Форма становится активной, когда вы ткнете в нее мышкой или ткнете в любую из ее кнопок. Причем тут модальность формы и ShowModal? И зачем активировать форму по второй кнопке, если самим нажатием на кнопку вы делаете ее активной?

Вариант с перемещением и восстановлением позиции формы приложен.

У вас в голове каша.

Опишите все то же самое, но с применением следующих терминов:

1) Доступность (разрешенность) формы - это то, может ли пользователь попасть в эту форму и что-то в ней делать (нажимать кнопки, редактировать поля)

2) Активность - форма активна, когда на ней находится фокус ввода, признаком активности формы может служить синий заголовок формы (если стандартные цвета в виндах), если форма неактивна - заголовок серый. Активной/неактивной форму делает обычно пользователь, тыкая мышкой в нее или в другое место, можно менять активности и программно, перемещая фокус ввода, например вашей командой AppActivate Application.Name

3) Модальность - если форма модальная, она не даст пользователю переместить фокус ввода на другую форму в пределах того же приложения, то есть сделать ее неактивной.

Что из этих трех пунктов вам нужно неясно на протяжении всей ветки

segailТогда пускай в ShoowModal стоит True. Как тогда кодом сделать ее не активной?

Никак. См. выше. Модальная форма подразумевает невозможность ее деактивации.

Если быть точным - никак без применения API.
Но тут надо понять, какая задача перед вами стоит, может быть можно обойтись и другими способами.

segailНе в даваясь в подробности, просто скажу, как кодом сделать форму активной, как кодом сделать форму не активной?

Неактивной - например ваш AppActivate Application.Name (при условии, что форма не модальная)

Активной - например Form1.Show

segailЯ подразумеваю неактивность формы по отношению к листу Excel, что бы на листе можно было выполнять ввод данных .
Если Модальность изменить кодом нельзя, тогда надо придумывать что-то другое…

Я же попросил описать все в предложенных терминах.
Вы же придумали какой-то свой термин " неактивность формы по отношению к листу " и пытаетесь с его помощью чего-то объяснить.

В присланном мной файле форма не мешает выполнять на листе ввод данных , она не модальная. Этот вопрос решен. Какой вопрос не решен?

segail
Проще скажу, надо сделать, чтобы она при клике по кнопке мешала вводить данные.

Куда вводить? На лист? или в форму?

Сервис -> Защита -> Защитить лист

Устроит?

Можно для блокировки запустить ДРУГУЮ модальную форму (если позволяет логика) или перезапустить эту форму с опцией vbModal, если опять же позволяет логика.

Или поиграть с API
Call SetWindowPos(Me.hwnd, HWND_TOPMOST, 0, 0, 0, 0, 0)
Только я не догнал, как получить дескриптор окна формы в VBA (Me.hwnd не работает)

Shocker.ProИли поиграть с API
Call SetWindowPos(Me.hwnd, HWND_TOPMOST, 0, 0, 0, 0, 0)
Только я не догнал, как получить дескриптор окна формы в VBA (Me.hwnd не работает)

Ща глянул на свежую голову - TopMost - это не то, это значит, что форма всегда сверху, но это не делает ее модальной. Надо спросить у Antonary.

И еще попробовал способ отслеживать активность формы и насильно возвращать фокус при его потере. На VB мне это удавалось, а в экселе почему-то вообще не возникает событие Deactivate :(

segailЯ где то видал, что форму можно сделать не видимой. Такое возможно? Тогда и активность не активность мне уже будет не нужна.

Метод .Hide
Свойство .Visible

segailДля объекта форма VB 6.5 такого метода и такого свойства нет.

Я использовал ту форму, которую вы мне прислали, не знаю, какая у нее версия.
Откройте файл и нажмите на нижнюю кнопку на форме.

segailа насчет Hide не знал.

Нет, ну вот нормально?
Я пишу "используйте метод Hide"
Вы пишете, что нет такого метода
Я показываю пример.
Вы пишете "я не знал". Ну если не знали, зачем писать, что нет такого метода? Вы мои сообщения через одно читаете или через строчку?

segailТогда покажите, как сделать видимой.

Вы не поверите! Метод.... ну догадайтесь уже сами!

segailShocker.Pro,
Ни чего лучше не придумал, так как форма становится невидимой, создал другую кнопку на листе и вставил код UserForm1.Show

Бинго!
Метод Hide прячет форму, метод Show показывает форму.

segailСвойство .Visible нету

Тоже враки. Правда в экселе оно оказалось только для чтения, а в VB можно этим свойством управлять видимостью формы.

segailНе судите строго я не программист, в основном от свойств объектов отталкиваюсь .

Ну и разве сложно набрать UserForm1, нажать точку, увидеть список всех свойств и методов и от него отталкиваться ?

segailА если для формы установлено действие Initialize то при выполнение кода UserForm1.Show код Initialize будет выполняться, если до этого был выполнен метод Метод .Hide?

Нет. Initialize выполняется только при создании экземпляра класса (в данном случае формы). При скрытии/показе форма не создается заново и это событие не возникнет. Попробуйте Activate/Deactivate (правда мне не удалось поймать Deactivate в экселе)

segailТо есть при первом открытие формы кодом UserForm1.Show

Если говорить строго, форма создается не самим методом Show. Этот метод предназначен для показа формы. А форма (экземпляр класса) создается VB неявно при первом обращении к объекту. Например, можно написать UserForm1.Caption="бебебе" и экземпляр формы уже будет в памяти (хоть и не будет показан) и событие Initialize возникнет именно в этот момент, хоть форму вы и не увидите.

Это особенность VB, которую надо хорошенько иметь ввиду при работе с объектами.