Гость
Войти | Профиль | Очистить
Целевая тема:
Создать новую тему:
Автор:
Действия ...
Форумы / Visual Basic [игнор отключен] [закрыт для гостей] / Пароль сразу на все листы книги / 14 сообщений из 14, страница 1 из 1
22.09.2005, 13:47:22
    #33283611
Dimen
Dimen
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Пароль сразу на все листы книги
У меня 20 листов в книге, и все они стоят на защите.
Что бы внести изменения, нужно со всех по очереди снимать, а потом опять ставить защиту.
Можно ли эту процедуру делать сразу для всех листов один раз, со всех снимать и на все ставить?
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
22.09.2005, 14:16:21
    #33283730
Дурак
Дурак
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Пароль сразу на все листы книги
А на ВСЮ книгу нельзя повесить read-only пароль?

Или речь идет о другой защите?
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
22.09.2005, 17:56:31
    #33284548
Dimen
Dimen
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Пароль сразу на все листы книги
Часть ячеек в во всех листах защищена от изменений, это ячейки которые получают данные по связям, остальное в принципе можно менять, поэтому приходится ставить пароль
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
22.09.2005, 19:28:16
    #33284704
nibbles
nibbles
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Пароль сразу на все листы книги
for each myObj in activeworkbook.worksheets
myObj.Unprotect "12343"
next
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
23.09.2005, 00:55:53
    #33284874
Dimen
Dimen
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Пароль сразу на все листы книги
Огромное спасибо!!!
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
23.09.2005, 14:39:46
    #33286156
Dimen
Dimen
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Пароль сразу на все листы книги
Последний вопрос возник уже в процессе.
Все работает, но как сделать что бы на каждом листе сохранялись свои настройки защиты? Где то можно форматировать где нет, а этот макрос ставит на защиту все листы по одному сценарию.
Заранее спасибо!
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
23.09.2005, 15:11:08
    #33286263
Пользователь2
Пользователь2
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Пароль сразу на все листы книги
Без указания параметров Protect запароливает по максимум.

Воспользуйся параметрами метода Method. Если Excel > 2000 (для 2000 набор параметров весьма скромен), то:

AllowFormattingCells. The default value is False.

Код: plaintext
1.
2.
3.
4.
5.
6.
7.
8.
9.
    Dim ws As Worksheet
    
    For Each ws In ActiveWorkbook.Worksheets
        If ws.Name = "Лист1" Then
            ActiveSheet.Protect Password:="1234", _
              AllowFormattingCells:=True
        Else
            ActiveSheet.Protect Password:="1234"
        End If
    Next
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
23.09.2005, 15:57:10
    #33286383
Пользователь2
Пользователь2
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Пароль сразу на все листы книги
Пользователь2Воспользуйся параметрами метода Method.
Метода Protect ессно. :)
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
23.09.2005, 17:23:18
    #33286613
Dimen
Dimen
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Пароль сразу на все листы книги
Блин, не могу врубиться как записать, что бы на всех листах (их всего 20, первый INFO, последний CADET)
можно было только форматировать строки столбцы и ячейки
не позволяя менять данные после включения макроса
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
23.09.2005, 23:29:12
    #33286979
Dimen
Dimen
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Пароль сразу на все листы книги
Помогите сделать менее объемным макрос;

Sub protect()
Sheets("INFO").Select
ActiveSheet.protect DrawingObjects:=True, Contents:=True, Scenarios:=True
Sheets("CREW").Select
ActiveSheet.protect DrawingObjects:=True, Contents:=True, Scenarios:=True _
, AllowFormattingCells:=True, AllowFormattingColumns:=True, _
AllowFormattingRows:=True
Sheets("EFFECT").Select
ActiveSheet.protect DrawingObjects:=True, Contents:=True, Scenarios:=True _
, AllowFormattingCells:=True, AllowFormattingColumns:=True, _
AllowFormattingRows:=True
Sheets("STORE").Select
ActiveSheet.protect DrawingObjects:=True, Contents:=True, Scenarios:=True _
, AllowFormattingCells:=True, AllowFormattingColumns:=True, _
AllowFormattingRows:=True
Sheets("DECK").Select
ActiveSheet.protect DrawingObjects:=True, Contents:=True, Scenarios:=True _
, AllowFormattingCells:=True, AllowFormattingColumns:=True, _
AllowFormattingRows:=True
End Sub
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
24.09.2005, 10:45:41
    #33287038
nibbles
nibbles
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Пароль сразу на все листы книги
DimenПомогите сделать менее объемным макрос;

Sub protect()
Sheets("INFO").Select
ActiveSheet.protect DrawingObjects:=True, Contents:=True, Scenarios:=True
Sheets("CREW").Select
ActiveSheet.protect DrawingObjects:=True, Contents:=True, Scenarios:=True _
, AllowFormattingCells:=True, AllowFormattingColumns:=True, _
AllowFormattingRows:=True
Sheets("EFFECT").Select
ActiveSheet.protect DrawingObjects:=True, Contents:=True, Scenarios:=True _
, AllowFormattingCells:=True, AllowFormattingColumns:=True, _
AllowFormattingRows:=True
Sheets("STORE").Select
ActiveSheet.protect DrawingObjects:=True, Contents:=True, Scenarios:=True _
, AllowFormattingCells:=True, AllowFormattingColumns:=True, _
AllowFormattingRows:=True
Sheets("DECK").Select
ActiveSheet.protect DrawingObjects:=True, Contents:=True, Scenarios:=True _
, AllowFormattingCells:=True, AllowFormattingColumns:=True, _
AllowFormattingRows:=True
End Sub

Код: plaintext
1.
2.
3.
4.
5.
dim mysheet as Excel.Sheet
    For each mysheet in activeworkbook.sheets
        mysheet.protect DrawingObjects:=True, Contents:=True, Scenarios:=True _
        , AllowFormattingCells:=True, AllowFormattingColumns:=True, _
        AllowFormattingRows:=True
    next

Складывается впечатение, что Вы не совсем внимательно прочли то, что Вам написали. В частности - сообщение 1903195
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
24.09.2005, 13:49:44
    #33287099
Dimen
Dimen
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Пароль сразу на все листы книги
Все правильно, и тот и этот макросы защищают сразу все листы, просто как и в сообщении 1907119 я хотел чтобы первый лист "INFO"нельзя было форматировать (только вносить данные) как все остальные 19
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
25.09.2005, 00:14:10
    #33287268
nibbles
nibbles
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Пароль сразу на все листы книги
Тогда делайте внутри цикла "развилку" - в чем проблема:
Код: plaintext
1.
2.
3.
4.
If mySheet.Name = "INFO" then
    ...
else
    ...
end if
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
25.09.2005, 12:35:11
    #33287371
Dimen
Dimen
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Пароль сразу на все листы книги
Спасибо!
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
Форумы / Visual Basic [игнор отключен] [закрыт для гостей] / Пароль сразу на все листы книги / 14 сообщений из 14, страница 1 из 1
Найденые пользователи ...
Разблокировать пользователей ...
Читали тему (0):
Читали форум (0):
Пользователи онлайн (0):
Польз. соглашение  
Полит. конфиден.  
созд. / загр.: 331ms
Закрыть
start [/forum/topic.php?fid=60&tablet=1&tid=2167128]:
 0ms
get settings:
 6ms
get forum list:
 12ms
check forum access:
 3ms
check topic access:
 3ms
track hit:
 33ms
get topic data:
 10ms
get forum data:
 2ms
get page messages:
 40ms
get tp. blocked users:
 1ms
others: 221ms
total:  331ms
x
x
Закрыть


Просмотр
0 / 0
Close
Debug Console [Select Text]