Viral

Just a note here.

The cells will still be editable until you Protect the Worksheet.


Gord Dibben Excel MVP

On Fri, 16 Dec 2005 14:43:48 GMT, "Viral" <u16718@uwe> wrote:

>Awesome, Thanks a million man. Really needed to know how to use the
>subroutines, thanks again.
>
>Bob Phillips wrote:
>>Can't do it with a function, but with event code
>>
>>Option Explicit
>>
>>Private Sub Worksheet_Change(ByVal Target As Range)
>>Const WS_RANGE As String = "G2:H2000"
>>
>> On Error GoTo ws_exit:
>> Application.EnableEvents = False
>> If Not Intersect(Target, Me.Range(WS_RANGE)) Is Nothing Then
>> With Target
>> .Locked = True
>> End With
>> End If
>>
>>ws_exit:
>> Application.EnableEvents = True
>>End Sub
>>
>>'This is worksheet event code, which means that it needs to be
>>'placed in the appropriate worksheet code module, not a standard
>>'code module. To do this, right-click on the sheet tab, select
>>'the View Code option from the menu, and paste the code in.
>>
>>> I'm not entirely sure if this is possible or not... but here we go.
>>>
>>[quoted text clipped - 9 lines]
>>>
>>> I'd appreciate any help. Thanks.