|
|
|
Установить пароль на все листы
|
|||
|---|---|---|---|
|
#18+
Только начинаю пользовать макросы в Экселе, подскажите, пожалуйста, что я не правильно делаю Sub Макрос3() For Each Sheet In ThisWorkbook.Sheets ActiveSheet.Protect Password:="123" Next End Sub ... |
|||
|
:
Нравится:
Не нравится:
|
|||
| 25.11.2006, 11:25:45 |
|
||
|
Установить пароль на все листы
|
|||
|---|---|---|---|
|
#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:24:37 |
|
||
|
Установить пароль на все листы
|
|||
|---|---|---|---|
|
#18+
Дмитрий, спасибо! Все защитилось Только я вот чего не могу понять, почему я не могу теперь снять защиту через Сервис-Защита-Снять защиту листа использую пароль написанный в макросе: 123? ... |
|||
|
:
Нравится:
Не нравится:
|
|||
| 25.11.2006, 12:42:47 |
|
||
|
Установить пароль на все листы
|
|||
|---|---|---|---|
|
#18+
Сергей06Дмитрий, спасибо! Все защитилось Только я вот чего не могу понять, почему я не могу теперь снять защиту через Сервис-Защита-Снять защиту листа использую пароль написанный в макросе: 123? прошу прощения, все получилось!! Дмитрий, огромное спасибо ... |
|||
|
:
Нравится:
Не нравится:
|
|||
| 25.11.2006, 14:03:19 |
|
||
|
Установить пароль на все листы
|
|||
|---|---|---|---|
|
#18+
Вот опять проблемка. Как сделать так, чтобы пароль ставился на все листы, кроме "Лист1" и "Лист15" ... |
|||
|
:
Нравится:
Не нравится:
|
|||
| 04.12.2006, 16:30:54 |
|
||
|
Установить пароль на все листы
|
|||
|---|---|---|---|
|
#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, 08:37:03 |
|
||
|
Установить пароль на все листы
|
|||
|---|---|---|---|
|
#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 ... |
|||
|
:
Нравится:
Не нравится:
|
|||
| 05.12.2006, 09:06:06 |
|
||
|
|
start [/forum/topic.php?fid=61&fpage=304&tid=2183819]: |
0ms |
get settings: |
8ms |
get forum list: |
12ms |
check forum access: |
2ms |
check topic access: |
2ms |
track hit: |
18ms |
get topic data: |
6ms |
get forum data: |
2ms |
get page messages: |
22ms |
get tp. blocked users: |
1ms |
| others: | 237ms |
| total: | 310ms |
| 0 / 0 |
