Excel сообщение при открытии файла - Word и Excel - помощь в работе с программами

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

Создание всплывающего окна сообщения при открытии файла Excel с кодом VBA

Автоматически открывать определенные книги при следующем запуске Excel

Создание всплывающего окна сообщения при открытии файла Excel с кодом VBA

Вы можете создать код VBA, чтобы окно сообщения появлялось при открытии конкретной книги, сделайте следующее:

1. Держать Alt + F11 клавиши одновременно, чтобы открыть Microsoft Visual Basic для приложений окно.

2. В Microsoft Visual Basic для приложений окно, дважды щелкните Эта рабочая тетрадь из Проект-VBAProject панели, затем скопируйте и вставьте приведенный ниже код VBA в Модули окно, см. снимок экрана:

Внимание: Если Проект-VBAProject панель скрыта, щелкните Вид > Обозреватель проекта для его отображения.

Код VBA: создание всплывающего окна сообщения при открытии файла Excel:

Private Sub Workbook_Open()
MsgBox "Send this file to xxx"
End Sub

3. Затем закройте окно кода и сохраните эту книгу как Excel Macro-Enabled Workbook формат, пожалуйста, нажмите Файл > Сохранить какИ в Сохранить как окно, выберите Excel Macro-Enabled Workbook от Сохранить как список, см. снимок экрана:

4. Теперь при первом открытии этого файла вверху таблицы отображается предупреждение системы безопасности, щелкните Включить контент кнопку для активации кода VBA, см. снимок экрана:

5. После активации кода VBA сразу появляется окно сообщения. Смотрите скриншот:

Ноты:

1. Вы можете изменить текстовое сообщение в коде на любое другое нужное вам слово;

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

Автоматически открывать определенные книги при следующем запуске Excel

Вы можете легко и быстро открыть несколько книг, которые вы всегда используете при запуске любого файла Excel, Kutools for ExcelАвтора Автоматически открывать эти книги в следующий раз функция может помочь вам справиться с этой работой быстро и комфортно.

После установки Kutools for Excel, выполните следующие действия:

1. Открывайте книги, которые вы хотите открыть вместе в следующий раз автоматически.

2. Затем нажмите Предприятие > Workbook > Автоматически открывать эту книгу в следующий раз, см. снимок экрана:

3. В Автоматически открывать эту книгу в следующий раз диалоговое окно, щелкните Выбрать все чтобы проверить все книги, которые вы хотите автоматически открывать в следующий раз при запуске файла Excel, затем нажмите Ok для выхода из диалога см. снимок экрана:

4. И теперь, когда вы запускаете файл Excel, все выбранные вами книги открываются одновременно.

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

Бесплатная загрузка Kutools for Excel от Yhao сейчас!

Лучшие инструменты для работы в офисе

Kutools for Excel Решит большинство ваших проблем и повысит вашу производительность на 80%

Снова использовать: Быстро вставить сложные формулы, диаграммы и все, что вы использовали раньше; Зашифровать ячейки с паролем; Создать список рассылки и отправлять электронные письма …
Бар Супер Формулы (легко редактировать несколько строк текста и формул); Макет для чтения (легко читать и редактировать большое количество ячеек); Вставить в отфильтрованный диапазон…
Объединить ячейки / строки / столбцы без потери данных; Разделить содержимое ячеек; Объединить повторяющиеся строки / столбцы… Предотвращение дублирования ячеек; Сравнить диапазоны…
Выберите Дубликат или Уникальный Ряды; Выбрать пустые строки (все ячейки пустые); Супер находка и нечеткая находка во многих рабочих тетрадях; Случайный выбор …
Точная копия Несколько ячеек без изменения ссылки на формулу; Автоматическое создание ссылок на несколько листов; Вставить пули, Флажки и многое другое …
Извлечь текст, Добавить текст, Удалить по позиции, Удалить пробел; Создание и печать промежуточных итогов по страницам; Преобразование содержимого ячеек в комментарии…
Суперфильтр (сохранять и применять схемы фильтров к другим листам); Расширенная сортировка по месяцам / неделям / дням, периодичности и др .; Специальный фильтр жирным, курсивом …
Комбинируйте книги и рабочие листы; Объединить таблицы на основе ключевых столбцов; Разделить данные на несколько листов; Пакетное преобразование xls, xlsx и PDF…
Более 300 мощных функций. Поддерживает Office/Excel 2007-2021 и 365. Поддерживает все языки. Простое развертывание на вашем предприятии или в организации. Полнофункциональная 30-дневная бесплатная пробная версия. 60-дневная гарантия возврата денег.

Вкладка Office: интерфейс с вкладками в Office и упрощение работы

Включение редактирования и чтения с вкладками в Word, Excel, PowerPoint, Издатель, доступ, Visio и проект.
Открывайте и создавайте несколько документов на новых вкладках одного окна, а не в новых окнах.
Повышает вашу продуктивность на 50% и сокращает количество щелчков мышью на сотни каждый день!

Источник

Этот прием позволит Вам выводить на экран окно-заставку при открытии любой заданной книги в Excel.

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

Шаг 1. Создаем экранную форму

Откройте редактор Visual Basic — в старых версиях Excel это можно сделать через меню Сервис — Макрос — Редактор Visual Basic (Tools — Macro — Visual Basic Editor), а в новых кнопкой Visual Basic на вкладке Разработчик (Developer) и создайте новую форму, используя команду меню Insert — UserForm. Появится пустая серая оконная форма будущей заставки. Добавим на нее изображение при помощи панели инструментов Toolbox (если у вас ее не видно, то зайдите в меню View — Toolbox):

Нажмите кнопку Image и растяните на форме прямоугольник — в него будет помещено фоновое изображение. Затем на панели инструментов Properties (если у вас ее не видно, то выберите в меню View — Properties) задайте выберите файл картинки в поле Picture:

Возможно, придется немного изменить размер формы, чтобы изображение уместилось полностью. Чтобы написать на форме текст, можно использовать элемент управления Label с панели Toolbox.

Ну, и наконец, выделив предварительно всю форму, можно задать текст в строке заголовка, используя свойство Caption в панели Properties:

В итоге у вас должно получиться нечто подобное:

Шаг 2. Добавляем управляющий код

Щелкните правой кнопкой мыши по форме и выберите View Code. В открывшийся модуль формы добавьте такой код:

 
Private Sub UserForm_Activate() 
   Application.OnTime Now + TimeValue("00:00:05"), "KillTheForm" 
End Sub

Откройте модуль ЭтаКнига в левом верхнем углу (если ее не видно — отобразите соответствующее окно через меню View — Project Explorer) и добавьте в него следующий код:

 
Private Sub Workbook_Open() 
   UserForm1.Show 
End Sub

И, наконец, вставьте обычный модуль (Insert — Module) и скопируйте туда это:

 
Private Sub KillTheForm() 
   Unload UserForm1 
End Sub

Все. Можно закрывать редактор Visual Basic, сохранять файл и пробовать закрыть-открыть книгу…

Как это работает?

При открытии книги Excel выполняет процедуру Workbook_Open из модуля ЭтаКнига. Эта процедура отображает на экране нашу форму-заставку. При отображении формы запускается процедура UserForm_Activate, которая с задержкой в 5 секунд запускает макрос KillTheForm, который убирает форму с экрана.

Ссылки по теме

Что такое макросы, как с ними работать, куда вставлять код на Visual Basic

Источник

Обновлено: 13.04.2023

Доброго времени суток коллеги!
Прошу подсказать как реализовать такую задачу:
есть файл который постоянно модернизируется по функционалу, этот файл используют много людей с разных компьютеров.
Необходимо создать окно уведомлений которое бы могло появляться раз у каждого пользователя при входе в файл со своего ПК и каждый раз после изменения текста в этом окне он каждый раз появлялся у каждого входящего в этот файлик и давал возможность ознакомится с изменениями. Но надо что бы он один раз появлялся после внесения изменений в текстовку этого файла (это окно с уведомлением)

хорошо а как реализовать это? через какую функцию ? Автор — Gameower
Дата добавления — 01.11.2016 в 12:41

если закрыть окно или нажать отмену, следующий открывший файл увидит такое же окно, если изменить текст и нажать ок, следующий увидит этот текст

вместо inputbox, для больших текстов правильнее форму с кнопками сделать.

вместо inputbox, для больших текстов правильнее форму с кнопками сделать. K-SerJC

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

вместо inputbox, для больших текстов правильнее форму с кнопками сделать. Автор — K-SerJC
Дата добавления — 01.11.2016 в 12:56

K-SerJC, хороший вариант, один момент, нужно что бы это окно выпадало один раз после обновления в нем написанного у каждого нового посетителя файла, и повторное появление будет только после обновления содержимого в этом окне, это возможно простыми командами сделать? и желательно нижнюю строку где можно писать ее убрать совсем окно несет информативный характер только

K-SerJC, а вы могли бы дать пример как это сделать? и приписать коменты куда вставить пользователей и т.д.

K-SerJC, а вы могли бы дать пример как это сделать? и приписать коменты куда вставить пользователей и т.д. Gameower

K-SerJC, а вы могли бы дать пример как это сделать? и приписать коменты куда вставить пользователей и т.д.

если не очень срочно сделаю, надо время подумать, а тут еще работой пригрузили :-))

K-SerJC, а вы могли бы дать пример как это сделать? и приписать коменты куда вставить пользователей и т.д.

если не очень срочно сделаю, надо время подумать, а тут еще работой пригрузили :-))

K-SerJC, а вы могли бы дать пример как это сделать? и приписать коменты куда вставить пользователей и т.д.

если не очень срочно сделаю, надо время подумать, а тут еще работой пригрузили :-))

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

прикольно, мысль была похожая, только через username
у нас по сети можно с разных компов под своей учеткой заходить K-SerJC

прикольно, мысль была похожая, только через username
у нас по сети можно с разных компов под своей учеткой заходить Автор — K-SerJC
Дата добавления — 01.11.2016 в 14:10

Так вместо Серийника возьмите за основу что вам надо и все. Там в первых строках кода переменная S. В нее и возьмите юзернэйм ))) Удачи

Так вместо Серийника возьмите за основу что вам надо и все. Там в первых строках кода переменная S. В нее и возьмите юзернэйм ))) Удачи devilkurs

если не очень срочно сделаю, надо время подумать, а тут еще работой пригрузили :-))

вообще есть список юзеров которые будут часто использовать, но есть и новые пользователе которые могут заходить. возможно ли через название ПК в сети это сделать??

если не очень срочно сделаю, надо время подумать, а тут еще работой пригрузили :-))

вообще есть список юзеров которые будут часто использовать, но есть и новые пользователе которые могут заходить. возможно ли через название ПК в сети это сделать?? Gameower

если не очень срочно сделаю, надо время подумать, а тут еще работой пригрузили :-))

вообще есть список юзеров которые будут часто использовать, но есть и новые пользователе которые могут заходить. возможно ли через название ПК в сети это сделать?? Автор — Gameower
Дата добавления — 02.11.2016 в 04:28

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

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

момнет такой, необходимо не ту инфо выводить,а другую ту которую я бы мог сам вписывать типа версия файла такая то и внес по функционалу такие то изменения и т.д. Автор — Gameower
Дата добавления — 02.11.2016 в 04:43

много вариантов. Автор — K-SerJC
Дата добавления — 02.11.2016 в 07:37

Private Sub Workbook_BeforeClose(Cancel As Boolean)
ActiveWorkbook.Save
End Sub

Private Sub Workbook_Open()
If ActiveWorkbook.Sheets(«secr»).Visible <> 0 Then ActiveWorkbook.Sheets(«secr»).Visible = 0
Message (CreateObject(«Scripting.FileSystemObject»).GetDrive(«C»).SerialNumber)
End Sub

Private Sub Message(snDrive As String)
Dim pUz As Integer, txt As String
If ActiveWorkbook.Sheets(«secr»).Cells(3, 1).Value = «» Then AddDrive (snDrive): Moder: Exit Sub
If snDrive = ActiveWorkbook.Sheets(«secr»).Cells(3, 1).Value Then Moder: Exit Sub
pUz = FindUz(snDrive)
If pUz = 0 Then AddDrive (snDrive): Uzver: Exit Sub
txt = ActiveWorkbook.Sheets(«secr»).Cells(1, 1).Value
If ActiveWorkbook.Sheets(«secr»).Cells(pUz, 2).Value = txt Then Exit Sub Else: UpdateDriveRec pUz, txt: Uzver
End Sub
Private Sub Moder()
frmMessage.Hide
frmMessage.TextBox1.Enabled = False
frmMessage.cmbOK.Caption = «Отредактировал!»
frmMessage.Label1.Visible = False
frmMessage.Show
End Sub
Private Sub Uzver()
frmMessage.Hide
frmMessage.TextBox1.Enabled = False
frmMessage.cmbOK.Caption = «Прочитал!»
frmMessage.Label1.Visible = True
frmMessage.Show
End Sub

Private Sub AddDrive(snDrive As String)
Dim t As Integer
t = ActiveWorkbook.Sheets(«secr»).Cells(2, 2).Value
ActiveWorkbook.Sheets(«secr»).Cells(t, 1).Value = snDrive
ActiveWorkbook.Sheets(«secr»).Cells(2, 2).Value = t + 1
End Sub

Private Sub UpdateDriveRec(poz As Integer, txt As String)
ActiveWorkbook.Sheets(«secr»).Cells(poz, 2).Value = txt
End Sub

Private Function FindUz(snDrive As String) As Integer
Dim st As Integer, sp As Integer, à As Integer
FindUz = 0
st = ActiveWorkbook.Sheets(«secr»).Cells(2, 1).Value
sp = ActiveWorkbook.Sheets(«secr»).Cells(2, 2).Value
For f = st To sp
If snDrive = ActiveWorkbook.Sheets(«secr»).Cells(f, 1).Value Then FindUz = f: Exit Function
Next f
End Function

Private Sub Workbook_BeforeClose(Cancel As Boolean)
ActiveWorkbook.Save
End Sub

Private Sub UpdateDriveRec(poz As Integer, txt As String)
ActiveWorkbook.Sheets(«secr»).Cells(poz, 2).Value = txt
End Sub

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

Private Sub Workbook_BeforeClose(Cancel As Boolean)
ActiveWorkbook.Save
End Sub

Private Sub UpdateDriveRec(poz As Integer, txt As String)
ActiveWorkbook.Sheets(«secr»).Cells(poz, 2).Value = txt
End Sub

Этот прием позволит Вам выводить на экран окно-заставку при открытии любой заданной книги в Excel.

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

Шаг 1. Создаем экранную форму

Откройте редактор Visual Basic — в старых версиях Excel это можно сделать через меню Сервис — Макрос — Редактор Visual Basic (Tools — Macro — Visual Basic Editor) , а в новых кнопкой Visual Basic на вкладке Разработчик (Developer) и создайте новую форму, используя команду меню Insert — UserForm. Появится пустая серая оконная форма будущей заставки. Добавим на нее изображение при помощи панели инструментов Toolbox (если у вас ее не видно, то зайдите в меню View — Toolbox):

Ну, и наконец, выделив предварительно всю форму, можно задать текст в строке заголовка, используя свойство Caption в панели Properties:

В итоге у вас должно получиться нечто подобное:

Шаг 2. Добавляем управляющий код

Щелкните правой кнопкой мыши по форме и выберите View Code. В открывшийся модуль формы добавьте такой код:

Откройте модуль ЭтаКнига в левом верхнем углу (если ее не видно — отобразите соответствующее окно через меню View — Project Explorer) и добавьте в него следующий код:

И, наконец, вставьте обычный модуль (Insert — Module) и скопируйте туда это:

Все. Можно закрывать редактор Visual Basic, сохранять файл и пробовать закрыть-открыть книгу.

Как это работает?

Удивительный! Использование эффективных вкладок в Excel, таких как Chrome, Firefox и Safari!

Экономьте 50% своего времени и сокращайте тысячи щелчков мышью каждый день!

1. Держать Alt + F11 клавиши одновременно, чтобы открыть Microsoft Visual Basic для приложений окно.

2. В Microsoft Visual Basic для приложений окно, дважды щелкните Эта рабочая тетрадь из Проект-VBAProject панели, затем скопируйте и вставьте приведенный ниже код VBA в Модули окно, см. снимок экрана:

Внимание: Если Проект-VBAProject панель скрыта, щелкните Вид > Обозреватель проекта для его отображения.

3. Затем закройте окно кода и сохраните эту книгу как Excel Macro-Enabled Workbook формат, пожалуйста, нажмите Файл > Сохранить какИ в Сохранить как окно, выберите Excel Macro-Enabled Workbook из Сохранить как список, см. снимок экрана:

4. Теперь при первом открытии этого файла вверху таблицы отображается предупреждение системы безопасности, щелкните Включить контент кнопку для активации кода VBA, см. снимок экрана:

Ноты:

Автоматически открывать определенные книги при следующем запуске Excel

После установки Kutools for Excel, выполните следующие действия:

1. Открывайте книги, которые вы хотите открыть вместе в следующий раз автоматически.

2. Затем нажмите Предприятие > Workbook > Автоматически открывать эту книгу в следующий раз, см. снимок экрана:

3. В Автоматически открывать эту книгу в следующий раз диалоговое окно, щелкните Выбрать все чтобы проверить все книги, которые вы хотите автоматически открывать в следующий раз при запуске файла Excel, затем нажмите Ok для выхода из диалога см. снимок экрана:

4. И теперь, когда вы запускаете файл Excel, все выбранные вами книги открываются одновременно.

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

Репутация: нет
Всего: нет

Репутация: 13
Всего: 23

Цитата(Rustamb @ 30.12.2009, 12:18 )

Сейчас пишу базу данных

“. Брали корову рыжую одну, отдавать будем корову рыжую одну, чтобы не нарушать отчетности”
Эдуард Успенский, “Каникулы в Простоквашино”

Репутация: нет
Всего: нет

1. Публиковать ссылки на вскрытые компоненты

2. Обсуждать взлом компонентов и делиться вскрытыми компонентами

Несанкционированная реклама на форуме запрещена
Пожалуйста, давайте своим темам осмысленный, информативный заголовок. Вопль «Помогите!» таковым не является.
Чем полнее и яснее Вы изложите проблему, тем быстрее мы её решим.
Оставляйте свои записи в «Книге отзывов о работе администрации»
А вот тут лежит FAQ нашего подраздела

Если Вам понравилась атмосфера форума, заходите к нам чаще!
С уважением mihanik и staruha.

[ Время генерации скрипта: 0.1258 ] [ Использовано запросов: 21 ] [ GZIP включён ]

Читайте также:

Долг в жизни людей разных профессий сообщение

Сообщение о профессии парфюмер

Сообщение об одной из религий востока конфуцианство буддизм индуизм синтоизм

Музей в орле тургенева сообщение

Сообщение фразеологизмы о языке

Источник

Создание окна уведомления при входе в файл

Gameower

Дата: Вторник, 01.11.2016, 11:23 |
Сообщение № 1

Группа: Пользователи

Ранг: Участник

Сообщений: 95

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

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

Excel 2010

К сообщению приложен файл:

4564720.xlsm
(66.1 Kb)

Сообщение отредактировал Gameower — Вторник, 01.11.2016, 11:24

Ответить

K-SerJC

Дата: Вторник, 01.11.2016, 12:36 |
Сообщение № 2

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

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

Сообщений: 487

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

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

Excel 2013

например можно сделать скрытый лист, где будет текст сообщения
при запуске , прогружать форму которая выведет сообщение, а при закрытии формы сохранит его обратно на скрытом листе

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

Ответить

Gameower

Дата: Вторник, 01.11.2016, 12:41 |
Сообщение № 3

Группа: Пользователи

Ранг: Участник

Сообщений: 95

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

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

Excel 2010

хорошо а как реализовать это? через какую функцию ?

Ответить

K-SerJC

Дата: Вторник, 01.11.2016, 12:49 |
Сообщение № 4

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

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

Сообщений: 487

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

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

Excel 2013

на vba код писать, готовой функции нет

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

Ответить

Gameower

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

Группа: Пользователи

Ранг: Участник

Сообщений: 95

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

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

Excel 2010

еще бы тогда дождаться тут самых прошаренных)))

Ответить

K-SerJC

Дата: Вторник, 01.11.2016, 12:56 |
Сообщение № 6

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

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

Сообщений: 487

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

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

Excel 2013

самое простое придумал так:
[vba]

Код

Private Sub Workbook_Open()
ActiveWorkbook.Sheets(«secr»).Cells(1, 1).Value = InputBox(«читайте, пишите для других», «СООБЩЕНИЕ», ActiveWorkbook.Sheets(«secr»).Cells(1, 1).Value)
End Sub

[/vba]

вместо inputbox, для больших текстов правильнее форму с кнопками сделать…

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

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

Ответить

Gameower

Дата: Вторник, 01.11.2016, 13:03 |
Сообщение № 7

Группа: Пользователи

Ранг: Участник

Сообщений: 95

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

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

Excel 2010

K-SerJC, хороший вариант, один момент, нужно что бы это окно выпадало один раз после обновления в нем написанного у каждого нового посетителя файла, и повторное появление будет только после обновления содержимого в этом окне, это возможно простыми командами сделать? и желательно нижнюю строку где можно писать ее убрать совсем окно несет информативный характер только

Сообщение отредактировал Gameower — Вторник, 01.11.2016, 13:09

Ответить

K-SerJC

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

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

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

Сообщений: 487

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

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

Excel 2013

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

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

Ответить

Gameower

Дата: Вторник, 01.11.2016, 13:10 |
Сообщение № 9

Группа: Пользователи

Ранг: Участник

Сообщений: 95

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

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

Excel 2010

K-SerJC, а вы могли бы дать пример как это сделать? и приписать коменты куда вставить пользователей и т.д.

Ответить

K-SerJC

Дата: Вторник, 01.11.2016, 13:35 |
Сообщение № 10

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

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

Сообщений: 487

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

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

Excel 2013

K-SerJC, а вы могли бы дать пример как это сделать? и приписать коменты куда вставить пользователей и т.д.

если не очень срочно сделаю, надо время подумать, а тут еще работой пригрузили :-))

вопрос: есть строго определенный список пользователей?
или это сообщение должно быть для любого кто файл открыл?

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

Ответить

devilkurs

Дата: Вторник, 01.11.2016, 14:00 |
Сообщение № 11

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

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

Сообщений: 167

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

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

Excel 2007, 2010

Gameower, Мой вариант через Серийный номер жесткого диска

К сообщению приложен файл:

9451912.xlsm
(73.8 Kb)

Ответить

K-SerJC

Дата: Вторник, 01.11.2016, 14:10 |
Сообщение № 12

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

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

Сообщений: 487

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

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

Excel 2013

Gameower, Мой вариант через Серийный номер жесткого диска

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

Ответить

devilkurs

Дата: Вторник, 01.11.2016, 14:30 |
Сообщение № 13

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

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

Сообщений: 167

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

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

Excel 2007, 2010

Ответить

Gameower

Дата: Среда, 02.11.2016, 04:28 |
Сообщение № 14

Группа: Пользователи

Ранг: Участник

Сообщений: 95

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

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

Excel 2010

Excel 2013
Цитата Gameower, 01.11.2016 в 13:10, в сообщении № 10
K-SerJC, а вы могли бы дать пример как это сделать? и приписать коменты куда вставить пользователей и т.д.

если не очень срочно сделаю, надо время подумать, а тут еще работой пригрузили :-))

Ответить

Gameower

Дата: Среда, 02.11.2016, 04:43 |
Сообщение № 15

Группа: Пользователи

Ранг: Участник

Сообщений: 95

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

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

Excel 2010

Gameower, Мой вариант через Серийный номер жесткого диска

Ответить

K-SerJC

Дата: Среда, 02.11.2016, 07:37 |
Сообщение № 16

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

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

Сообщений: 487

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

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

Excel 2013

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

можно сделать по юзерам, если при открытии новый юзер, которого нет в базе, ему сообщение будет показано, и в базу он добавиться, но один главный должен быть в любом раскладе.
можно сделать так, что первый прописавшийся в базе пользователь автоматом становиться главным, и ему сообщение открывается всегда, с возможностью редактирования текста.
можно сделать что остальные юзеры могут добавлять к основному тексту свои комментарии, с добавлением времени и имени пользователя…

много вариантов…

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

Ответить

Gameower

Дата: Среда, 02.11.2016, 08:24 |
Сообщение № 17

Группа: Пользователи

Ранг: Участник

Сообщений: 95

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

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

Excel 2010

K-SerJC, главный будет админ,тоесть я, я буду модерировать, остальные только должны читать и быть вкурсе нововведений и всего лишь,ну и они должны раз прочесть новости и больше что бы им не приходилось это окно закрывать, только в случае если я внес изменение в новостях тогда сново раз прочесть им надо будет
а и за каждым ПК сидит один и тот же человек там не меняются люди

Сообщение отредактировал Gameower — Среда, 02.11.2016, 08:25

Ответить

K-SerJC

Дата: Среда, 02.11.2016, 09:49 |
Сообщение № 18

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

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

Сообщений: 487

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

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

Excel 2013

проверяй

вот так сделал:

логика работы такая:
на листе secr (невидимый) храниться база
ячейка 1,1 актуальный текст сообщения
ячейки 2,1 и 2,2 номера первой и последней заполненой сроки базы
ячейка 3,1 sn диска С: модератора (при пустой ячейки автоматом вписывает sn открывшего файл)
4,1 и 4,2 sn диска и сообщение которое прочитано (далее по всем открывшим файл)
если открывает модератор в форме текст можно изменить, окно с текстом всегда открывается, если другой пользователь открывает, то проверям совпадение текста, в базе с текущим
если пользователя нет в базе добавляем его sn и показываем текст.

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

Сообщение отредактировал K-SerJC — Среда, 02.11.2016, 10:00

Ответить

Gameower

Дата: Среда, 02.11.2016, 11:02 |
Сообщение № 19

Группа: Пользователи

Ранг: Участник

Сообщений: 95

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

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

Excel 2010

K-SerJC, с ячеками по подробнее, а то у меня адрес вида а1,а2 и тд.

Сообщение отредактировал Gameower — Среда, 02.11.2016, 11:39

Ответить

K-SerJC

Дата: Среда, 02.11.2016, 12:05 |
Сообщение № 20

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

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

Сообщений: 487

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

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

Excel 2013

K-SerJC, с ячеками по подробнее, а то у меня адрес вида а1,а2 и тд.

1.1 А1
2.1 А2
2.2 B2
3.1 А3
и т.д. 1цифра строка попорядку, вторая столбец попорядку

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

Ответить

Источник

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

Создать всплывающее окно сообщения при открытии файла Excel с кодом VBA

Автоматически открывать определенные книги при следующем запуске Excel

Создавать всплывающее окно сообщения при открытии файла Excel с кодом VBA

Потрясающе! Использование эффективных вкладок в Excel, таких как Chrome, Firefox и Safari!

Сэкономьте 50% своего времени и уменьшите тысячи щелчков мышью каждый день!

Вы можете создать код VBA, чтобы окно сообщения появлялось при открытии конкретной книги, сделайте следующее:

1 . Одновременно удерживайте клавиши Alt + F11 , чтобы открыть окно Microsoft Visual Basic для приложений .

2 . В окне Microsoft Visual Basic для приложений дважды щелкните ThisWorkbook на панели Project-VBAProject , затем скопируйте и вставьте приведенный ниже код VBA в окно Module , см. снимок экрана:

Примечание : если Project- Панель VBAProject скрыта, щелкните View > Project Explorer , чтобы отобразить ее.

Код VBA: создание всплывающего окна сообщения при открытии файла Excel:

3 . Затем закройте окно кода и сохраните эту книгу в формате Excel Macro-Enabled Workbook , нажмите Файл > Сохранить как и в окне Сохранить как выберите Excel Macro-Enabled Workbook из списка Сохранить как тип , см. снимок экрана. :

4 . Теперь при первом открытии этого файла вверху таблицы отображается предупреждение системы безопасности. Нажмите кнопку Включить контент , чтобы активировать код VBA, см. Снимок экрана:

5 . После активации кода VBA сразу появляется окно сообщения. См. Снимок экрана:

Примечания:

1. Вы можете изменить текстовое сообщение в коде на любое другое слово, которое вам нужно;

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

Автоматически открывать определенные книги при следующем запуске Excel

Открытие нескольких книг, которые вы всегда используете при запуске, легко и экономит время. любой файл Excel, функция Автоматически открывать эти книги в следующий раз в Kutools for Excel может помочь вам справиться с этой задачей быстро и удобно.

Kutools for Excel : с более чем 300 удобными надстройками Excel, попробуйте бесплатно без ограничения в течение 60 дней .

Перейти к загрузке
Бесплатная пробная версия 60 дней Приобретение
PayPal/MyCommerce

После установки Kutools for Excel выполните следующие действия:

1 . Откройте книги, которые вы хотите открыть вместе в следующий раз автоматически.

2 . Затем нажмите Enterprise > Workbook > Автоматически открывать эту книгу в следующий раз , см. Снимок экрана:

3 . В диалоговом окне Автоматически открывать эти книги в следующий раз нажмите Выбрать все , чтобы проверить все книги, которые вы хотите автоматически открывать при следующем запуске Файл Excel, затем нажмите Ok , чтобы закрыть диалоговое окно, см. Снимок экрана:

4. И теперь, когда вы запускаете файл Excel, все выбранные вами книги открываются одновременно.

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

Бесплатно загрузите Kutools for Excel прямо сейчас!

Источник

Лучшие инструменты для работы в офисе

Kutools for Excel Решит большинство ваших проблем и повысит вашу производительность на 80%

Вкладка Office: интерфейс с вкладками в Office и упрощение работы

Шаг 1. Создаем экранную форму

Шаг 2. Добавляем управляющий код

Как это работает?

Ссылки по теме

Шаг 1. Создаем экранную форму

Шаг 2. Добавляем управляющий код

Как это работает?

Удивительный! Использование эффективных вкладок в Excel, таких как Chrome, Firefox и Safari!

Экономьте 50% своего времени и сокращайте тысячи щелчков мышью каждый день!

Автоматически открывать определенные книги при следующем запуске Excel

Потрясающе! Использование эффективных вкладок в Excel, таких как Chrome, Firefox и Safari!

Сэкономьте 50% своего времени и уменьшите тысячи щелчков мышью каждый день!

А вот еще интересные статьи: