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

[Uralmaster]

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

[Uralmaster]

еще защитить надо на закрытие файла - пока не заполнено файл не дает закрыть... но пока защита по переходу с листа на лист по условию макроса конечно интересует

[Serge_Bliznykov]

если есть хотя бы одна незаполненная строка - переход запрещен.)

чем предложенный мной способ не устроил?

[Uralmaster]

Private Sub Workbook_SheetActivate(ByVal Sh As Object)

If IsEmpty(ThisWorkbook.ActiveSheet. ( в  диапазоне активного листа B8:G500 
хотя бы одна строка заполнена неполностью
 /те в строке 6 колонок - если есть значения в строке и она полностью не заполнена/)  
Then ' при попытке перехода на другой лист
    MsgBox "Заполните строку на листе полностью-на другой лист перейти не удастся! !"
    Application.ScreenUpdating = False
    Application.EnableEvents = False
    
    ThisWorkbook.ActiveSheet.Select
    ThisWorkbook.ActiveSheet./незаполненная строка - если сложно то в любое место/.Select
    
    Application.EnableEvents = True
    Application.ScreenUpdating = True
  End If
  
End Sub

не знаю как вписать то что жирным шрифтом отметил

[Uralmaster]

скрин чтоли выложить чтоб понятнее задача была ....