Домашняя страница Undo Do New Save Карта сайта Обратная связь Поиск по форуму
МИР MS EXCEL - Гость.xls

Вход

Регистрация

Напомнить пароль

 

= Мир MS Excel/Предупреждение о конфиденциальной информации - Мир MS Excel

Регистрация · Логин: · Пароль: · · Забыли пароль?
Страница 1 из 11
Модератор форума: _Boroda_, Pelena, Manyasha, SLAVICK 
Мир MS Excel » Вопросы и решения » Вопросы по Excel » Предупреждение о конфиденциальной информации (Формулы/Formulas)
Предупреждение о конфиденциальной информации
awaddwaawddw Дата: Воскресенье, 11.02.2018, 17:06 | Сообщение № 1
Группа: Пользователи
Ранг: Участник
Сообщений: 72
Репутация: 0 ±
Замечаний: 20% ±

Excel 2007
Добрый день! PS: НЕ понимаю почему код не получается адекватно опубликовать! Первый раз такое. Но не в коде дело, дело в самом предупреждении.

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

[vba]
Код
Sub Get_Value_From_Close_Book()

    Application.OnTime Now + TimeSerial(0, 0, 30), "Get_Value_From_Close_Book"

    Dim sShName As String, sAddress As String, vData

    'Отключаем обновление экрана

    Application.ScreenUpdating = False

    Workbooks.Open "C:\Users\1ukom.xlsm" '" , ReadOnly:=True

    sAddress = "A1:O2000" 'или одна ячейка - "A1"

    'получаем значение

    vData = Sheets("Лист1").Range(sAddress).Value

    ActiveWorkbook.Close False

    'Записываем данные на активный лист книги,

    'с которой запустили макрос

    If IsArray(vData) Then

        [A1].Resize(UBound(vData, 1), UBound(vData, 2)).Value = vData

    Else

        [A1] = vData

    End If

    'Включаем обновление экрана

    Application.ScreenUpdating = True

End Sub
[/vba]

Буквально каждые 30 минут выскакивает предупреждение (на фото ниже). Как избавиться от него? Раздражает каждые пол часа это предупреждение.

К сообщению приложен файл: 5711396.jpg(15Kb)


Сообщение отредактировал awaddwaawddw - Воскресенье, 11.02.2018, 17:13
 
Ответить
СообщениеДобрый день! PS: НЕ понимаю почему код не получается адекватно опубликовать! Первый раз такое. Но не в коде дело, дело в самом предупреждении.

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

[vba]
Код
Sub Get_Value_From_Close_Book()

    Application.OnTime Now + TimeSerial(0, 0, 30), "Get_Value_From_Close_Book"

    Dim sShName As String, sAddress As String, vData

    'Отключаем обновление экрана

    Application.ScreenUpdating = False

    Workbooks.Open "C:\Users\1ukom.xlsm" '" , ReadOnly:=True

    sAddress = "A1:O2000" 'или одна ячейка - "A1"

    'получаем значение

    vData = Sheets("Лист1").Range(sAddress).Value

    ActiveWorkbook.Close False

    'Записываем данные на активный лист книги,

    'с которой запустили макрос

    If IsArray(vData) Then

        [A1].Resize(UBound(vData, 1), UBound(vData, 2)).Value = vData

    Else

        [A1] = vData

    End If

    'Включаем обновление экрана

    Application.ScreenUpdating = True

End Sub
[/vba]

Буквально каждые 30 минут выскакивает предупреждение (на фото ниже). Как избавиться от него? Раздражает каждые пол часа это предупреждение.


Автор - awaddwaawddw
Дата добавления - 11.02.2018 в 17:06
bmv98rus Дата: Воскресенье, 11.02.2018, 17:30 | Сообщение № 2
Группа: Проверенные
Ранг: Старожил
Сообщений: 1131
Репутация: 189 ±
Замечаний: 0% ±

Excel 2013/2016
Application.DisplayAlerts = False
 
Ответить
СообщениеApplication.DisplayAlerts = False

Автор - bmv98rus
Дата добавления - 11.02.2018 в 17:30
Pelena Дата: Воскресенье, 11.02.2018, 18:09 | Сообщение № 3
Группа: Модераторы
Ранг: Местный житель
Сообщений: 12340
Репутация: 2716 ±
Замечаний: 0% ±

Excel 2010, 2016 & Mac Excel
В Excel 2013
Параметры - Центр управления безопасностью - Параметры центра управления безопасностью - Параметры конфиденциальности -
снять флажок: Удалять персональные данные из свойств файла при сохранении


"Черт возьми, Холмс! Но как??!!"
ЯД 41001765434816
 
Ответить
СообщениеВ Excel 2013
Параметры - Центр управления безопасностью - Параметры центра управления безопасностью - Параметры конфиденциальности -
снять флажок: Удалять персональные данные из свойств файла при сохранении

Автор - Pelena
Дата добавления - 11.02.2018 в 18:09
Мир MS Excel » Вопросы и решения » Вопросы по Excel » Предупреждение о конфиденциальной информации (Формулы/Formulas)
Страница 1 из 11
Поиск:

Яндекс цитирования
© 2010-2018 · Дизайн: MichaelCH · Хостинг от uCoz · При использовании материалов сайта, ссылка на www.excelworld.ru обязательна!