We are maintaing a excel sheet, Its having 11 Coloumns, After
Entering the
data on Every Cell Need to Lock cell with Password.
Please help me.
Easily done!
First, unlock all cells to receive input.
Second, protect the sheet (password optional)
Third, right-click the sheet tab and select 'View code' from the popup
menu.
Finally, past the following code into the code window...
Option Explicit
Const PWD$ = "password" '//edit ti suit
Private Sub Worksheet_Change(ByVal Target As Range)
With Me
.Unprotect PWD: Target.Locked = True: Protect PWD
End With
End Sub
--
Garry
Free usenet access at
http://www.eternal-september.org
Classic
VB Users Regroup!
comp.lang.basic.visual.misc
microsoft.public.
vb.general.discussion