Добрый день! Прошу Вашего совета о реализации необходимых условий (и вообще, реально ли это).
Можно ли как то сделать, что бы любой человек мог внести информацию в ячейку, а вот удалить мог только определенный (ну или кто пароль знает). Как запретить удалять строки/столбцы - мне известно, но как запретить удалять информацию в ячейке я пока никак не соображу.
Заранее спасибо!
Добрый день! Прошу Вашего совета о реализации необходимых условий (и вообще, реально ли это).
Можно ли как то сделать, что бы любой человек мог внести информацию в ячейку, а вот удалить мог только определенный (ну или кто пароль знает). Как запретить удалять строки/столбцы - мне известно, но как запретить удалять информацию в ячейке я пока никак не соображу.
Мысли вслух. Диапазон, в который добавляются данные с незащищенными ячейками. Лист защищен с паролем. По событию Worksheet_Change ставится защита на ячейку. Думаю так должно получится.
Мысли вслух. Диапазон, в который добавляются данные с незащищенными ячейками. Лист защищен с паролем. По событию Worksheet_Change ставится защита на ячейку. Думаю так должно получится.AlexM
Номер мобильного модема (без голосовой связи) 9269171249 МегаФон, Московский регион.
Private Sub Worksheet_SelectionChange(ByVal Target As Range) Application.ScreenUpdating = 0 Target(1).Select If Selection.Value <> "" Then Selection.Offset(1).Select Application.ScreenUpdating = 1 End Sub
[/vba] Побалуйтесь с файлом. Только макросы должны быть включены
Можно что-то вот такое [vba]
Код
Private Sub Worksheet_SelectionChange(ByVal Target As Range) Application.ScreenUpdating = 0 Target(1).Select If Selection.Value <> "" Then Selection.Offset(1).Select Application.ScreenUpdating = 1 End Sub
[/vba] Побалуйтесь с файлом. Только макросы должны быть включены_Boroda_
А, ну да. Если в А1 написано Поролъ, то можно редактировать. Иначе низзя. [vba]
Код
Private Sub Worksheet_SelectionChange(ByVal Target As Range) If Range("A1") = "Поролъ" Then Exit Sub If Target.Address(0, 0) = "A1" Then Exit Sub Application.ScreenUpdating = 0 Target(1).Select If Selection.Value <> "" Then Selection.Offset(1).Select Application.ScreenUpdating = 1 End Sub
А, ну да. Если в А1 написано Поролъ, то можно редактировать. Иначе низзя. [vba]
Код
Private Sub Worksheet_SelectionChange(ByVal Target As Range) If Range("A1") = "Поролъ" Then Exit Sub If Target.Address(0, 0) = "A1" Then Exit Sub Application.ScreenUpdating = 0 Target(1).Select If Selection.Value <> "" Then Selection.Offset(1).Select Application.ScreenUpdating = 1 End Sub
А, ну да. Если в А1 написано Поролъ, то можно редактировать. Иначе низзя.
Подумал уже про это. Но боюсь не мой вариант, ибо макросы же по умолчанию отключены а если применена высокая степень безопасности то тогда макрос вообще не прокатит. Можно конечно в файл встроить ТРОЯН который будет заменять на низкий уровень и автоматом врубать макрос, но что то меня делать такое с рабочими документами "слегка" смущает Нельзя ли никак через формулы это сделать?!
А, ну да. Если в А1 написано Поролъ, то можно редактировать. Иначе низзя.
Подумал уже про это. Но боюсь не мой вариант, ибо макросы же по умолчанию отключены а если применена высокая степень безопасности то тогда макрос вообще не прокатит. Можно конечно в файл встроить ТРОЯН который будет заменять на низкий уровень и автоматом врубать макрос, но что то меня делать такое с рабочими документами "слегка" смущает Нельзя ли никак через формулы это сделать?!ostryk