Заставка, с возможностью включения макросов

Старая форма входа

Страница 1 из 1 1
Модератор форума: китин, _Boroda_

Мир MS Excel » Вопросы и решения » Вопросы по VBA » Заставка, с возможностью включения макросов (Макросы/Sub)

adamm1603

Дата: Суббота, 29.10.2016, 07:07 | Сообщение № 1

Группа: Проверенные

Ранг: Форумчанин

Сообщений: 144

Репутация: 0 ±

Замечаний: 0% ±

Excel 2013

Доброго времени форумчане! Не смог найти в инете, можно ли включить макросы макросом, по логике понимаю, что нет, но возможно есть какие нибудь уловки. В идеале мне нужно, что бы после открытия документа открывалось окно с текстом "Для корректной работы необходимо включить поддержку макросов, ВКЛЮЧИТЬ?" и кнопки "ДА" и "НЕТ"

Ответить

KuklP

Дата: Суббота, 29.10.2016, 07:52 | Сообщение № 2

Группа: Проверенные

Ранг: Старожил

Сообщений: 2369

Репутация: 486 ±

Замечаний: 0% ±

2003-2010

Спрячьте все листы кроме заставки с надписью и отображайте их макросом при открытии книги.

Ну с НДС и мы чего-то стoим! kuklp60@gmail.com
WM Z206653985942, R334086032478, U238399322728

Ответить

adamm1603

Дата: Суббота, 29.10.2016, 08:41 | Сообщение № 3

Группа: Проверенные

Ранг: Форумчанин

Сообщений: 144

Репутация: 0 ±

Замечаний: 0% ±

Excel 2013

Может я вас не правильно понимаю или я не правильно изъяснился, к примеру у сотрудника по умолчанию макросы в книге отключены и как их включить он не имеет представления и мне нужно что бы при открытии книги появлялось окно с кнопкой, которая при нажатии на неё включала макрос, такое возможно?

Ответить

gling

Дата: Суббота, 29.10.2016, 09:46 | Сообщение № 4

Группа: Друзья

Ранг: Участник клуба

Сообщений: 2525

Репутация: 678 ±

Замечаний: 0% ±

2010

Чтобы кнопка работала, нужно чтобы макросы были включены. Почитайте про варианты решения Вашей задачи

ЯД-41001506838083

Сообщение отредактировал gling - Суббота, 29.10.2016, 09:50

Ответить

Michael_S

Дата: Суббота, 29.10.2016, 09:51 | Сообщение № 5

Группа: Друзья

Ранг: Старожил

Сообщений: 2012

Репутация: 373 ±

Замечаний: 0% ±

Excel2016

по запросу принудительное включение макроса первая ссылка:
Включение макроса (принудительно)

Ответить

KuklP

Дата: Суббота, 29.10.2016, 10:40 | Сообщение № 6

Группа: Проверенные

Ранг: Старожил

Сообщений: 2369

Репутация: 486 ±

Замечаний: 0% ±

2003-2010

Цитата adamm1603, 29.10.2016 в 08:41, в сообщении № 3

макросы в книге отключены и как их включить он не имеет представления

Если кадр работает с Эксом и не знает как включить макросы - его надо гнать мокрыми тряпками. На поиски другой работы. Или как минимум отправлять в среднюю общеобразовательную школу на уроки информатики. Сейчас дети дошкольного возраста знают как включить макросы

Ну с НДС и мы чего-то стoим! kuklp60@gmail.com
WM Z206653985942, R334086032478, U238399322728

Ответить

adamm1603

Дата: Суббота, 29.10.2016, 11:42 | Сообщение № 7

Группа: Проверенные

Ранг: Форумчанин

Сообщений: 144

Репутация: 0 ±

Замечаний: 0% ±

Excel 2013

Цитата KuklP, 29.10.2016 в 10:40, в сообщении № 6

Сейчас дети дошкольного возраста знают как включить макросы

Я согласен, но уволить бабушку одуванчика начальник не может)

Ответить

K-SerJC

Дата: Вторник, 01.11.2016, 08:51 | Сообщение № 8

Группа: Проверенные

Ранг: Обитатель

Сообщений: 487

Репутация: 86 ±

Замечаний: 0% ±

Excel 2013

делал программку для сотрудников, сделал один дополнительный лист в нем написал в середине видимой области, для работы программы необходимо включить активное содержимое.
можно даже картинку с описанием как это сделать прицепить...

в vba использовал две процедуры на открытие книги, этот лист скрывается, все остальные отображаются, перед закрытием наоборот все листы скрываются, этот становиться видимым...

хакеров нет, а обычным сотрудником достаточно такой напоминалки.

[vba]

Код

Private Sub Workbook_BeforeClose(Cancel As Boolean)
Worksheets("WAR").Visible = -1
Worksheets("лист1").Visible = 2
Worksheets("лист2").Visible = 2
Worksheets("Лист3").Visible = 2
End Sub

Private Sub Workbook_Open()
Worksheets("лист1").Visible = -1
Worksheets("лист2").Visible = -1
Worksheets("Лист3").Visible = -1
Worksheets("WAR").Visible = 2
frmStart.Show ' запуск программы
End Sub

[/vba]

Благими намерениями выстелена дорога в АД.

Сообщение отредактировал K-SerJC - Вторник, 01.11.2016, 09:22

Ответить

Мир MS Excel » Вопросы и решения » Вопросы по VBA » Заставка, с возможностью включения макросов (Макросы/Sub)

Страница 1 из 1
1