Домашняя страница Undo Do New Save Карта сайта Обратная связь Поиск по форуму
МИР MS EXCEL - Гость.xls

Вход

Регистрация

Напомнить пароль

 

= Мир MS Excel/Изменение макроса - возможность доб/уд строк при блокировке - Мир MS Excel

Старая форма входа
  • Страница 1 из 1
  • 1
Модератор форума: китин, _Boroda_  
Мир MS Excel » Вопросы и решения » Вопросы по VBA » Изменение макроса - возможность доб/уд строк при блокировке (Формулы/Formulas)
Изменение макроса - возможность доб/уд строк при блокировке
KIMVSR Дата: Пятница, 10.04.2015, 12:56 | Сообщение № 1
Группа: Проверенные
Ранг: Форумчанин
Сообщений: 118
Репутация: 0 ±
Замечаний: 0% ±

Excel 2016
Здравствуйте,

Пожалуйста, помогите видоизменить макрос таким образом, чтобы появилась возможность добавления/удаления строк на заблокированном листе (protected sheet).

[vba]
Код
Sub EnableOutlining()  
'Update 20140603  
Dim xWs As Worksheet  
Set xWs = Application.ActiveSheet  
Dim xPws As String  
xPws = Application.InputBox("Password:", xTitleId, "", Type:=2)  
xWs.Protect Password:=xPws, Userinterfaceonly:=True  
xWs.EnableOutlining = True  
End Sub
[/vba]

На данный момент такой возможности нет - лист заблокирован полностью.
Буду очень признателен за помощь, т.к. сам в VBA полнейший дилетант.
 
Ответить
СообщениеЗдравствуйте,

Пожалуйста, помогите видоизменить макрос таким образом, чтобы появилась возможность добавления/удаления строк на заблокированном листе (protected sheet).

[vba]
Код
Sub EnableOutlining()  
'Update 20140603  
Dim xWs As Worksheet  
Set xWs = Application.ActiveSheet  
Dim xPws As String  
xPws = Application.InputBox("Password:", xTitleId, "", Type:=2)  
xWs.Protect Password:=xPws, Userinterfaceonly:=True  
xWs.EnableOutlining = True  
End Sub
[/vba]

На данный момент такой возможности нет - лист заблокирован полностью.
Буду очень признателен за помощь, т.к. сам в VBA полнейший дилетант.

Автор - KIMVSR
Дата добавления - 10.04.2015 в 12:56
_Boroda_ Дата: Пятница, 10.04.2015, 13:02 | Сообщение № 2
Группа: Модераторы
Ранг: Местный житель
Сообщений: 16666
Репутация: 6478 ±
Замечаний: 0% ±

2003; 2007; 2010; 2013 RUS
Строку защиты перепишите так:
[vba]
Код
xWs.Protect Password:=xPws, Userinterfaceonly:=True, AllowInsertingRows:=True, AllowDeletingRows:=True
[/vba]
Но удалять все равно сможете только те строки, где в ячейках снята защита


Скажи мне, кудесник, любимец ба’гов...
Платная помощь:
Boroda_Excel@mail.ru
Яндекс-деньги: 41001632713405 | Webmoney: R289877159277; Z102172301748; E177867141995
 
Ответить
СообщениеСтроку защиты перепишите так:
[vba]
Код
xWs.Protect Password:=xPws, Userinterfaceonly:=True, AllowInsertingRows:=True, AllowDeletingRows:=True
[/vba]
Но удалять все равно сможете только те строки, где в ячейках снята защита

Автор - _Boroda_
Дата добавления - 10.04.2015 в 13:02
KIMVSR Дата: Пятница, 10.04.2015, 13:34 | Сообщение № 3
Группа: Проверенные
Ранг: Форумчанин
Сообщений: 118
Репутация: 0 ±
Замечаний: 0% ±

Excel 2016
_Boroda_, огромное вам спасибо! thumb
Всё работает отлично!
 
Ответить
Сообщение_Boroda_, огромное вам спасибо! thumb
Всё работает отлично!

Автор - KIMVSR
Дата добавления - 10.04.2015 в 13:34
KIMVSR Дата: Вторник, 14.04.2015, 08:42 | Сообщение № 4
Группа: Проверенные
Ранг: Форумчанин
Сообщений: 118
Репутация: 0 ±
Замечаний: 0% ±

Excel 2016
Ребят, а как быть с такой проблемой:

Нажимаю ALT + F11 для запуска макроса.
Жму F5, открывается окно для ввода пароля.
Ввожу пароль, но случайно или специально жму кнопку Cancel (отменить).



Как можно видеть на картинке выше, лист не заблокирован.
Пароль введён, но я нажимаю "Отмена".
Происходит следующее:



Макрос всё равно сработал и заблокировал лист, несмотря на то, что я жал "Отмена".

Затем я пытаюсь разблокировать лист, нажав кнопку "Unprotect sheet".
В результате всегда выдаёт ошибку:



Цитата
"The password you supplied is nor correct. Verify that the CAPS LOCK key if off and be sure to use the correct capitalization."

Причём не важно, какой пароль ты вводишь. Ошибка вылетает в любом случае и лист разблокировать не возможно.

Можно ли как-то видоизменить макрос, чтобы при нажатии кнопки "Отмена" макрос не срабатывал и не блокировал страницу с неизвестным паролем?
 
Ответить
СообщениеРебят, а как быть с такой проблемой:

Нажимаю ALT + F11 для запуска макроса.
Жму F5, открывается окно для ввода пароля.
Ввожу пароль, но случайно или специально жму кнопку Cancel (отменить).



Как можно видеть на картинке выше, лист не заблокирован.
Пароль введён, но я нажимаю "Отмена".
Происходит следующее:



Макрос всё равно сработал и заблокировал лист, несмотря на то, что я жал "Отмена".

Затем я пытаюсь разблокировать лист, нажав кнопку "Unprotect sheet".
В результате всегда выдаёт ошибку:



Цитата
"The password you supplied is nor correct. Verify that the CAPS LOCK key if off and be sure to use the correct capitalization."

Причём не важно, какой пароль ты вводишь. Ошибка вылетает в любом случае и лист разблокировать не возможно.

Можно ли как-то видоизменить макрос, чтобы при нажатии кнопки "Отмена" макрос не срабатывал и не блокировал страницу с неизвестным паролем?

Автор - KIMVSR
Дата добавления - 14.04.2015 в 08:42
KIMVSR Дата: Вторник, 14.04.2015, 08:47 | Сообщение № 5
Группа: Проверенные
Ранг: Форумчанин
Сообщений: 118
Репутация: 0 ±
Замечаний: 0% ±

Excel 2016
И ещё вопросик:

Можно ли как-то изменить макрос, чтобы он не запускался повторно в случае, если страница уже заблокирована?

Сейчас получается так, что если страница уже под паролем и я повторно запускаю макрос, то система позволяет мне ввести новый пароль.

Причём это введённый пароль не запоминается и при последующей попытке разблокировать страницу вылетает аналогичная ошибка:

Цитата
"The password you supplied is nor correct. Verify that the CAPS LOCK key if off and be sure to use the correct capitalization."
 
Ответить
СообщениеИ ещё вопросик:

Можно ли как-то изменить макрос, чтобы он не запускался повторно в случае, если страница уже заблокирована?

Сейчас получается так, что если страница уже под паролем и я повторно запускаю макрос, то система позволяет мне ввести новый пароль.

Причём это введённый пароль не запоминается и при последующей попытке разблокировать страницу вылетает аналогичная ошибка:

Цитата
"The password you supplied is nor correct. Verify that the CAPS LOCK key if off and be sure to use the correct capitalization."

Автор - KIMVSR
Дата добавления - 14.04.2015 в 08:47
KSV Дата: Вторник, 14.04.2015, 19:33 | Сообщение № 6
Группа: Друзья
Ранг: Ветеран
Сообщений: 770
Репутация: 255 ±
Замечаний: 0% ±

Excel 2013
Можно ли как-то видоизменить макрос, чтобы при нажатии кнопки "Отмена" макрос не срабатывал

После строки с InputBox добавьте:
[vba]
Код
If xPws = "False" Then Exit Sub
[/vba]
и не блокировал страницу с неизвестным паролем

Почему неизвестным? Пароль: "False" :)
Можно ли как-то изменить макрос, чтобы он не запускался повторно в случае, если страница уже заблокирована?

Перед строкой с InputBox добавьте:
[vba]
Код
If xWs.ProtectScenarios Then MsgBox "Лист уже защищен", vbExclamation, xTitleId: Exit Sub
[/vba]
Короче, должно быть так:
[vba]
Код
If xWs.ProtectScenarios Then MsgBox "Лист уже защищен", vbExclamation, xTitleId: Exit Sub
xPws = Application.InputBox("Password:", xTitleId, "", Type:=2)
If xPws = "False" Then Exit Sub
[/vba]


KSV.VBA@gmail.com
Яндекс.Деньги: 410011921213333
 
Ответить
Сообщение
Можно ли как-то видоизменить макрос, чтобы при нажатии кнопки "Отмена" макрос не срабатывал

После строки с InputBox добавьте:
[vba]
Код
If xPws = "False" Then Exit Sub
[/vba]
и не блокировал страницу с неизвестным паролем

Почему неизвестным? Пароль: "False" :)
Можно ли как-то изменить макрос, чтобы он не запускался повторно в случае, если страница уже заблокирована?

Перед строкой с InputBox добавьте:
[vba]
Код
If xWs.ProtectScenarios Then MsgBox "Лист уже защищен", vbExclamation, xTitleId: Exit Sub
[/vba]
Короче, должно быть так:
[vba]
Код
If xWs.ProtectScenarios Then MsgBox "Лист уже защищен", vbExclamation, xTitleId: Exit Sub
xPws = Application.InputBox("Password:", xTitleId, "", Type:=2)
If xPws = "False" Then Exit Sub
[/vba]

Автор - KSV
Дата добавления - 14.04.2015 в 19:33
KIMVSR Дата: Среда, 15.04.2015, 12:56 | Сообщение № 7
Группа: Проверенные
Ранг: Форумчанин
Сообщений: 118
Репутация: 0 ±
Замечаний: 0% ±

Excel 2016
KSV, огромное вам человеческое спасибо! Вы меня очень выручили!

pray

Теперь всё работает так, как должно работать!

Но есть одна достаточно серьёзная и неприятная проблемка:

Макро сбрасывается после закрытия документа.

[vba]
Код
Sub EnableOutlining()
'Update 20140603
Dim xWs As Worksheet
Set xWs = Application.ActiveSheet
Dim xPws As String
If xWs.ProtectScenarios Then MsgBox "Hmmm, It seems that the sheet is already protected! ;-)", vbExclamation, xTitleId: Exit Sub
xPws = Application.InputBox("Password:", xTitleId, "", Type:=2)
If xPws = "False" Then Exit Sub
xWs.Protect Password:=xPws, Userinterfaceonly:=True, AllowInsertingRows:=True, AllowDeletingRows:=True
xWs.EnableOutlining = True
End Sub
[/vba]
Получается такая ситуация: я запускаю макро, ставлю пароль. Кнопки "+" и "-" работают отлично, т.е. структура листа меняется без проблем.
Сохраняю документ, закрываю его.
Открываю заново и кнопки "+" и "-" уже не работают, но лист остаётся под паролем.



Чтобы кнопки "+" и "-" снова заработали, необходимо снято пароль! :-)

Но тогда теряется весь смысл макроса, т.к. пароль будет знать лишь один человек, а таблицей будут пользоваться сразу несколько.

Возможно ли как-то сделать так, чтобы кнопки "+" и "-" работали и после закрытия/открытия файла?


Сообщение отредактировал KIMVSR - Среда, 15.04.2015, 13:00
 
Ответить
СообщениеKSV, огромное вам человеческое спасибо! Вы меня очень выручили!

pray

Теперь всё работает так, как должно работать!

Но есть одна достаточно серьёзная и неприятная проблемка:

Макро сбрасывается после закрытия документа.

[vba]
Код
Sub EnableOutlining()
'Update 20140603
Dim xWs As Worksheet
Set xWs = Application.ActiveSheet
Dim xPws As String
If xWs.ProtectScenarios Then MsgBox "Hmmm, It seems that the sheet is already protected! ;-)", vbExclamation, xTitleId: Exit Sub
xPws = Application.InputBox("Password:", xTitleId, "", Type:=2)
If xPws = "False" Then Exit Sub
xWs.Protect Password:=xPws, Userinterfaceonly:=True, AllowInsertingRows:=True, AllowDeletingRows:=True
xWs.EnableOutlining = True
End Sub
[/vba]
Получается такая ситуация: я запускаю макро, ставлю пароль. Кнопки "+" и "-" работают отлично, т.е. структура листа меняется без проблем.
Сохраняю документ, закрываю его.
Открываю заново и кнопки "+" и "-" уже не работают, но лист остаётся под паролем.



Чтобы кнопки "+" и "-" снова заработали, необходимо снято пароль! :-)

Но тогда теряется весь смысл макроса, т.к. пароль будет знать лишь один человек, а таблицей будут пользоваться сразу несколько.

Возможно ли как-то сделать так, чтобы кнопки "+" и "-" работали и после закрытия/открытия файла?

Автор - KIMVSR
Дата добавления - 15.04.2015 в 12:56
_Boroda_ Дата: Среда, 15.04.2015, 13:25 | Сообщение № 8
Группа: Модераторы
Ранг: Местный житель
Сообщений: 16666
Репутация: 6478 ±
Замечаний: 0% ±

2003; 2007; 2010; 2013 RUS
Вам придется на событие открытия книги (или активации листа, или еще какое-то) повесить код
[vba]
Код
ActiveSheet.Unprotect    ...
ActiveSheet.EnableOutlining = True
    ActiveSheet.Protect   ...
[/vba]


Скажи мне, кудесник, любимец ба’гов...
Платная помощь:
Boroda_Excel@mail.ru
Яндекс-деньги: 41001632713405 | Webmoney: R289877159277; Z102172301748; E177867141995
 
Ответить
СообщениеВам придется на событие открытия книги (или активации листа, или еще какое-то) повесить код
[vba]
Код
ActiveSheet.Unprotect    ...
ActiveSheet.EnableOutlining = True
    ActiveSheet.Protect   ...
[/vba]

Автор - _Boroda_
Дата добавления - 15.04.2015 в 13:25
KSV Дата: Среда, 15.04.2015, 13:33 | Сообщение № 9
Группа: Друзья
Ранг: Ветеран
Сообщений: 770
Репутация: 255 ±
Замечаний: 0% ±

Excel 2013
Возможно ли как-то сделать так, чтобы кнопки "+" и "-" работали и после закрытия/открытия файла?

Пользоваться структурой на защищенном листе не получится, нужно будет снимать защиту при открытии книги (или активации листа), а при закрытии книги (или деактивации листа) заново его ставить. Но тогда какой смысл от такой защиты? :)


KSV.VBA@gmail.com
Яндекс.Деньги: 410011921213333
 
Ответить
Сообщение
Возможно ли как-то сделать так, чтобы кнопки "+" и "-" работали и после закрытия/открытия файла?

Пользоваться структурой на защищенном листе не получится, нужно будет снимать защиту при открытии книги (или активации листа), а при закрытии книги (или деактивации листа) заново его ставить. Но тогда какой смысл от такой защиты? :)

Автор - KSV
Дата добавления - 15.04.2015 в 13:33
KIMVSR Дата: Среда, 15.04.2015, 13:38 | Сообщение № 10
Группа: Проверенные
Ранг: Форумчанин
Сообщений: 118
Репутация: 0 ±
Замечаний: 0% ±

Excel 2016
_Boroda_, вы не могли бы подсказать, как мне это сделать?



Может мануал есть какой? А то я просто так далёк от VBA...
 
Ответить
Сообщение_Boroda_, вы не могли бы подсказать, как мне это сделать?



Может мануал есть какой? А то я просто так далёк от VBA...

Автор - KIMVSR
Дата добавления - 15.04.2015 в 13:38
KSV Дата: Среда, 15.04.2015, 13:40 | Сообщение № 11
Группа: Друзья
Ранг: Ветеран
Сообщений: 770
Репутация: 255 ±
Замечаний: 0% ±

Excel 2013
Блин, всегда думал, что нельзя... Оказывается - МОЖНО! :)
Только защиту нужно ставить вот так:
[vba]
Код
Sub Protect_and_Structure()
      ActiveSheet.EnableOutlining = True
      ActiveSheet.Protect Contents:=True, Scenarios:=True, UserinterfaceOnly:=True
End Sub
[/vba]

В вашем случае это будет так:
[vba]
Код
Sub EnableOutlining()
     'Update 20140603
     Dim xWs As Worksheet
     Set xWs = Application.ActiveSheet
     Dim xPws As String
     If xWs.ProtectScenarios Then MsgBox "Hmmm, It seems that the sheet is already protected! ;-)", vbExclamation, xTitleId: Exit Sub
     xPws = Application.InputBox("Password:", xTitleId, "", Type:=2)
     If xPws = "False" Then Exit Sub
     With xWs
         .EnableOutlining = True
         .Protect Password:=xPws, Contents:=True, Scenarios:=True, Userinterfaceonly:=True, AllowInsertingRows:=True, AllowDeletingRows:=True
     End With
End Sub
[/vba]
[p.s.]наткнулся вот здесь


KSV.VBA@gmail.com
Яндекс.Деньги: 410011921213333


Сообщение отредактировал KSV - Среда, 15.04.2015, 13:51
 
Ответить
СообщениеБлин, всегда думал, что нельзя... Оказывается - МОЖНО! :)
Только защиту нужно ставить вот так:
[vba]
Код
Sub Protect_and_Structure()
      ActiveSheet.EnableOutlining = True
      ActiveSheet.Protect Contents:=True, Scenarios:=True, UserinterfaceOnly:=True
End Sub
[/vba]

В вашем случае это будет так:
[vba]
Код
Sub EnableOutlining()
     'Update 20140603
     Dim xWs As Worksheet
     Set xWs = Application.ActiveSheet
     Dim xPws As String
     If xWs.ProtectScenarios Then MsgBox "Hmmm, It seems that the sheet is already protected! ;-)", vbExclamation, xTitleId: Exit Sub
     xPws = Application.InputBox("Password:", xTitleId, "", Type:=2)
     If xPws = "False" Then Exit Sub
     With xWs
         .EnableOutlining = True
         .Protect Password:=xPws, Contents:=True, Scenarios:=True, Userinterfaceonly:=True, AllowInsertingRows:=True, AllowDeletingRows:=True
     End With
End Sub
[/vba]
[p.s.]наткнулся вот здесь

Автор - KSV
Дата добавления - 15.04.2015 в 13:40
_Boroda_ Дата: Среда, 15.04.2015, 13:52 | Сообщение № 12
Группа: Модераторы
Ранг: Местный житель
Сообщений: 16666
Репутация: 6478 ±
Замечаний: 0% ±

2003; 2007; 2010; 2013 RUS
Блин, всегда думал, что нельзя

А тремя сообщениями выше разве не написано как можно?
как мне это сделать?

Смотрите здесь, например


Скажи мне, кудесник, любимец ба’гов...
Платная помощь:
Boroda_Excel@mail.ru
Яндекс-деньги: 41001632713405 | Webmoney: R289877159277; Z102172301748; E177867141995
 
Ответить
Сообщение
Блин, всегда думал, что нельзя

А тремя сообщениями выше разве не написано как можно?
как мне это сделать?

Смотрите здесь, например

Автор - _Boroda_
Дата добавления - 15.04.2015 в 13:52
KSV Дата: Среда, 15.04.2015, 14:14 | Сообщение № 13
Группа: Друзья
Ранг: Ветеран
Сообщений: 770
Репутация: 255 ±
Замечаний: 0% ±

Excel 2013
Александр, то что можно снимать защиту при открытии - знают все :) (я об этом и написал в сообщении 9)
Но тогда теряется смысл защиты...
А вот если сначала разрешить .EnableOutlining, а потом поставить защиту с Userinterfaceonly:=True, то и лист остается защищенным, и структурой можно пользоваться.
[p.s.]Хотя, сейчас попробовал, как было у него (.EnableOutlining после .Protect) - тоже сработало. Не знаю почему у него не работало...
[vba]
Код
    With ActiveSheet
         .Protect "22", Userinterfaceonly:=True  
         .EnableOutlining = True
     End With
[/vba]


KSV.VBA@gmail.com
Яндекс.Деньги: 410011921213333
 
Ответить
СообщениеАлександр, то что можно снимать защиту при открытии - знают все :) (я об этом и написал в сообщении 9)
Но тогда теряется смысл защиты...
А вот если сначала разрешить .EnableOutlining, а потом поставить защиту с Userinterfaceonly:=True, то и лист остается защищенным, и структурой можно пользоваться.
[p.s.]Хотя, сейчас попробовал, как было у него (.EnableOutlining после .Protect) - тоже сработало. Не знаю почему у него не работало...
[vba]
Код
    With ActiveSheet
         .Protect "22", Userinterfaceonly:=True  
         .EnableOutlining = True
     End With
[/vba]

Автор - KSV
Дата добавления - 15.04.2015 в 14:14
_Boroda_ Дата: Среда, 15.04.2015, 15:45 | Сообщение № 14
Группа: Модераторы
Ранг: Местный житель
Сообщений: 16666
Репутация: 6478 ±
Замечаний: 0% ±

2003; 2007; 2010; 2013 RUS
Не нужно путать картошку с мороженым:
UserinterfaceOnly- защита не распространяется на действие макросов;
EnableOutlining - снятие запрета на пользование группировкой на защищенном листе.

Нам нужно только EnableOutlining, а UserinterfaceOnly - это так, для данного вопроса не очень уж и нужно.


Скажи мне, кудесник, любимец ба’гов...
Платная помощь:
Boroda_Excel@mail.ru
Яндекс-деньги: 41001632713405 | Webmoney: R289877159277; Z102172301748; E177867141995
 
Ответить
СообщениеНе нужно путать картошку с мороженым:
UserinterfaceOnly- защита не распространяется на действие макросов;
EnableOutlining - снятие запрета на пользование группировкой на защищенном листе.

Нам нужно только EnableOutlining, а UserinterfaceOnly - это так, для данного вопроса не очень уж и нужно.

Автор - _Boroda_
Дата добавления - 15.04.2015 в 15:45
KSV Дата: Среда, 15.04.2015, 17:08 | Сообщение № 15
Группа: Друзья
Ранг: Ветеран
Сообщений: 770
Репутация: 255 ±
Замечаний: 0% ±

Excel 2013
Александр, да, это понятно... Просто я подумал, что EnableOutlining ПЕРЕД Protect добавил второму какой-то "магический" эффект... :)
[p.s.]Внимательно посмотрел Ваш код в сообщении 8, и наконец-то :) понял, что Вы имели ввиду.


KSV.VBA@gmail.com
Яндекс.Деньги: 410011921213333
 
Ответить
СообщениеАлександр, да, это понятно... Просто я подумал, что EnableOutlining ПЕРЕД Protect добавил второму какой-то "магический" эффект... :)
[p.s.]Внимательно посмотрел Ваш код в сообщении 8, и наконец-то :) понял, что Вы имели ввиду.

Автор - KSV
Дата добавления - 15.04.2015 в 17:08
KIMVSR Дата: Четверг, 16.04.2015, 15:53 | Сообщение № 16
Группа: Проверенные
Ранг: Форумчанин
Сообщений: 118
Репутация: 0 ±
Замечаний: 0% ±

Excel 2016
_Boroda_, прочитал мануал на сайте майкрософта, всё сделал.

Подскажите, пожалуйста, а что мне вместо ... написать?



Я очень извиняюсь за глупые вопросы, я просто очень далёк от программирования.
 
Ответить
Сообщение_Boroda_, прочитал мануал на сайте майкрософта, всё сделал.

Подскажите, пожалуйста, а что мне вместо ... написать?



Я очень извиняюсь за глупые вопросы, я просто очень далёк от программирования.

Автор - KIMVSR
Дата добавления - 16.04.2015 в 15:53
Manyasha Дата: Четверг, 16.04.2015, 16:41 | Сообщение № 17
Группа: Модераторы
Ранг: Старожил
Сообщений: 2198
Репутация: 898 ±
Замечаний: 0% ±

Excel 2010, 2016
KIMVSR, Вам нужно только пароль задать[vba]
Код
    With ActiveSheet
         .Unprotect "123"
         .EnableOutlining = True
         .Protect "123"
     End With
[/vba]


ЯД: 410013299366744 WM: R193491431804
 
Ответить
СообщениеKIMVSR, Вам нужно только пароль задать[vba]
Код
    With ActiveSheet
         .Unprotect "123"
         .EnableOutlining = True
         .Protect "123"
     End With
[/vba]

Автор - Manyasha
Дата добавления - 16.04.2015 в 16:41
Танчик Дата: Среда, 19.07.2017, 16:28 | Сообщение № 18
Группа: Пользователи
Ранг: Прохожий
Сообщений: 6
Репутация: 0 ±
Замечаний: 0% ±

Excel 2007
Всем добрый день. НЕ знаю, "живет" ли еще кто-нибудь в темах Но без помощи мне не справиться. Писала в одну тему - перенаправили сюда.
Мне достался в наследство файл "спецификация" с макросом (фильтрация). Кто и когда его создавал уже никто не помнит, поэтому мне приходится с ним работать методом проб и ошибок. Ну не в этом суть. Проблема в следующем:
надо защитить лист от нежелательных изменений, например, чтобы не меняли цену и т.п. Но, при защите листа макрос не работает. Я уже готова была от него отказаться и удалить к чертям собачим, но оказалось, что группировка/разгруппировка тоже не работает. Теперь дело принципа - докопаться.
Что я только не перечитала, иногда казалось, что истина где-то рядом, но, чем больше читаю, тем больше запутываюсь, т.к. многих определений не понимаю. На указанные выше ссылки (Как защить лист от пользователя, но не от макроса и Как оставить возможность группировки) заходила. Но не понимаю как это прописать в существующем макросе... ПОМОГИТЕ!
Или подскажите, в какую тему обратиться
Ну. пожалуйста...
Ну вот, даже файл как приложение не знаю. как прикрепить.... В XLS файл не пересохраняется... МОгу скинуть на почту тому, кто возьмется помочь
 
Ответить
СообщениеВсем добрый день. НЕ знаю, "живет" ли еще кто-нибудь в темах Но без помощи мне не справиться. Писала в одну тему - перенаправили сюда.
Мне достался в наследство файл "спецификация" с макросом (фильтрация). Кто и когда его создавал уже никто не помнит, поэтому мне приходится с ним работать методом проб и ошибок. Ну не в этом суть. Проблема в следующем:
надо защитить лист от нежелательных изменений, например, чтобы не меняли цену и т.п. Но, при защите листа макрос не работает. Я уже готова была от него отказаться и удалить к чертям собачим, но оказалось, что группировка/разгруппировка тоже не работает. Теперь дело принципа - докопаться.
Что я только не перечитала, иногда казалось, что истина где-то рядом, но, чем больше читаю, тем больше запутываюсь, т.к. многих определений не понимаю. На указанные выше ссылки (Как защить лист от пользователя, но не от макроса и Как оставить возможность группировки) заходила. Но не понимаю как это прописать в существующем макросе... ПОМОГИТЕ!
Или подскажите, в какую тему обратиться
Ну. пожалуйста...
Ну вот, даже файл как приложение не знаю. как прикрепить.... В XLS файл не пересохраняется... МОгу скинуть на почту тому, кто возьмется помочь

Автор - Танчик
Дата добавления - 19.07.2017 в 16:28
_Boroda_ Дата: Среда, 19.07.2017, 16:32 | Сообщение № 19
Группа: Модераторы
Ранг: Местный житель
Сообщений: 16666
Репутация: 6478 ±
Замечаний: 0% ±

2003; 2007; 2010; 2013 RUS
Я разве в той теме что-то непонятно написал?
И в xls сохранять РЕКОМЕНДОВАНО, а не жестко указано
Почитайте совсем похожую http://www.excelworld.ru/forum/10-16909-140793-16-1429093520
Если не поймете - создавайте свою


Скажи мне, кудесник, любимец ба’гов...
Платная помощь:
Boroda_Excel@mail.ru
Яндекс-деньги: 41001632713405 | Webmoney: R289877159277; Z102172301748; E177867141995
 
Ответить
СообщениеЯ разве в той теме что-то непонятно написал?
И в xls сохранять РЕКОМЕНДОВАНО, а не жестко указано
Почитайте совсем похожую http://www.excelworld.ru/forum/10-16909-140793-16-1429093520
Если не поймете - создавайте свою

Автор - _Boroda_
Дата добавления - 19.07.2017 в 16:32
Мир MS Excel » Вопросы и решения » Вопросы по VBA » Изменение макроса - возможность доб/уд строк при блокировке (Формулы/Formulas)
  • Страница 1 из 1
  • 1
Поиск:

Яндекс.Метрика Яндекс цитирования
© 2010-2024 · Дизайн: MichaelCH · Хостинг от uCoz · При использовании материалов сайта, ссылка на www.excelworld.ru обязательна!