Здравствуйте! Очень часто слышатся жалобы от недовольных сотрудников офисов. Мол, этакая редиска-коллега сама ничего делать не умеет и поэтому всё пялится и пялится в чужой монитор. А ей ещё и премию глядишь дадут!

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

Итак приступим. Откроем Excel. Перейдём на вкладку Вид и нажмём Макросы - Макросы:

Пишем имя макроса и нажимаем кнопку Создать. Я решил назвать макрос словом “Хватит” - сокращенно от “Хватит смотреть!”.

Напишем следующий код (между Sub имя_макроса и End Sub):

Sheets.Add
ActiveSheet.Range(”A1:W200″).Interior.ColorIndex = 3
ActiveSheet.Range(”A1:W200″) = “Хватит смотреть”
ActiveSheet.Range(”A1:W200″).ColumnWidth = 15.86
ActiveSheet.Range(”A1:W200″).Font.Bold = True
Таким образом, в моём случае получится:

Sub Хватит()
Sheets.Add ‘Добавляем новый лист
ActiveSheet.Range(”A1:W200″).Interior.ColorIndex = 3 ‘Указанный диапазон закрашиваем красным
ActiveSheet.Range(”A1:W200″) = “Хватит смотреть” ‘В указанный диапазон записываем  “Хватит смотреть”
ActiveSheet.Range(”A1:W200″).ColumnWidth = 15.86  ‘Немного расширяем ячейки, чтобы фраза поместилась
ActiveSheet.Range(”A1:W200″).Font.Bold = True ‘Делаем жирный шрифт
End Sub

Теперь сделаем так, чтобы наш макрос срабатывал при нажатии кнопки на клавиатуре (например, в тот момент, когда на наш экран смотрят).

Для этого смотрим вкладку Вид и жмём Макросы - Макросы. В появившемся окне нажимаем кнопку “Параметры...”. Назначаем сочетание клавиш и жмём кнопку Ок. Обратите внимание, что раскладка клавиатуры здесь важна. Если вы назначите английскую букву, то макрос и сработает только при нажатии этой буквы на английском языке.

Теперь если во время работы нажать сочетание клавиш, то получится вот такой результат:

Вот так вот. С удовольствием выслушаю ваши замечания.

С уважением

Бабинович Александр