Mandatory cell input

[handri]

Hi,

I looking for a new vba code for these.
In my workbook. I need to make B6 cell as mandatory or need to fill first before you can do other work in workbook.
Also a message popup if they not fill the B6 FIRST. Meant after save and open if B6 are filled you can continue your work.

Thank you

 

[handri]

thank Sir

I have modified as below code and works well, thank you

  Private Sub Worksheet_Change(ByVal Target As Range)  If Target.Count > 1 Then Exit Sub
  If Target.Value = "" Then Exit Sub
  If Not Intersect(Target, Range("A7:A10001")) Is Nothing Then
    If Cells(Target.Row, "C").Value = "SALAH MODEL" Then
      MsgBox "SALAH MODEL/PERIKSA SEMULA MODEL", vbCritical
      Target.Select
      End If
      '   Check to see if B6 is populated
    If Len(Range("B4")) = 0 Then
        Application.EnableEvents = False
        Target.ClearContents
        MsgBox "ISI NAMA MODEL DAHULU SEBELUM MULAKAN PROSES SCAN!", vbOKOnly, "ENTRY ERROR!"
        Application.EnableEvents = True
    End If
End If
End Sub