Профессиональные проблемы, решения, рекомендации и ошибки - VBA - Ответ 9133653

@StepInLik · 13.05.2016, 12:59 **[ТС]**

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

И так (представим что над вами не сошлись звезды, но сошлись следующие обстоятельства),
- вы садитесь за чей-то компьютер (а какая разница, если вы уверены, что никаких хуков не стоит),
- открываете свою супер-секретную книгу с паролем, вводите пароль, книга открывается (но возможно она и без пароля, но на вашей флешке),
- вы жмете Ctrl+H и меняете фамилию Иванов на Сидоров ...
- сохраняете книгу и ее закрываете ... (не закрывая приложение экселя)
- и будучи уверенным, что все секретно - идете по своим делам ...

затем ...
- какой-то заинтересованный пользователь Вася садится за этот компьютер
- видит, что после вашей работы осталось приложение экселя и в этом приложении висит окно замены значений ...
- причем, в этом оставшемся окне - информация о вашей работе с файлом ... и более того - фамилия Иванова и Сидорова!!!
- Вася продает эту информацию и получает свой первый миллион )))

Вопрос: Зачем оставлять открытым окно замены и поиска текста после закрытия книг приложения?! Какой в этом глубокий смысл и почему стоимость его оставить - выше, чем стоимость ухода от потенциальных рисков и обеспечения конфиденциальности информации пользователя!

---------------------------------------------------------------------------------
Добавлено через 28 минут
Хотите довести начинающего эксельного кодера до истерики? Создайте все листы книги средством Ctrl+F11. Удалите все существующие новых версий ... и попросите на досуге - добавить обработчик событий какого-то листа ...
Этим же способом можно воспользоваться, чтобы до вести до истерики какого-нибудь хвастунишку - просто добавьте на такой лист табличку и попросите сделать с нее сводную )

---------------------------------------------------------------------------------
Добавлено через 27 минут
1. Создайте сводную
2. Добавьте (например) в фильтр сводной какое-то поле
3. На ячейку отбора значений этого фильтра сделайте примечание (Shift+F2)

4. Во-первых, в контекстном меню этой ячейки нет ни одного поля управления примечаниями

5. Выделяем какую-то другую ячейку (не ту, в которую только что добавили примечание)
6. Жмем "Найти и выделить""Область выделения" и ставим галочку видимости на объект этого примечания ... - примечание появилось и висит
7. Затем стрелками клавиатуры подползаем к этой ячейке и выделяем ее. Все правильно - ячейка выделилась. примечание висит.

8. Теперь отползаем стрелками клавиатуры в сторону и мышкой выделяем эту ячейку при этом, немного задерживая указатель мыши в области этой ячейки (затем его убирая). (если указатель мыши не задержите, то фокуса не будет)
9. И! примечание само собой перестает отражаться. Флажок из окна "Выделение и видимость" - сам по себе пропадает.

Нет слов ...

Вернуться к обсуждению:
Профессиональные проблемы, решения, рекомендации и ошибки VBA

Следующий ответ

Другие темы раздела
VBA Как с одного столбца выдергнуть группы данных и снова сгрупировать в два столбца по порядку Доброго времени суток, профессионалы!!! В данном направлении я почти 0 на палочке, но всё-же мне необходимо это сделать. Суть в том, что ежедневно я получаю такую таблицу (количество данных в ней меняется ежедневно) из которой составляется отчет, хотелось бы автоматизировать данный процесс, так как количество строк может достигать и 15000. Что именно надо сделать словами даже и не знаю как... https://www.cyberforum.ru/ vba/ thread796910.html	Подсчитать сколько точек в пространстве VBA Помогите решить или как определить что точка вне эллипсоида 4x2 + 9y2 + 16z2 = 125? Подсчитать сколько точек в пространстве, координаты которых вводятся с первых трех столбцов рабочего листа, находятся вне эллипсоида 4x2 + 9y2 + 16z2 = 125. Для описания координат точек использовать переменную пользовательского типа. Для проверки принадлежности точки указанной области, использовать логическую...
VBA Как в Vba записать формулу, содержащую ссылки на ячейки https://www.cyberforum.ru/ vba/ thread796503.html Всем доброго времени суток. такая проблема. нужно в vba записать в ячейку формулу: Cells(17, 24).FormulaR1C1 = "=SUMPRODUCT(R17C6:R20C6,RC:RC)" Сложность в том, что каждый раз ячейки R20C6 и RC меняются, т.е. по идее нужно, чтобы формула выглядела таким образом: Cells(17, 24).FormulaR1C1 = "=SUMPRODUCT(R17C6:x, RC:y)" где вместо x можно было задавать ячейку опять же в программе типа...	VBA Вычислить значение функции Используя редактор VB MS Excel, разработать пользовательскую форму и составить программу ,вычисляющую значение функции в соответствии с вариантом задания(Noп/п). Подобрать контрольный пример Ссылка удалена Читаем Правила! 4.3 Создавайте темы с осмысленными и понятными названиями - это серьезно повышает шансы, что на ваш вопрос ответят. 4.4 На каждый вопрос создавайте по одной теме - это... https://www.cyberforum.ru/ vba/ thread796316.html
Копирование в EXcel VBA VBA На кнопочке в Excel есть данный макрос: With Worksheets("Лист1") Range(.Cells(3, 1), .Cells(.UsedRange.Rows.Count, .UsedRange.Columns.Count)).Select Selection.Copy Sheets("Лист1").Range("A26").PasteSpecial Он вставляет ячейки начиная с 26 строки(кнопка находится на 24 строке). Как можно сделать чтобы: -ячейки вставлялись через 2 строки; -следующие вставляемые ячейки...	VBA Изменение размера примечаний https://www.cyberforum.ru/ vba/ thread796089.html Создал код который изменяет размер примечания во всех ячейках в диапозоне: Sub kl() With ActiveWorkbook.Worksheets("Лист1").Range("A1:Q100").Comment .Shape.Width = 84.75 .Shape.Height = 57# End With End Sub Не работает... Где может быть ошибка?
VBA Строка подключения к Терадата - какая она ? Необходимо подключиться к Терадате Для подключения к другому источнику использовался следующий код Dim Conn As ADODB.Connection ... ... Conn.Open "Строка подключения" https://www.cyberforum.ru/ vba/ thread796078.html	VBA Excel Сохранение в формате xlsx VBA Возможно и как сохранить макрос и форму на писанные на VBA в формате документа xlsx, а не в xlsm. Встречал документы с макросами в формате xlsx, а мне Excel не даёт это сделать. Спасибо!
VBA Удалить пустые строки в конце документа Word https://www.cyberforum.ru/ vba/ thread796027.html Извините что обращаюсь с таким ламерским вопросом - никак не удается мне разобраться с объектами Range:wall:. Может, на этом, конкретном, примере удастся разобраться.	VBA Определить, на какую букву оканчивается третье слово Программу я написал, но я хочу добавить условие, что если пользователь ввёл меньше трёх слов, то будет выдавать ошибку. Что-то типа if q(2) <> "" then бла бла. Sub main() Dim str, q() As String Do str = InputBox("Введите строку", "Просьба", _ "ночь улица фонарь аптека") If Len(str) <> 0 Then Do str = Replace(str, " ", " ") https://www.cyberforum.ru/ vba/ thread795808.html
VBA Создал textbox в vba excel (поле само) как присвоить значение переменной которую вводишь или получаешь из других макросо подскажите сам код чтобы значение этого textbox'а приравнять к значению какой нибудь переменной	VBA Как сгенерировать SQL запрос для CommandText Помогите пож-та сгенерировать текст SQL запроса для того чтобы поместить его в CommandText при создании QueryTable берущей данные из Терадаты. Загвоздка в том, что к команде "SELECT * FROM "Название базы"."Название таблицы" нужно приписать ограничение WHERE "Значение" = .... и вместо многоточия вставить текстовое значение, которое выбрано в данный момент в ListBox1 расположенном на форме... https://www.cyberforum.ru/ vba/ thread795416.html

	13.05.2016, 12:59