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

Вход

Регистрация

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

 

= Мир MS Excel/Права только на добавление текста - Мир MS Excel

Старая форма входа
  • Страница 1 из 1
  • 1
Модератор форума: китин, _Boroda_  
Мир MS Excel » Вопросы и решения » Вопросы по Excel » Права только на добавление текста (Форматирование/Formattings)
Права только на добавление текста
Asretyq Дата: Среда, 04.04.2018, 07:43 | Сообщение № 1
Группа: Проверенные
Ранг: Форумчанин
Сообщений: 200
Репутация: 0 ±
Замечаний: 0% ±

Excel 2013
Доброго утра всем
Возможно ли в ексели ввод данных в ячейки одними пользователями без прав удаления и редактирования?
Только полные права у одного пользователя, ну или у админа!
Прикреплять файл думаю нет смысла
 
Ответить
СообщениеДоброго утра всем
Возможно ли в ексели ввод данных в ячейки одними пользователями без прав удаления и редактирования?
Только полные права у одного пользователя, ну или у админа!
Прикреплять файл думаю нет смысла

Автор - Asretyq
Дата добавления - 04.04.2018 в 07:43
китин Дата: Среда, 04.04.2018, 07:49 | Сообщение № 2
Группа: Модераторы
Ранг: Экселист
Сообщений: 7013
Репутация: 1073 ±
Замечаний: 0% ±

Excel 2007;2010;2016


Не судите очень строго:я пытаюсь научиться
ЯД 41001877306852
 
Ответить
Сообщениеможет поможет?

Автор - китин
Дата добавления - 04.04.2018 в 07:49
Asretyq Дата: Среда, 04.04.2018, 08:05 | Сообщение № 3
Группа: Проверенные
Ранг: Форумчанин
Сообщений: 200
Репутация: 0 ±
Замечаний: 0% ±

Excel 2013
китин, это не то, тогда может создать условие например если ячейка пуста, тогда можно ввести текст, если заполнена, то запрещено редактирование. Можно ли применить эту идею?
 
Ответить
Сообщениекитин, это не то, тогда может создать условие например если ячейка пуста, тогда можно ввести текст, если заполнена, то запрещено редактирование. Можно ли применить эту идею?

Автор - Asretyq
Дата добавления - 04.04.2018 в 08:05
pechkin Дата: Среда, 04.04.2018, 09:16 | Сообщение № 4
Группа: Проверенные
Ранг: Обитатель
Сообщений: 329
Репутация: 49 ±
Замечаний: 0% ±

2003
Здравствуйте! А может так подойдет?
К сообщению приложен файл: _1.xls (18.5 Kb)


Сообщение отредактировал pechkin - Среда, 04.04.2018, 09:22
 
Ответить
СообщениеЗдравствуйте! А может так подойдет?

Автор - pechkin
Дата добавления - 04.04.2018 в 09:16
Asretyq Дата: Среда, 04.04.2018, 09:37 | Сообщение № 5
Группа: Проверенные
Ранг: Форумчанин
Сообщений: 200
Репутация: 0 ±
Замечаний: 0% ±

Excel 2013
pechkin, можно обойти эту защиту, выделив несколько ячеек можно форматировать текст, который уже заполнен
 
Ответить
Сообщениеpechkin, можно обойти эту защиту, выделив несколько ячеек можно форматировать текст, который уже заполнен

Автор - Asretyq
Дата добавления - 04.04.2018 в 09:37
pechkin Дата: Среда, 04.04.2018, 10:00 | Сообщение № 6
Группа: Проверенные
Ранг: Обитатель
Сообщений: 329
Репутация: 49 ±
Замечаний: 0% ±

2003
Вы правы! Обойти можно любую защиту В файле поправил по выделению более одной ячейки, а с форматированием не понял...
К сообщению приложен файл: 4913511.xls (23.0 Kb)
 
Ответить
СообщениеВы правы! Обойти можно любую защиту В файле поправил по выделению более одной ячейки, а с форматированием не понял...

Автор - pechkin
Дата добавления - 04.04.2018 в 10:00
sboy Дата: Среда, 04.04.2018, 10:04 | Сообщение № 7
Группа: Друзья
Ранг: Участник клуба
Сообщений: 2566
Репутация: 724 ±
Замечаний: 0% ±

Excel 2010
pechkin, а зачем цикл по ячейкам, если выделить можно только одну?)
Вот подправил чуток
[vba]
Код
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    If Target.Count > 1 Then
        Cells(1, 1).Select
        Exit Sub
    End If
    If Target = "" Then Exit Sub
    If Target = Range("A1") Then Exit Sub
    MsgBox "РЕДАКТИРОВАНИЕ ЗАПРЕЩЕНО"
    Cells(1, 1).Select
End Sub
[/vba]
[p.s.]И старайтесь выкладывать решение в пост
К сообщению приложен файл: _1-3-.xls (31.0 Kb)


Яндекс: 410016850021169
 
Ответить
Сообщениеpechkin, а зачем цикл по ячейкам, если выделить можно только одну?)
Вот подправил чуток
[vba]
Код
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    If Target.Count > 1 Then
        Cells(1, 1).Select
        Exit Sub
    End If
    If Target = "" Then Exit Sub
    If Target = Range("A1") Then Exit Sub
    MsgBox "РЕДАКТИРОВАНИЕ ЗАПРЕЩЕНО"
    Cells(1, 1).Select
End Sub
[/vba]
[p.s.]И старайтесь выкладывать решение в пост

Автор - sboy
Дата добавления - 04.04.2018 в 10:04
Мир MS Excel » Вопросы и решения » Вопросы по Excel » Права только на добавление текста (Форматирование/Formattings)
  • Страница 1 из 1
  • 1
Поиск:

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