ReSQL.ru
     
powered by simpleCommunicator - 2.0.58     © 2025 Programmizd 02
Мобильная версия    Контакт    Правила    FAQ    Помощь
Целевая тема:
Создать новую тему:
Автор:
Закрыть
Цитировать
Доб. в избранное | Игнор. тему | Прикреп. тему | Пометить прочит. / непрочит. | Фильтр
Форумы / Microsoft Office [игнор отключен] [закрыт для гостей] / Excel - добавление строк с формулами в защищенном листе
19 сообщений из 19, страница 1 из 1
Excel - добавление строк с формулами в защищенном листе
    #34580465
d535
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
d535
Гость
Нужна помощь.

В Excel в защищенном листе отдельные интервалы ячеек (в столбцах) остаются доступными для ввода данных.
Соответственно в столбцах слева и справа от этого интервала заданы формулы, которые защищены от изменений.
При добавлении строк в защищенном листе нужно, чтобы копировались формулы вышерасположенной строки с сохранением их защиты.
Бьюсь с этим долго, никак не получается.

Возможно ли использовать макросы или спец. программирование на базе Excel? Что делать? Подскажите, пожалуйста.
...
Рейтинг: 0 / 0
07.06.2007, 11:51
| Ответить | Цитировать | Написать  
Excel - добавление строк с формулами в защищенном листе
    #34581975
vbapro
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
vbapro
Участник
упрощенный подход, но, может быть, этого будет достаточно: скопируйте этот код в модуль листа (в редакторе VBA, Alt+F11), на котором все должно работать

Код: plaintext
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
16.
17.
18.
19.
20.
21.
22.
23.
Private Sub Worksheet_Change(ByVal Target As Range)
Dim Cell As Range
Static AutoRun As Boolean

    If AutoRun Then Exit Sub
    
    AutoRun = True
    
    ActiveSheet.Unprotect
    
    For Each Cell In Application.Intersect(Target, ActiveSheet.UsedRange)
        If Cell.Locked = False Then
            If Cell.Offset( 0 ,  1 ).Formula = "" Then
                Cell.Offset( 0 ,  1 ).FormulaR1C1 = Cell.Offset(- 1 ,  1 ).FormulaR1C1
                Cell.Offset( 0 , - 1 ).FormulaR1C1 = Cell.Offset(- 1 , - 1 ).FormulaR1C1
            End If
        End If
    Next Cell
    
    ActiveSheet.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True, AllowInsertingRows:=True
    
    AutoRun = False
    
End Sub
...
Рейтинг: 0 / 0
07.06.2007, 17:43
| Ответить | Цитировать | Написать  
Excel - добавление строк с формулами в защищенном листе
    #34582332
Deggasad
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Deggasad
Участник
У меня когдато была похожая проблема только мне нельзя было удалять или добавлять строки и я писал такую штуку в файле посмотри. Там заранее место в файле внизу оставляешь и потом своими процедурами добавляешь или удаляешь строки. Только я этим так и не воспользовался, не понравилось. Мож тебе пригодится!
...
Рейтинг: 0 / 0
07.06.2007, 19:46
| Ответить | Цитировать | Написать  
Excel - добавление строк с формулами в защищенном листе
    #34582541
KL (XL)
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
KL (XL)
Участник
Если версия 2002 и новее, то приложенный файл должен работать.

KL
[MVP - Microsoft Excel]
...
Рейтинг: 0 / 0
07.06.2007, 22:03
| Ответить | Цитировать | Написать  
Excel - добавление строк с формулами в защищенном листе
    #34582585
vbapro
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
vbapro
Участник
KL (XL)Если версия 2002 и новее, то приложенный файл должен работать.

KL
[MVP - Microsoft Excel]великолепный вариант!
...
Рейтинг: 0 / 0
07.06.2007, 22:36
| Ответить | Цитировать | Написать  
Excel - добавление строк с формулами в защищенном листе
    #34582743
d535
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
d535
Гость
Спасибо, супер, код работает.
Пробовал включить еще и удаление ячеек, программа ругается и перестает работать (не добавляет строки с формулами).

Заархивированные файлы не открываются.
...
Рейтинг: 0 / 0
08.06.2007, 01:41
| Ответить | Цитировать | Написать  
Excel - добавление строк с формулами в защищенном листе
    #34582838
Deggasad
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Deggasad
Участник
Незаархивированный, хотя, это уже не нужно наверное!
...
Рейтинг: 0 / 0
08.06.2007, 08:08
| Ответить | Цитировать | Написать  
Excel - добавление строк с формулами в защищенном листе
    #34583151
vbapro
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
vbapro
Участник
d535Спасибо, супер, код работает.
Пробовал включить еще и удаление ячеек, программа ругается и перестает работать (не добавляет строки с формулами).

Заархивированные файлы не открываются.в каком смысле удаление ячеек?
...
Рейтинг: 0 / 0
08.06.2007, 10:35
| Ответить | Цитировать | Написать  
Excel - добавление строк с формулами в защищенном листе
    #34583470
d535
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
d535
Гость
при защите листа сталю флажки: добавлять строки, удалять строки (сорри не ячейки конечно).
удалять при защищенном листе строки не получается, не работает. Добавлять - да, получается.
...
Рейтинг: 0 / 0
08.06.2007, 11:57
| Ответить | Цитировать | Написать  
Excel - добавление строк с формулами в защищенном листе
    #34583680
KL (XL)
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
KL (XL)
Участник
У меня все работает. См. приложение.

KL
[MVP - Microsoft Excel]
...
Рейтинг: 0 / 0
08.06.2007, 12:48
| Ответить | Цитировать | Написать  
Excel - добавление строк с формулами в защищенном листе
    #34583940
d535
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
d535
Гость
Файл открывается все работает. Копирую код в модуль листа своего файла, защищаю лист, вставляются строки, формулы не копируются. Как с этим бороться?
...
Рейтинг: 0 / 0
08.06.2007, 13:52
| Ответить | Цитировать | Написать  
Excel - добавление строк с формулами в защищенном листе
    #34583976
Сергей06
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Сергей06
Участник
d535Файл открывается все работает. Копирую код в модуль листа своего файла, защищаю лист, вставляются строки, формулы не копируются. Как с этим бороться?
У меня все работает. :) Очень удобно и краиво.
Возможно не создал СПИСОК пункт меню Данные -> Список -> Создать список
...
Рейтинг: 0 / 0
08.06.2007, 14:00
| Ответить | Цитировать | Написать  
Excel - добавление строк с формулами в защищенном листе
    #34584212
d535
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
d535
Гость
Посмотри мой файл, никак не разберусь что не так?
Список назначал, отменял, никак не работает.

Изначальный код от vbapro (только вставка строк) запускается, а вставлять-удалять, -нет.
...
Рейтинг: 0 / 0
08.06.2007, 14:48
| Ответить | Цитировать | Написать  
Excel - добавление строк с формулами в защищенном листе
    #34584279
Сергей06
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Сергей06
Участник
1. Нужно создать список.

2. В редакторе ВБА добавить в своей книге модуль (в списке где перечислены наименования книг и листов на нужной книге кликнуть правой кнопкой и выбрать пункт меню inset -> module) и в него сохранить коды которые находятся в module1 файла KL(XL).

3. Создать (или скопировать из файла KL(XL)) кнопки "Вставить строки", "Удалить строки".

4. Правой кнопкой мыши назначить макрос каждой кнопке

5. Защитить лист и пробовать.
...
Рейтинг: 0 / 0
08.06.2007, 15:04
| Ответить | Цитировать | Написать  
Excel - добавление строк с формулами в защищенном листе
    #34584299
Сергей06
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Сергей06
Участник
...
Рейтинг: 0 / 0
08.06.2007, 15:09
| Ответить | Цитировать | Написать  
Excel - добавление строк с формулами в защищенном листе
    #34585065
d535
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
d535
Гость
Все сделал по инструкции, - не выходит ничего, копм выдает ошибку:

Can't execute code in break mode


You enter break mode when you suspend execution of code. This error has the following causes and solutions:

You tried to run code from the Macro dialog box. However, Visual Basic was already running code, although the code was suspended in break mode.
You may have entered break mode without knowing it, for example, if a syntax error or run-time error occurred. Continue running the suspended code, or terminate its execution before you run code from the Macro dialog box. You can fix the error and choose Continue, or you can return to the Macro dialog box and restart the macro.

For additional information, select the item in question and press F1 (in Windows) or HELP (on the Macintosh).

Как побороться?
...
Рейтинг: 0 / 0
08.06.2007, 19:06
| Ответить | Цитировать | Написать  
Excel - добавление строк с формулами в защищенном листе
    #34881172
Сергей06
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Сергей06
Участник
KL (XL)У меня все работает. См. приложение.

KL
[MVP - Microsoft Excel]

У меня появилась необходимость добавлять и удалять строки внутри двух списков на одном листе.
Пока я сделал по 2 макроса удаления и добавления на каждый список. разница в макросах только в номере списка: ActiveSheet.ListObjects(1).Range

Как сделать чтобы одним макросом добавлялись и удалялись строки во всех списках листа?
...
Рейтинг: 0 / 0
19.10.2007, 14:46
| Ответить | Цитировать | Написать  
Excel - добавление строк с формулами в защищенном листе
    #34887350
Сергей06
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Сергей06
Участник
Сергей06 KL (XL)У меня все работает. См. приложение.

KL
[MVP - Microsoft Excel]

У меня появилась необходимость добавлять и удалять строки внутри двух списков на одном листе.
Пока я сделал по 2 макроса удаления и добавления на каждый список. разница в макросах только в номере списка: ActiveSheet.ListObjects(1).Range

Как сделать чтобы одним макросом добавлялись и удалялись строки во всех списках листа?

Никак не сделать?
...
Рейтинг: 0 / 0
23.10.2007, 12:20
| Ответить | Цитировать | Написать  
Период между сообщениями больше года.
Excel - добавление строк с формулами в защищенном листе
    #38106562
Асетin
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Асетin
Гость
KL (XL),

Все хорошо в этом файле. единственный ньюанс. Удаление работает отлично, В вот вставка не совсем корректно. Вставка работает для любой незащищенной ячейки. А удаление только связанное со списком. Можно ли сделать, чтобы вставка тоже работала в увязке со списком.

Спасибо.
...
Рейтинг: 0 / 0
11.01.2013, 15:36
| Ответить | Цитировать | Написать  
19 сообщений из 19, страница 1 из 1
Форумы / Microsoft Office [игнор отключен] [закрыт для гостей] / Excel - добавление строк с формулами в защищенном листе
Найденые пользователи ...
Разблокировать пользователей ...
Читали тему (0):
Читали форум (0):
Пользователи онлайн (0):
Польз. соглашение
NoSQL.ru       Новости, Чат       Фотоальбом: Участники, Встречи
Закрыть
start [/forum/topic.php?fid=61&msg=34582743&tid=2175091]:
 0ms
get settings:
 10ms
get forum list:
 13ms
check forum access:
 4ms
check topic access:
 4ms
track hit:
 29ms
get topic data:
 11ms
get forum data:
 2ms
get page messages:
 64ms
get tp. blocked users:
 2ms
others: 14ms
total:  153ms
созд. / загр.: 153ms
x
x
Закрыть


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