Спасибо всё получилось. Только одна проблемка, подтормаживает, нужно время на обработку макроса. Возникает сразу вопрос, не вернуться ли к тому что делать было лень, число/точка/номер месяца/enter?

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

Например, сейчас январь, ввожу 5 -entire, отображается 05.01.2025

Добрый день. В ячейку с форматом дата вводим число и номер месяца, вставляется дата с текущим годом. Есть ли возможность организовать: вводим день месяца и встаёт введённый день, текущий месяц и год?

Вот я и пытаюсь оградить от всяких не глядя тыкающих в клавиатуру

Грубо говоря с шаблона автоматически формируется что то вроде накладной, там ничего руками делать не надо, только распечатать. Иногда нужно удалить одну или несколько позиций.

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

Попробовал. Подвисает, даже если в выделенном нет формул. Спасибо за подсказку. Предупреждён, значит вооружен. Но такая операция вряд ли будет производится.
Спасибо всем за помощь.

Дмитрий, спасибо. Попробовал ваш вариант всё получилось.
Не могли бы разъяснить что это за объект "Me.", что бы до конца понимать, что происходит.

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

Добрый день. Защитил формулы макросом.
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
 Dim rng As Range
 For Each rng In Target.Cells
   If rng.HasFormula Then
     ActiveSheet.Protect
   Else
     ActiveSheet.Unprotect
   End If
 Next rng

End Sub

Иногда необходимо удалить целую строку содержащую формулы. Долго думает или вообще виснит. Подскажите, как можно обойти. Может как-то можно поставить условие "если выделена вся строка"?

И правда всё работает. Всё было дело в волшебном Option Explicit. Спасибо за помощ.
Форум был последней инстанцией. Я и сам ленивых халявщиков не люблю. Но я несколько дней рыл гугл и ничего действенного не попадалось, уже края потерял. А за ссылочку вам спасибо, многое прояснилось.

Может для 64-х разрядной винды нужно при декларации ссылаться на какой нибудь другой модуль?

Это я уже пробовал пишет не может подключить этот модуль. Даже из каталога Windows.
Пробую декларировать И такое Declare Function GetActiveWindow Lib "User32" () As Long
Выделяет красным цветом, не может скомпилировать.
Но я накопал кучу примеров. Все подобного рода. Все перепробовал, результат один и тот же.  

Добрый день форумчане. Появилась необходимость воспользоваться API. Проблема, не могу подключить user32.dll.
Скачал его из папки Windows в папку где установлен Excel но в инструментах в обозревателе (Tools -References) его всё равно не видно, что бы галку поставить. Подскажите, что делаю не так?  

V, спасибо за помощь. Разобрался, всё работает.

V, спасибо, что откликнулись.
Можно немного пояснить?
-Эти процедуры должны быть в надстройке?
-"^q" (значек^)  это буква которая должна стоять в комбинации клавиш?
Я нашёл тему примерно под мой вопрос, но я там мозг сломал.

Добрый вечер.
Повесил на макрос, который находится в надстройке, сочетание клавиш. Всё отлично срабатывает до тех пор пока не закрыл Excel. Открываю снова и он не помнит привязанные клавиши. Подскажите как это побороть.

Парни, добрый день. Мои потуги не принесли никакого результата.
Что-то такое Workbooks("Книга").Sheets("Лист").Activate
Но там вся петрушка в том что по комбинации клавиш срабатывает макрос с другой книги.
В надстройке проверять какая книга активна и в зависимости от этого запускать определённый алгоритм?

Спасибо, буду пробовать.

Доброго времени суток. Несколько книг, в каждой книге есть результирующий (главный) лист. В каждой книге написал макрос активизирующий этот лист.  Все макросы повешены на одну комбинацию клавиш. Проблема, если открыта не одна книга то срабатывает непойми какой макрос. Есть ли способ сделать так что-бы срабатывал макрос активной книги?
Worksheets("ффф").Activate -пытается в активной книге найти лист "ффф"
ThisWorkbook.Sheets("ффф").Activate тоже не помогает.

Парни, спасибо. Я уже разобрался. Начиная что то новое неизбежно начинаешь спотыкаться.

Jack Famous, спасибо за подсказку, всё получилось. Но в статье часто звучит фраза "активный лист".
Я предполагал, что если загрузить в массив aAr = Range("E2:G" & i + 1).Value то загрузка будет с первого листа. Получается что будет попытка загрузить с активного листа?

Добрый день.
Объявляю массив
 Dim aAr() 'массив отмеченных листов с диапазоном дат
 Dim runAr() 'массив рабочих дней
При попытке загрузить данные выходит ошибка
     runAr = Worksheets(aAr(n, 1)).Range(Cells(2, 25), Cells(iNam + 2, 25 + ird)).Value 'Y=25 столбик
в aAr(n, 1) имя листа
На всякий случай прилагаю файл пробника

Jack Famous,
Это уже меняет дело. Макросом перебираю листы с учётом условий и ура.
А какое событие надо применить, что бы при каждом изменении времени на любом рабочем листе срабатывал бы макрос. Впрочем об этом рано, надо макрос сначала сочинить.

Интересно, а можно сделать так что бы макрос срабатывал ка формула самостоятельно?

Вот спасибо. Мне достаточно направления куда копать.

Добрый день.
В книге на каждый заказ создаётся лист из листа-шаблона. В каждом листе отбираю отработанные часы работником на каждый день начиная с ячейки Y3 .
Нужно суммировать в листе "Список" время по каждому работнику по датам со всех листов. Правда в книге могут быть листы с другой информацией. Но это можно отсортировать каким нибудь способом, например в каждом нужном листе в ячейке X2 будет "XX".
Можно ли это сделать формулами? Не хотел колхозить макрос, что бы всё работало автоматически.

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

Всё заработало. Очень спасибо.