Структура данных и защита листа

[smx24]

Уважаемый SAS, а можно сделать так чтоб лист был под защитой только в определенном диапазоне скажем от А до H (в примере защита4). Заранее благодарен.

[Daren]

Привет всем! есть код который создает новые книги в которых подлежит заблочить изменение формул и дать работать группировкам, трудность что нельзя привязаться к конкретным строкам и столбцам :
.....
ActiveSheet.Name = тп
ActiveSheet.Move
'защищаем ячейки
Cells.Locked = False ' снимаю защищаемую ячейку
Cells.SpecialCells(xlCellTypeFormul as, 23).Locked = True ' защищ только с формулами
ActiveSheet.EnableOutlining = True
ActiveSheet.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True, _
AllowFiltering:=True, UserInterfaceOnly:=True ', DrawingObjects:=True
Application.DisplayAlerts = False ' чтобы не кричал что там что-то есть
ActiveWorkbook.SaveAs Filename:= _
ThisWorkbook.Path & "\" & Papka & "\Plan\" & тп & ".xlsx", FileFormat:=xlOpenXMLWorkbook, CreateBackup:=False
Application.ActiveWorkbook.Close
.....
блокировка и группировка робит но до закрытия вновь созданного листа и сохранения его в определенное место..после нового открытия этого созданного файла группировка уже робить не желает, хотя блоки на формулы остаются...
как победить. если не внедрять во вновь созданные файлы вышеописанные процедуры workbook_open()...либо писать внедрение этого макроса в создаваемые файлы ..

[Daren]

Спасибо всем! похоже на то, что моя хотелка трудно-реализуемая ..буду думать как записывать в каждый создаваемый файл макрос блока при автооткрытии книги..

[Татьяна М]

Сообщение от SAS888

ARud
Правило, наверное, любого форума: отдельный вопрос - отдельная тема. Впредь, имейте ввиду.
Теперь по существу. Эта тема достаточно "избита". По-моему, где-то и на нашем форуме есть что-то подобное.
Вот что я "набросал" на скорую руку (см. вложение).
Работать так:
При открытии файла появится приглашение ввести логин и пароль. В предлагаемом примере - это "Иванов" (пароль "111"), "Петров" (пароль "222") и "Сидоров" (пароль "333"). При правильном вводе отобразится именно этот (единственный) лист. Далее, пользователь, получивший доступ, может на этом листе делать все, что угодно, за исключением работы с листами (Удалить, Добавить, Переименовать и т.д.). Эти функции запрещены. Для добавления (изменения) имен листов, паролей и количества листов, при входе логин - "Admin", пароль - "000". После такого вода отобразятся все существующие листы и появится возможность добавления (удаления, переименования и т.д.) листов. Затем войдите в VBE (пароль на проект - "abcd") и добавьте (измените) доступные логины и пароли. Они находятся в массивах "a" и "b" соответственно в модуле "UserForm1" в процедуре "Private Sub CommandButton1_Click()".

Суперский макрос, поковырялась немного в нем пока искала где именно нужно логины и пароли подредактировать, но штука класная! СПАСИБИЩе огромное SAS888 !

[lotus-x]

Добрый день!
Прочитала ваши коментарии пор теме "Структура данных и защита листа" http://www.programmersforum.ru/showthread.php?t=13703
У меня стоят те же задачи, что и у Legame.
Сделала все, как у вас написано. Все отлично!!!! Но баг такой же как и у Legame: при открытии файл открывается в неполноэкранном режиме, и нормальный вид обретает только когда снимаешь защиту книги.
Если Вам не сложно, помогите, пожалуйста!!!!
Мне в общем то как раз защита книги и не нужна. Подскажите, пожалуйста, где исправить что бы она не ставилась!
Буду МЕГАПРИЗНАТЕЛЬНА!!!!!!!!!!!!!!!!!!! !!

[zodiakvinni]

Уважаемый SAS, а можно сделать так как в файле Защита 1, но что-бы это распространялось на все листы книги. Заранее благодарен.

[cuporos]

Сообщение от zodiakvinni

Уважаемый SAS, а можно сделать так как в файле Защита 1, но что-бы это распространялось на все листы книги. Заранее благодарен.

скачайте файл Защита 3.
А у меня другой вопрос после включения Share мода использование групировок не возможно и появляется ошибка Run-time error '1004' Unprotect method of Worksheet class failed. Как решить задачу?
Может быть это потому что у меня установлена защита для разных пользователей по своим зонам???

[Okzanka]

Не могу разобраться где менять пароль и как добавлять новый лист с такими же настройками.
Помогите!!!