|
Действия ...
Новые сообщения [новые:0]
Дайджест
Горячие темы
Избранное [новые:0]
Форумы
Пользователи
Статистика
Статистика нагрузки
Мод. лог
Поиск
|
|
25.11.2006, 11:25:45
|
|||
|---|---|---|---|
Установить пароль на все листы |
|||
|
#18+
Только начинаю пользовать макросы в Экселе, подскажите, пожалуйста, что я не правильно делаю Sub Макрос3() For Each Sheet In ThisWorkbook.Sheets ActiveSheet.Protect Password:="123" Next End Sub ... |
|||
|
:
Нравится:
Не нравится:
|
|||
|
|
|
25.11.2006, 12:24:37
|
|||
|---|---|---|---|
Установить пароль на все листы |
|||
|
#18+
В цикле ты обращаешся всегда к активному листу: ActiveSheet .Protect Password:="123" а необходимо обращатся ко всем по очереди: Dim Sh As Worksheet For Each Sh In ThisWorkbook.Sheets Sh .Protect Password:="123" Next Изменил имя переменной, т.к. при Sheet возможна путаница. ... |
|||
|
:
Нравится:
Не нравится:
|
|||
|
|
|
25.11.2006, 12:42:47
|
|||
|---|---|---|---|
Установить пароль на все листы |
|||
|
#18+
Дмитрий, спасибо! Все защитилось Только я вот чего не могу понять, почему я не могу теперь снять защиту через Сервис-Защита-Снять защиту листа использую пароль написанный в макросе: 123? ... |
|||
|
:
Нравится:
Не нравится:
|
|||
|
|
|
25.11.2006, 14:03:19
|
|||
|---|---|---|---|
Установить пароль на все листы |
|||
|
#18+
Сергей06Дмитрий, спасибо! Все защитилось Только я вот чего не могу понять, почему я не могу теперь снять защиту через Сервис-Защита-Снять защиту листа использую пароль написанный в макросе: 123? прошу прощения, все получилось!! Дмитрий, огромное спасибо ... |
|||
|
:
Нравится:
Не нравится:
|
|||
|
|
|
04.12.2006, 16:30:54
|
|||
|---|---|---|---|
Установить пароль на все листы |
|||
|
#18+
Вот опять проблемка. Как сделать так, чтобы пароль ставился на все листы, кроме "Лист1" и "Лист15" ... |
|||
|
:
Нравится:
Не нравится:
|
|||
|
|
|
05.12.2006, 08:37:03
|
|||
|---|---|---|---|
|
|||
Установить пароль на все листы |
|||
|
#18+
Сергей06Вот опять проблемка. Как сделать так, чтобы пароль ставился на все листы, кроме "Лист1" и "Лист15" Ну например так Dim Sh As Worksheet For Each Sh In ThisWorkbook.Sheets If Sh.Name = "Лист1" Or Sh.Name = "Лист5" Then GoTo a: Else Sh.Protect Password:="123" End If a: Next ... |
|||
|
:
Нравится:
Не нравится:
|
|||
|
|
|
05.12.2006, 09:06:06
|
|||
|---|---|---|---|
|
|||
Установить пароль на все листы |
|||
|
#18+
jjj676 Сергей06Вот опять проблемка. Как сделать так, чтобы пароль ставился на все листы, кроме "Лист1" и "Лист15" Ну например так Dim Sh As Worksheet For Each Sh In ThisWorkbook.Sheets If Sh.Name = "Лист1" Or Sh.Name = "Лист5" Then GoTo a: Else Sh.Protect Password:="123" End If a: Next .................... If Sh.Name <> "Лист1" and Sh.Name <> "Лист5" Then Sh.Protect Password:="123" Next ... |
|||
|
:
Нравится:
Не нравится:
|
|||
|
|
|
start [/forum/topic.php?fid=61&mobile=1&tid=2183819]: |
0ms |
get settings: |
5ms |
get forum list: |
12ms |
check forum access: |
3ms |
check topic access: |
3ms |
track hit: |
35ms |
get topic data: |
9ms |
get forum data: |
2ms |
get page messages: |
40ms |
get tp. blocked users: |
1ms |
| others: | 198ms |
| total: | 308ms |
| 0 / 0 |
