Домашняя страница Undo Do New Save Карта сайта Обратная связь Поиск по форуму
МИР MS EXCEL - Гость.xls

Вход

Регистрация

Напомнить пароль

 

= Мир MS Excel/Как защитить ячейку от изменений - Мир MS Excel

Старая форма входа
  • Страница 1 из 1
  • 1
Модератор форума: китин, _Boroda_  
Мир MS Excel » Вопросы и решения » Вопросы по VBA » Как защитить ячейку от изменений (Макросы/Sub)
Как защитить ячейку от изменений
Mila123 Дата: Вторник, 13.01.2015, 14:15 | Сообщение № 1
Группа: Пользователи
Ранг: Прохожий
Сообщений: 2
Репутация: 0 ±
Замечаний: 0% ±

Excel 2007
Как с помощью макроса сделать так чтобы значение ячейки можно было поменять после введения пароля. А для ввода значений в пустые ячейки пароль не требовался.
 
Ответить
СообщениеКак с помощью макроса сделать так чтобы значение ячейки можно было поменять после введения пароля. А для ввода значений в пустые ячейки пароль не требовался.
Автор - Mila123
Дата добавления - 13.01.2015 в 14:15
DJ_Marker_MC Дата: Вторник, 13.01.2015, 15:40 | Сообщение № 2
Группа: Друзья
Ранг: Ветеран
Сообщений: 991
Репутация: 213 ±
Замечаний: 0% ±

Excel 2019
Пробуйте, пароль на изменение НЕ ПУСТЫХ ячеек в диапазоне А1:F12 - 123
[vba]
Код
Public a As String

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
a = Target.Value
End Sub

Private Sub Worksheet_Change(ByVal Target As Range)
Application.ScreenUpdating = False
Application.EnableEvents = False
If Not Intersect(Target, Range("A1:F12")) Is Nothing And a <> "" Then
     x = InputBox("Введите пароля для ищменения ячейки")
     If x <> "123" Then
         Target.Value = a
     End If
End If
a = Target.Value
Application.EnableEvents = True
Application.ScreenUpdating = True
End Sub
[/vba]
К сообщению приложен файл: parol.xlsm (16.2 Kb)
 
Ответить
СообщениеПробуйте, пароль на изменение НЕ ПУСТЫХ ячеек в диапазоне А1:F12 - 123
[vba]
Код
Public a As String

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
a = Target.Value
End Sub

Private Sub Worksheet_Change(ByVal Target As Range)
Application.ScreenUpdating = False
Application.EnableEvents = False
If Not Intersect(Target, Range("A1:F12")) Is Nothing And a <> "" Then
     x = InputBox("Введите пароля для ищменения ячейки")
     If x <> "123" Then
         Target.Value = a
     End If
End If
a = Target.Value
Application.EnableEvents = True
Application.ScreenUpdating = True
End Sub
[/vba]
Автор - DJ_Marker_MC
Дата добавления - 13.01.2015 в 15:40
Mila123 Дата: Вторник, 13.01.2015, 18:40 | Сообщение № 3
Группа: Пользователи
Ранг: Прохожий
Сообщений: 2
Репутация: 0 ±
Замечаний: 0% ±

Excel 2007
DJ_Marker_MC, спасибо! работает
 
Ответить
СообщениеDJ_Marker_MC, спасибо! работает
Автор - Mila123
Дата добавления - 13.01.2015 в 18:40
light26 Дата: Вторник, 13.01.2015, 23:35 | Сообщение № 4
Группа: Друзья
Ранг: Старожил
Сообщений: 1350
Репутация: 91 ±
Замечаний: 0% ±

2007, 2010, 2013
Цитата Mila123, 13.01.2015 в 14:15, в сообщении № 1
Как с помощью макроса сделать так чтобы значение ячейки можно было поменять после введения пароля
Мне не совсем понятен смысл, ведь достаточно отключить макросы и вся блокировка летит к чертям )

Я не волшебник. Я только учусь
 
Ответить
Сообщение
Цитата Mila123, 13.01.2015 в 14:15, в сообщении № 1
Как с помощью макроса сделать так чтобы значение ячейки можно было поменять после введения пароля
Мне не совсем понятен смысл, ведь достаточно отключить макросы и вся блокировка летит к чертям )
Автор - light26
Дата добавления - 13.01.2015 в 23:35
alex77755 Дата: Среда, 14.01.2015, 00:15 | Сообщение № 5
Группа: Проверенные
Ранг: Обитатель
Сообщений: 362
Репутация: 64 ±
Замечаний: 0% ±

light26
А мне вообще не понятен смысл твоего высказывания!
Цитата
Мне не совсем понятен смысл, ведь достаточно отключить макросы и вся блокировка летит к чертям )

Разве тебя кто-то спрашивал что куда летит?
Читай по губам если не с состоянии по буквам!
Цитата
Как с помощью макроса


[moder]Нарушение п.п. 5d[/moder]

Могу помочь в VB6, VBA
Alex77755@mail.ru

Сообщение отредактировал Serge_007 - Четверг, 15.01.2015, 21:13
 
Ответить
Сообщениеlight26
А мне вообще не понятен смысл твоего высказывания!
Цитата
Мне не совсем понятен смысл, ведь достаточно отключить макросы и вся блокировка летит к чертям )

Разве тебя кто-то спрашивал что куда летит?
Читай по губам если не с состоянии по буквам!
Цитата
Как с помощью макроса


[moder]Нарушение п.п. 5d[/moder]
Автор - alex77755
Дата добавления - 14.01.2015 в 00:15
Мир MS Excel » Вопросы и решения » Вопросы по VBA » Как защитить ячейку от изменений (Макросы/Sub)
  • Страница 1 из 1
  • 1
Поиск:

Яндекс.Метрика Яндекс цитирования
© 2010-2024 · Дизайн: MichaelCH · Хостинг от uCoz · При использовании материалов сайта, ссылка на www.excelworld.ru обязательна!