Не работает макрос на защищенном листе.

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

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

Мир MS Excel » Вопросы и решения » Вопросы по Excel » Не работает макрос на защищенном листе. (Не работает макрос на защищенном листе.)

АННА-ЕАО

Дата: Понедельник, 03.12.2012, 16:37 | Сообщение № 1

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

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

Сообщений: 12

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

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

Здравствуйте hello

Написала наипростейший макрос, хотела защитить лист для изменений от пользователей, но в этом случае не работает макрос. Что я не так делаю? Подскажите пожалуйста.

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

Ответить

Serge_007

Дата: Понедельник, 03.12.2012, 16:52 | Сообщение № 2

Группа: Админы

Ранг: Местный житель

Сообщений: 16475

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

Замечаний: ±

Excel 2016

Так надо?
[vba]

Code

Sub Макрос9()
     Application.ScreenUpdating = False
     With ActiveSheet
     .Unprotect
     .EnableSelection = xlNoSelection
     End With
      Columns("H:I").Clear
     Range("A1:B87").AdvancedFilter Action:=xlFilterCopy, CriteriaRange:=Range( _
         "W1:W2"), CopyToRange:=Range("H1:I1"), Unique:=False
     Range("A1:J1").AutoFilter
     ActiveSheet.Protect
     Application.ScreenUpdating = True
End Sub

[/vba]

ЮMoney:41001419691823 | WMR:126292472390

Ответить

KuklP

Дата: Понедельник, 03.12.2012, 21:23 | Сообщение № 3

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

Ранг: Старожил

Сообщений: 2369

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

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

2003-2010

И я попробую пять копеек. Защитите лист так:
[vba]

Code

Public Sub www()
ActiveSheet.Protect "123", UserInterfaceOnly:=-1
End Sub

[/vba]
Пароль будет "123"

А дальше попробуйте:
[vba]

Code

Sub Макрос9()
      [H:I].Clear: Range("A1:B87").AdvancedFilter Action:=xlFilterCopy, _
      CriteriaRange:=Range("W1:W2"), CopyToRange:=Range("H1:I1"), Unique:=False
      ActiveSheet.AutoFilterMode = 0
End Sub

[/vba]

Ну с НДС и мы чего-то стoим! kuklp60@gmail.com
WM Z206653985942, R334086032478, U238399322728

Сообщение отредактировал KuklP - Понедельник, 03.12.2012, 21:26

Ответить

Serge_007

Дата: Понедельник, 03.12.2012, 22:25 | Сообщение № 4

Группа: Админы

Ранг: Местный житель

Сообщений: 16475

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

Замечаний: ±

Excel 2016

Я думал ты предложишь макрос без автофильтра smile

ЮMoney:41001419691823 | WMR:126292472390

Ответить

KuklP

Дата: Понедельник, 03.12.2012, 22:32 | Сообщение № 5

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

Ранг: Старожил

Сообщений: 2369

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

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

2003-2010

Подкалываеш? Я и предложил БЕЗ автофильтра. Даже если он там и был до меня, строка:
[vba]

Code

ActiveSheet.AutoFilterMode = 0

[/vba]
его уберет:)
Там РАСШИРЕННЫЙ фильтр biggrin

Ну с НДС и мы чего-то стoим! kuklp60@gmail.com
WM Z206653985942, R334086032478, U238399322728

Ответить

Serge_007

Дата: Понедельник, 03.12.2012, 22:36 | Сообщение № 6

Группа: Админы

Ранг: Местный житель

Сообщений: 16475

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

Замечаний: ±

Excel 2016

Quote (KuklP)

Подкалываеш?

Нет, путаю
Для меня все фильтры - это автофильтры

Я имел ввиду без критериев на листе

ЮMoney:41001419691823 | WMR:126292472390

Ответить

KuklP

Дата: Понедельник, 03.12.2012, 22:38 | Сообщение № 7

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

Ранг: Старожил

Сообщений: 2369

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

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

2003-2010

Гы) дык, я в файл-то не заглядывал. Паразитировал на твоем коде cool

Ну с НДС и мы чего-то стoим! kuklp60@gmail.com
WM Z206653985942, R334086032478, U238399322728

Ответить

АННА-ЕАО

Дата: Вторник, 04.12.2012, 08:47 | Сообщение № 8

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

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

Сообщений: 12

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

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

Serge_007, KuklP спасибо, за помощь, всё работает, а главное буду знать на будущее как с защитой работать.

Ответить

strong74rus

Дата: Четверг, 27.11.2014, 11:34 | Сообщение № 9

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

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

Сообщений: 1

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

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

Excel 2007

Добрый день!
У меня аналогичная проблема не работает маркрос при защите листа
помогите исправить ошибку

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)

If (Target.Column = 4) And (Target.Row >= 3) And (Target.Row <= 5000) Then
Cells(1, 1).Value = Target.Row '"Вы работаете в строке " &
UserForm1.Show
End If

End Sub

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
Set Dist = Sheets("Заявка")
r = Dist.Cells(1, 4).Value
' Dist.Cells(r, 2).Value = Cells(Target.Row, 1).Value
Dist.Cells(r, 3).Value = Cells(Target.Row, 2).Value
'Dist.Cells(r, 4).Value = Cells(Target.Row, 3).Value
'Dist.Cells(r, 5).Value = Cells(Target.Row, 4).Value
'Dist.Cells(r, 7).Value = Cells(Target.Row, 5).Value
Dist.Select
End Sub
[moder]Добрый!
Правилами форума запрещено задавать новые вопросы в чужих (да и в своих ранних) темах. Создавайте новую тему.
Кстати, тег оформления кода макроса - кнопочка #.
Эта тема закрыта.

Ответить

Страница 1 из 1
1