Поиск  Пользователи  Правила  Войти
Форумы "Планета Excel" » Пользователи » korobcov
Выбрать дату в календаре…Выбрать дату в календаре

Страницы: 1
Макрос на блокировку ячеек в каждой строке по дате, Создать макрос на блокировку ячеек в каждой строке в зависимости от даты
 
#
12.09.2024 07:55:31
Добрый день!


Есть таблица (вложение). Необходим макрос, который будет блокировать ячейки в зависимости от даты.

Суть вопроса:

На листе "База" ежесуточно сотрудниками
предприятия заполняется информация.

Придя на работу в столбец А:А ставят дату и правее
в столбцы В:J вносят информацию.

Необходим макрос который будет блокировать
изменение не пустых ячеек на листе "База" и только тех в строках
которых дата из столбца А:А  менее двое суток от даты на сегодня. То есть
допустим сегодня число 12.09.2024 г, макрос должен заблокировать ячейки A2:J36 (выделил шрифт темно красным цветом).

Прошу помощи.
 
Перейти    
Просмотр обозначений в строке ячеек и вывод крайнего правого обозначения из всех ячеек., Поиск одного из условных обозначений в строке ячеек, причем крайнего правого.
 
#
29.08.2022 17:48:13
Доброго времени суток.
Столкнулся с задачей, которую не могу решить, вроде бы простоя, но решения не нашёл.
Есть строки с Фамилиями работников с условными обозначениями, и даты, когда зафиксированы одно из условных обозначений.
При этом условное обозначение может повторяться в строке.
Так вот, как найти одно из условных обозначений в строке, но крайнее правое и вывести в результат.
То есть какого числа было самое последнее условное обозначение?
Пример задачи:
1) Иванов отпросился 1го, 2го и 08 августа.
Как чтобы в нужной мне ячейке отображалась крайняя дата, когда Иванов отпрашивался?
2) Также Иванов заболел 6го и 10го августа.
Как чтобы в нужной мне ячейке отображалась крайняя дата, когда Иванов заболел?
 
Перейти    
Блокировка не пустых ячеек от изменения после печати листа, Макрос на блокировку диапазона ячеек которые не пустые от изменения после печати листа
 
#
07.06.2022 11:19:16
Доброго времени суток друзья!
Может не по теме.
Помогите, пожалуйста кто соображает.
Есть макрос который блокирует в диапазоне "B4:C1048576" ячейки от изменения после внесения в них каких либо данных, а остальные ячейки в диапазоне в которых пока нет данных не блокируются.

Код
Private Sub Worksheet_BeforePrint(ByVal Target As Range)
   If Not Intersect(Range("B4:C1048576"), Target) Is Nothing Then
       ActiveSheet.Unprotect "5101151"
       Target.Locked = True
       Target.AddComment.Text "Автор последних изменений: " & Application.UserName & vbCrLf & "Дата последних изменений: " & CStr(Now)
       ActiveSheet.Protect "5101151", DrawingObjects:=True, Contents:=True, Scenarios:=True _
        , AllowFormattingCells:=True, AllowFormattingColumns:=True, _
        AllowFormattingRows:=True, AllowSorting:=True, AllowFiltering:=True, _
        AllowUsingPivotTables:=True
   End If
End Sub


Так вот, как прикрутить к этому макросу команду, чтобы этот макрос всё это выполнял, но только после печати листа?
То есть после печати листа, блокировались бы ячейки из диапазона, но только те которые содержат какие либо данные, а пустые можно было бы изменять.
Ну и т.д. заполнив любую другую ячейку из диапазона, после печати листа заполненная ячейка также становилась бы заблокированной от изменения.
Изменено: БМВ - 07.06.2022 12:30:51
 
Перейти    
Вставка примечания я ячейку на защищенном листе
 
#
22.02.2018 18:42:52
Добрый день.
Как воплотить в жизнь следующую задачу.
Есть таблица с данными, сам лист защищен паролем. На листе есть ячейки которые защищены от изменения и ячейки которые не защищены. То есть в не защищенных разным пользователям разрешено вносить данные. Вопрос как сделать, чтобы не снимая защиту с листа они могли добавлять примечание в ячейки которые не защищены. Может через макрос как нибудь или какие нибудь настройки?
Была задумка, записать макрос типа
Код
Sub Вставка_примечания()
'ActiveSheet.Unprotect "мой пароль"
Тут думаю какое то условие должно быть прописано, которое после активации макроса будет разрешать вставку примечания в незащищенные ячейки, при этом защищенные ячейки должны быть защищены от изменения.
    ActiveSheet.Protect "мой пароль", DrawingObjects:=True, Contents:=True, Scenarios:=True _
        , AllowFormattingCells:=True, AllowFormattingColumns:=True
End Sub

разместить на листе кнопку, обозвать ее "для вставки примечания", прикрепить к ней макрос и когда будет необходимость вставить примечание в ячейку пользователь нажимает на эту кнопку "для вставки примечания" и вставляет примечание в ячейку, но при этом другие ячейки защищенные изначально от изменения должны быть заблокированы, т.к. содержат формулы и ссылки на другие страницы. Но как написать такой макрос не пойму, может это не реально воплотить. По интернету поискал решения не нашел.
Изменено: korobcov - 23.02.2018 09:54:16
 
Перейти    
Страницы: 1
Наверх