Как добавить комментарии на защищённый лист?
Как правило, добавить комментарии в ячейки незащищённого листа несложно. Однако иногда возникает необходимость защитить лист паролем, но при этом сохранить возможность оставлять комментарии в защищённом листе. Как этого добиться в Excel?
Вставка комментариев в защищённый лист с помощью установки флажка у параметра Редактировать объекты
Вставка комментариев в защищённый лист с помощью кода VBA
Вставка комментариев в защищённый лист с помощью установки флажка у параметра Редактировать объекты
Чтобы вставить комментарии в защищённый лист, установите флажок у параметра Редактировать объекты при защите листа. Выполните следующие действия:
1. Щёлкните Рецензирование > Защитить лист, см. снимок экрана:
2. В диалоговом окне Защита листа введите свой пароль в поле Пароль для снятия защиты с листа, затем прокрутите список вниз и установите флажок напротив параметра Редактировать объекты в списке Разрешить всем пользователям этого листа, см. снимок экрана:
3. Затем нажмите кнопку ОК и повторно введите пароль в диалоговом окне Подтверждение пароля.
4. После этого нажмите кнопку ОК, чтобы закрыть диалоговые окна. Теперь ваш лист защищён, но вы по-прежнему можете добавлять в него комментарии.
Примечание: С помощью этого метода вы сможете не только вставлять комментарии, но и добавлять другие объекты — например, изображения, диаграммы и многое другое.
Вставка комментариев в защищённый лист с помощью кода VBA
Помимо установки флажка у параметра «Редактировать объекты» при защите листа, вы можете воспользоваться приведённым ниже кодом VBA. Этот код позволит вам вставить комментарий в ячейку и одновременно защитить лист. Выполните следующие действия:
1. Щёлкните ячейку, в которую нужно вставить комментарий.
2. Удерживая клавиши ALT + F11, откройте окно Microsoft Visual Basic для приложений.
3. Нажмите Вставка > Модуль и вставьте приведённый ниже код в окно Модуль.
Код VBA: Вставка комментариев в защищённый лист
Public Sub InsertComment()
'Update 20140723
Dim xPW As String
Dim xComment As String
xPW = “123456”
xTitleId = "KutoolsforExcel"
xComment = Application.InputBox("Input comments", xTitleId, "", Type:=2)
Application.ActiveSheet.Unprotect Password:=xPW
Application.ActiveCell.AddComment
Application.ActiveCell.Comment.Text Text:=xComment
ActiveSheet.Protect Password:=xPW
End Sub
4. Затем нажмите клавишу F5, чтобы выполнить код. Появится диалоговое окно — введите в него комментарий по своему усмотрению (см. снимок экрана):
5. Нажмите кнопку ОК, чтобы закрыть окно. Комментарий будет добавлен в указанную ячейку, а ваш текущий лист одновременно окажется защищённым.
Примечания:
1. Вы можете заменить пароль на свой собственный в строке xPW = "123456" приведённого выше кода.
2. Чтобы добавить ещё один комментарий, просто выберите нужную ячейку, снова запустите этот код и введите текст комментария.
Связанные статьи:
Как отфильтровать комментарии в Excel?
Как группировать и разгруппировать строки на защищённом листе?
Лучшие инструменты повышения продуктивности в Office
Раскройте весь потенциал Excel с помощью Kutools для Excel и ощутите эффективность как никогда раньше.Kutools для Excel предлагает более 300 расширенных функций для повышения продуктивности и Экономия времени.Нажмите здесь, чтобы получить нужную Вам функцию…
Office Tab добавляет в Office вкладки и значительно упрощает Вашу работу
- Включите редактирование и чтение во вкладках в Word, Excel, PowerPoint, Publisher, Access, Visio и Project.
- Открывайте и создавайте несколько документов во вкладках одного окна — вместо того чтобы использовать отдельные окна.
- Повышает вашу продуктивность на 50 % и экономит сотни кликов мышью каждый день!
Все надстройки Kutools — один установщик
Kutools for Office — набор надстроек для Excel, Word, Outlook и PowerPoint, а также Office Tab Pro, идеально подходящий командам, работающим с разными приложениями Office.
- Единый комплект— надстройки для Excel, Word, Outlook и PowerPoint + Office Tab Pro
- Один установщик, одна лицензия— настройка занимает считанные минуты (готово для MSI)
- Лучше работать вместе— оптимизированная продуктивность во всех приложениях Office
- 30-дневная полнофункциональная пробная версия— без регистрации и кредитной карты
- Лучшее соотношение цены и качества— экономия по сравнению с покупкой отдельных надстроек