Проблема с макросом при добавлении строки на защищ. листе

Старая форма входа

Страница 1 из 1 1
Модератор форума: китин, _Boroda_

Проблема с макросом при добавлении строки на защищ. листе (Макросы Sub)

Eugene

Дата: Среда, 04.09.2013, 10:34 | Сообщение № 1

Группа: Пользователи

Ранг: Прохожий

Сообщений: 4

Репутация: 0 ±

Замечаний: 0% ±

Excel 2010

Доброго времени суток!

Прошу помочь решить проблему.
Есть файл, в нем есть кнопка, которая добавляет строку сверху таблицы, тем самым "свежая" запись всегда первая, но сейчас что-то произошло с макросом: когда защищаю лист, то после добавлении строки выдает ошибку, что высоту такую не может сделать и проверка даты проверки "более 6 мес." почему-то перестала копировать формулу.

Макрос мне помогали делать, точнее мне сделали. Я юзер. Прошу строго не судить "за мой французский".

Заранее спасибо.

К сообщению приложен файл: 3288452.xlsm (30.3 Kb)

Ответить

Эмка

Дата: Среда, 04.09.2013, 11:44 | Сообщение № 2

Группа: Пользователи

Ранг: Новичок

Сообщений: 18

Репутация: 1 ±

Замечаний: 0% ±

Excel 2007

Можно просто снять блокировку в макрасе

К сообщению приложен файл: 5178218.xlsm (29.4 Kb)

Ответить

Eugene

Дата: Среда, 04.09.2013, 12:07 | Сообщение № 3

Группа: Пользователи

Ранг: Прохожий

Сообщений: 4

Репутация: 0 ±

Замечаний: 0% ±

Excel 2010

Эмка,

я правильно понял что нужно добавить
[vba]

Код

Worksheets("2013").Unprotect
....
Worksheets("2013").Protect

[/vba]
?

вроде работает

но формулу из поля проверка "более 6 мес." не копирует

[admin]Используйте теги при оформлении кода![/admin]

Сообщение отредактировал Eugene - Среда, 04.09.2013, 12:13

Ответить

Эмка

Дата: Среда, 04.09.2013, 12:15 | Сообщение № 4

Группа: Пользователи

Ранг: Новичок

Сообщений: 18

Репутация: 1 ±

Замечаний: 0% ±

Excel 2007

если просто ставите защиту листа, если с паролем то записываете ваш пароль в кавычках
[vba]

Код

Worksheets("2013").Unprotect "123"
....
Worksheets("2013").Protect "123"

[/vba]

[admin]Используйте теги при оформлении кода![/admin]

Ответить

VictorM

Дата: Среда, 04.09.2013, 12:34 | Сообщение № 5

Группа: Проверенные

Ранг: Форумчанин

Сообщений: 161

Репутация: 27 ±

Замечаний: 0% ±

Цитата

но формулу из поля проверка "более 6 мес." не копирует

Не все конечно понял, уж слишком много у Вас там лишнего.
Добавьте в Ваш Макрос в самом конце строку
[vba]

Код

[m5].Copy [m6]

[/vba]

Сообщение отредактировал VictorM - Среда, 04.09.2013, 12:35

Ответить

Эмка

Дата: Среда, 04.09.2013, 12:39 | Сообщение № 6

Группа: Пользователи

Ранг: Новичок

Сообщений: 18

Репутация: 1 ±

Замечаний: 0% ±

Excel 2007

Вы не пробовали просто скрыть строку которую сжимаете, а то как то не очень смотриртся

Сообщение отредактировал Эмка - Среда, 04.09.2013, 12:42

Ответить

Eugene

Дата: Среда, 04.09.2013, 12:58 | Сообщение № 7

Группа: Пользователи

Ранг: Прохожий

Сообщений: 4

Репутация: 0 ±

Замечаний: 0% ±

Excel 2010

Цитата (VictorM, Среда, 04.09.2013, 12:34 # 5)

Не все конечно понял, уж слишком много у Вас там лишнего.

а что там лишнего?
нужно добавление строки с аналогичными свойствами и формулами как у строки-шаблона

Цитата (Эмка, Среда, 04.09.2013, 12:39 # 6)

Вы не пробовали просто скрыть строку которую сжимаете, а то как то не очень смотриртся

так сделано чтобы понимать "снесли" там установленные свойства или нет
сейчас вроде разобрался с защитой ячеек от форматирования, но проблема с макросом
как всё сделаю то конечно спрячу шаблонную строку

Господа, на рецензию:
[vba]

Код

Sub Макрос3()
'
' Макрос3 Макрос
'
      Worksheets("2013").Unprotect
.............
      [m5].Copy [m6]
      Worksheets("2013").Protect
End Sub

[/vba]

Сообщение отредактировал Eugene - Среда, 04.09.2013, 12:59

Ответить

VictorM

Дата: Среда, 04.09.2013, 13:20 | Сообщение № 8

Группа: Проверенные

Ранг: Форумчанин

Сообщений: 161

Репутация: 27 ±

Замечаний: 0% ±

Цитата

а что там лишнего?

Сравните
[vba]

Код

Sub Макрос3()
      Worksheets("2013").Unprotect
      With [a6]
          .EntireRow.Insert
      End With
      [B6:M6].ClearContents
      [A6:A7].FormulaR1C1 = "=R[-1]C+1"
      Rows("6:6").RowHeight = 13.5
      [m5].Copy [m6]
      [B6].Select
      Worksheets("2013").Protect

End Sub

[/vba]
Select'ты - там лишние и так, по мелочам.