Помогите пожалуйста разобраться почему не работает код. Изначально "Лист1" запаролен "7777". В начале кода я снимаю защиту для добавления информации и пытаюсь добавить комментрарий. Как только код доходить до добавления коментария выдает ошибку "Ячейка защищена...". Почему так происходит не понимаю.... [vba]
Код
Sub Программа() Worksheets("Лист1").Protect Password:="7777", UserInterfaceOnly:=True Sheets("Лист1").Cells(1, 1) = Date Sheets("Лист1").Cells(1, 2) = "Привет" CommentText = Date & ": " & Environ("USERNAME") & ": " & " В работу" Sheets("Лист1").Cells(1, 1).AddComment Sheets("Лист1").Cells(1, 1).Comment.Visible = True Sheets("Лист1").Cells(1, 1).Comment.Text Text:=Text & Chr(10) & CommentText Worksheets("Лист1").Protect Password:="7777", UserInterfaceOnly:=False End Sub
[/vba]
Добрый день!
Помогите пожалуйста разобраться почему не работает код. Изначально "Лист1" запаролен "7777". В начале кода я снимаю защиту для добавления информации и пытаюсь добавить комментрарий. Как только код доходить до добавления коментария выдает ошибку "Ячейка защищена...". Почему так происходит не понимаю.... [vba]
Код
Sub Программа() Worksheets("Лист1").Protect Password:="7777", UserInterfaceOnly:=True Sheets("Лист1").Cells(1, 1) = Date Sheets("Лист1").Cells(1, 2) = "Привет" CommentText = Date & ": " & Environ("USERNAME") & ": " & " В работу" Sheets("Лист1").Cells(1, 1).AddComment Sheets("Лист1").Cells(1, 1).Comment.Visible = True Sheets("Лист1").Cells(1, 1).Comment.Text Text:=Text & Chr(10) & CommentText Worksheets("Лист1").Protect Password:="7777", UserInterfaceOnly:=False End Sub
A_3485, спасибо, будем знать на будущее... Я, конечно, понимаю, почему у вас так реализовано - мало ли, если вырубить работу кода в процессе между снятием/установкой защиты , то все останется с полным доступом. Но, ИМХО, защита в Excel средствами самого Excel (без поддержки со стороны ОС) - это фикция (ну и тренировка навыков программмирования ). Ибо защита эта на уровне "от простого юзера с шаловливыми ручками", а не от желающего действительно получить доступ к данным.
A_3485, спасибо, будем знать на будущее... Я, конечно, понимаю, почему у вас так реализовано - мало ли, если вырубить работу кода в процессе между снятием/установкой защиты , то все останется с полным доступом. Но, ИМХО, защита в Excel средствами самого Excel (без поддержки со стороны ОС) - это фикция (ну и тренировка навыков программмирования ). Ибо защита эта на уровне "от простого юзера с шаловливыми ручками", а не от желающего действительно получить доступ к данным.AndreTM
Вход
Регистрация
Напомнить пароль
Автосумма
Часто используемые
ВПР
ЕСЛИ
СУММЕСЛИ
Финансовые
Логические
Текстовые
Даты и времени 
Ссылки и массивы 
Математические
Другие функции
Проверка свойств и значений
Баз данных
Математические
Обработки массивов
Обработки строк
Преобразования типов данных 
Загрузки данных
Работы с файлами
Обработки системных параметров
Обработки цвета
Работы с датами и временем
Преобразования в системы счисления
Финансовые
). Ибо защита эта на уровне "от простого юзера с шаловливыми ручками", а не от желающего действительно получить доступ к данным.