запретить переход с листа на лист по условию

[Uralmaster]

Есть макрос который проверяет на листе все ли ячейки заполнены по условию
Как запретить пользователю перейти на другой лист пока он не заполнит все ячейки по условию?
Что дописать в макрос ...

Можно ли также сделать запрет на закрытие книги?

[Uralmaster]

Вот сам макрос

Private Sub Worksheet_Change(ByVal Target As Range) 
flag = 0
If Target.Column >= 2 And Target.Column <= 7 And Target.Row >= 8 And Target.Row <= 701 Then
For j = 2 To 7 Step 1
If Cells(Target.Row - 1, j) = "" Then
ActiveSheet.Range(Cells(Target.Row - 1, j), Cells(Target.Row - 1, j)).Select
flag = 1
End If
Next j
If flag = 1 Then
Application.EnableEvents = False
Target.Value = ""
Application.EnableEvents = True
MsgBox ("заполни все ячейки в Строке ! ")
End If
End If
End Sub

[3BEPOBOY]

Uralmaster
а если просто делать 2ой лист невидимым, пока пользователь не заполнит все ячейки. Подойдет?
Или запретить его редактировать, а при попытке внести изменения чтобы выдавалось сообщение " сперва заполните все ячейки такого то листа"?

[Uralmaster]

в книге предполагается листов 100 - с текущего листа пользователь может перейти на любой
можно ли сделать невидимыми 99 листов пока текущий заполняю?

[3BEPOBOY]

Uralmaster
вы спите вообще?))

Вроде да, почему бы и нет. Как-нибудь типа

For i=2 to 100
   WorkSheets(i).Visible = False
Next

[Uralmaster]

то есть в макрос вставить код типа текущийактивный лист показать остальные скрыть так понимаю
а просто запретиь переход на другой лист по условию - такой команды нет в VBA ?

[3BEPOBOY]

Я не знаю как вам нужно, просто предложил идею. Если устраивает, то почему бы и нет...

[Uralmaster]

то есть получится так - пользователь заходит на активный лист начинает его редактировать - в этот момент скрываются остальные листы в книге - и пока пользователь не выпролнит условия макроса(в моем случае -заполнит строку)
остальные листы не показываются

так будет работать ? если так то это вариант решения - осталось только понять что и как засунуть в макрос чтоб реализовать идею ...

а запрет редактирования других листов видимо долго - пока пользователь войдет на другой лист начнет его редактировать увидит табличку вернется обратно - времени мног пройдет так понимаю ?

[Serge_Bliznykov]

А посмотрите такой вариант, без скрытия других листов:

Private Sub Workbook_SheetActivate(ByVal Sh As Object)

  If IsEmpty(ThisWorkbook.Sheets(1).[A1]) Then
    MsgBox "Ячейка A1 НЕ заполнена. Ну-ка, вернёмся и заполним ей!"
    Application.ScreenUpdating = False
    Application.EnableEvents = False
    
    ThisWorkbook.Sheets(1).Select
    ThisWorkbook.Sheets(1).[A1].Select
    
    Application.EnableEvents = True
    Application.ScreenUpdating = True
  End If
  
End Sub

p.s. достаточно выключить макросы в книге - и ВСЯ проверка и защита летит псу под хвост...

[3BEPOBOY]

хорошее решение, сохранил себе на будущее)