Форум программистов
 

Восстановите пароль или Зарегистрируйтесь на форуме, о проблемах и с заказом рекламы пишите сюда - alarforum@yandex.ru, проверяйте папку спам!

Вернуться   Форум программистов > Microsoft Office и VBA программирование > Microsoft Office Excel
Регистрация

Восстановить пароль
Повторная активизация e-mail

Купить рекламу на форуме - 42 тыс руб за месяц

Закрытая тема
Ваша тема закрыта, почему это могло произойти? Возможно,
Нет наработок или кода, если нужно готовое решение - создайте тему в разделе Фриланс и оплатите работу.
Название темы включает слова - "Помогите", "Нужна помощь", "Срочно", "Пожалуйста".
Название темы слишком короткое или не отражает сути вашего вопроса.
Тема исчерпала себя, помните, один вопрос - одна тема
Прочитайте правила и заново правильно создайте тему.
 
Опции темы Поиск в этой теме
Старый 10.12.2010, 14:01   #1
valerij
Старожил
 
Аватар для valerij
 
Регистрация: 12.05.2007
Сообщений: 2,339
По умолчанию Запрет на редактирование ячеек от даты

Задача!!!
Нужно сделать запрет на редактирование ячеек от даты, т. е. сегодня, можно менять, значение в ячейках, а завтра, уже нельзя и только, я, могу менять значения в любой дате.
~ пример, УчетА, А3:В6 - это 01-12-10, А7:С10 - это 02-12-10....
М. Н. А. - это место нахождения автомашин.
Интерфейс ~ -й, может, как то мона, более профессионально сделать.
Буду очень, благодарен!!
Вложения
Тип файла: rar УчетА.rar (2.0 Кб, 35 просмотров)
valerij вне форума
Старый 10.12.2010, 23:16   #2
valerij
Старожил
 
Аватар для valerij
 
Регистрация: 12.05.2007
Сообщений: 2,339
По умолчанию

Господа профи, ну мона, что -либо ответить, нет, ну обращусь к другим...
valerij вне форума
Старый 10.12.2010, 23:31   #3
motorway
Участник клуба
 
Регистрация: 28.06.2009
Сообщений: 1,950
По умолчанию

Можно сделать, чтобы при выделении ячейки значение ее запоминалось в переменную, а при изменении проверялось, подходит ли дата, если нет, то возвращается последнее значение.
motorway вне форума
Старый 11.12.2010, 14:07   #4
Fierce
Пользователь
 
Регистрация: 11.04.2009
Сообщений: 29
По умолчанию

Попробуй так
Код:
Private Sub Worksheet_Change(ByVal Target As Range)
Dim iC As Long

iC = Target.Column
If Cells(1, iC) < Day(Date) Then
    With Application
        .EnableEvents = False
        .Undo
        .EnableEvents = True
    End With
End If

End Sub
А насчет
Цитата:
и только, я, могу менять значения в любой дате.
Это надо что-то типо пароля придумать, который будет вводится например в inputbox
Fierce вне форума
Старый 12.12.2010, 04:33   #5
valerij
Старожил
 
Аватар для valerij
 
Регистрация: 12.05.2007
Сообщений: 2,339
По умолчанию

Цитата:
Сообщение от Fierce Посмотреть сообщение
Попробуй так
Попробовал, ок, но

Последний раз редактировалось valerij; 12.12.2010 в 16:07.
valerij вне форума
Старый 12.12.2010, 16:12   #6
valerij
Старожил
 
Аватар для valerij
 
Регистрация: 12.05.2007
Сообщений: 2,339
По умолчанию

Fierce!!!
Спасибо!!
Помог мне, супер профессионал, вся моя задача:
Код:
Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Excel.Range)
If Environ("UserName") = "Администратор" Then Exit Sub
If Intersect(Target, Sh.Columns((Day(Date) * 2) - 1).Resize(, 2)) Is Nothing Then
   With Application
        .EnableEvents = False
        .Undo
        .EnableEvents = True
   End With
End If
End Sub
Больше сюда и обращаться не буду, стыдно, девочки...
valerij вне форума
Старый 12.12.2010, 21:46   #7
EducatedFool
Программист VBA
СуперМодератор
 
Аватар для EducatedFool
 
Регистрация: 13.07.2008
Сообщений: 6,856
По умолчанию

Цитата:
Сообщение от valerij Посмотреть сообщение
Больше сюда и обращаться не буду, стыдно, девочки...
Не хочешь - не обращайся, тебя никто не заставляет.
Тебе уже объясняли, почему твои темы остаются без ответа, - просто ты не можешь внятно сформулировать задачу.

Лично я с первого раза понимаю, что надо сделать, лишь в 5-10% из твоих тем.
Для тем от других форумчан этот показатель достигает 40-90%.

А после таких заявлений, Валера, не думаю, что впредь специалисты этого форума будут охотно пытаться разобраться в твоих макросах...
EducatedFool вне форума
Закрытая тема


Купить рекламу на форуме - 42 тыс руб за месяц



Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Запрет ввода данных после наступления некоторой даты Nata75 Microsoft Office Excel 8 08.11.2010 08:24
запрет редактирования ячеек в excel из под delphi Ensoph Общие вопросы Delphi 0 08.10.2009 13:29
Запрет на редактирование Aleksandr Microsoft Office Excel 3 02.09.2009 10:50
И по поводу раскрашивание ячеек от даты Wasily Microsoft Office Excel 9 18.06.2008 08:38
Запрет изменения даты Viteef Общие вопросы Delphi 0 20.02.2008 05:09