Entering in data in specific cells using range protect or locking the cells

**howard101** · 04-05-2008, 06:29 AM

I would like VBA Code that will that will protect the following cells i.e force me to enter cells in the following ranges

A2, A5, A7, C2, D2. When I enter twice after enter data in D2, then macro must end

Your assistance will be most appreciated

Howard
http://www.mrexcel.com/forum/showthr...ghlight=howard

**royUK** · 04-05-2008, 07:17 AM

Protecting Cells will not force Input

**royUK** · 04-05-2008, 08:18 AM

I think this is what you want

Option Explicit
Private Sub Worksheet_Deactivate()
    Dim ThisSheet As Worksheet
    Dim r      As Range
    Const msg  As String = "You must enter data in: "
    Set ThisSheet = Worksheets("M_ECMHO")
    For Each r In Range("N2,N4,N6,P4:P5")
        If IsEmpty(r) Then
            MsgBox msg & vbLf & r.Address, vbCritical, "Incomplete entries..."
            Application.Goto ThisSheet.Range(r.Address)
            Exit Sub
        End If
    Next

End Sub