I want to create a spreadsheet where person A enters details in the
spreadsheet and saves sheet. Person B comes along and opens the sheet
and can enter details, but must not be able to alter any details
entered by A.

Can any one point me in the right direction?

Thanks,
Tiptoe

Tools->Protection->allow users to edit ranges. this allows you to set custom
access to different areas of the sheet. Not sure if that is exactly what your
looking for, but it sounds like what you want.
--
-John
Please rate when your question is answered to help us and others know what
is helpful.


"tiptoe" wrote:

> I want to create a spreadsheet where person A enters details in the
> spreadsheet and saves sheet. Person B comes along and opens the sheet
> and can enter details, but must not be able to alter any details
> entered by A.
>
> Can any one point me in the right direction?
>
> Thanks,
> Tiptoe
>

On Feb 19, 7:55 pm, John Bundy <jmbu...@gmail.com(remove)> wrote:
> Tools->Protection->allow users to edit ranges. this allows you to set custom
> access to different areas of the sheet. Not sure if that is exactly what your
> looking for, but it sounds like what you want.
> --
> -John
> Please rate when your question is answered to help us and others know what
> is helpful.
>
> "tiptoe" wrote:
> > I want to create a spreadsheet where person A enters details in the
> > spreadsheet and saves sheet. Person B comes along and opens the sheet
> > and can enter details, but must not be able to alter any details
> > entered by A.
>
> > Can any one point me in the right direction?
>
> > Thanks,
> > Tiptoe

Not sure if that will work as the new entry will be immediately below
the previous and the person making the entry is not predictable.

Any other ideas?

tiptoe

Maybe something like this...

Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As
Boolean)
Sheet1.Unprotect "tiptoe"
Dim rgCell As Range
For Each rgCell In Range("B2:C11")
If rgCell.Value = "" Then
rgCell.Locked = False
Else: rgCell.Locked = True
End If
Next
Sheet1.Protect "tiptoe"
End Sub

When the workbook is saved each cell in the range of cells where data
is to be entered by all the different other users (Sheet1!B2:C11 in
the sample code) is locked if not blank and unlocked if blank. The
sheet is protected with the password "tiptoe"

The code has to be pasted into the ThisWorkbook code module.

Ken Johnson

On Feb 20, 3:10 am, Ken Johnson <KenCJohn...@gmail.com> wrote:
> Maybe something like this...
>
> Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As
> Boolean)
> Sheet1.Unprotect "tiptoe"
> Dim rgCell As Range
> For Each rgCell In Range("B2:C11")
> If rgCell.Value = "" Then
> rgCell.Locked = False
> Else: rgCell.Locked = True
> End If
> Next
> Sheet1.Protect "tiptoe"
> End Sub
>
> When the workbook is saved each cell in the range of cells where data
> is to be entered by all the different other users (Sheet1!B2:C11 in
> the sample code) is locked if not blank and unlocked if blank. The
> sheet is protected with the password "tiptoe"
>
> The code has to be pasted into the ThisWorkbook code module.
>
> Ken Johnson

Ken,
Thanks, looking good.

Regards,
tiptoe

You're welcome tiptoe.
Thanks for the feedback and the great rating.

Ken Johnson