Гость
Войти | Профиль | Очистить
Целевая тема:
Создать новую тему:
Автор:
Действия ...
Форумы / Microsoft Office [игнор отключен] [закрыт для гостей] / Excel - добавление строк с формулами в защищенном листе / 19 сообщений из 19, страница 1 из 1
07.06.2007, 11:51
    #34580465
d535
d535
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Excel - добавление строк с формулами в защищенном листе
Нужна помощь.

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

Возможно ли использовать макросы или спец. программирование на базе Excel? Что делать? Подскажите, пожалуйста.
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
07.06.2007, 17:43
    #34581975
vbapro
vbapro
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Excel - добавление строк с формулами в защищенном листе
упрощенный подход, но, может быть, этого будет достаточно: скопируйте этот код в модуль листа (в редакторе 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, 19:46
    #34582332
Deggasad
Deggasad
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Excel - добавление строк с формулами в защищенном листе
У меня когдато была похожая проблема только мне нельзя было удалять или добавлять строки и я писал такую штуку в файле посмотри. Там заранее место в файле внизу оставляешь и потом своими процедурами добавляешь или удаляешь строки. Только я этим так и не воспользовался, не понравилось. Мож тебе пригодится!
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
07.06.2007, 22:03
    #34582541
KL (XL)
KL (XL)
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Excel - добавление строк с формулами в защищенном листе
Если версия 2002 и новее, то приложенный файл должен работать.

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

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

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

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

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

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

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

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

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

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

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
| Ответить | Цитировать | Написать  
19.10.2007, 14:46
    #34881172
Сергей06
Сергей06
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Excel - добавление строк с формулами в защищенном листе
KL (XL)У меня все работает. См. приложение.

KL
[MVP - Microsoft Excel]

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

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

KL
[MVP - Microsoft Excel]

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

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

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

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

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


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