View Single Post
  #2   Report Post  
Posted to microsoft.public.excel.programming
GS[_2_] GS[_2_] is offline
external usenet poster
 
Posts: 3,514
Default Cell Auto Lock After Entering

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