maby somthing like this

Private Sub Workbook_Open()
Dim u As String
u = InputBox("User name please :")
If u = "jones1" Then Sheets("Ark1").Range("A1:A10").Select: Selection.Locked
= False
If u = "jones2" Then Sheets("Ark1").Range("B1:B10").Select: Selection.Locked
= False
If u = "jones3" Then Sheets("Ark1").Range("C1:C10").Select: Selection.Locked
= False
If u = "jones4" Then Sheets("Ark1").Range("D1:D10").Select: Selection.Locked
= False
If u = "jones5" Then Sheets("Ark1").Range("E1:E10").Select: Selection.Locked
= False
If u = "jones6" Then Sheets("Ark1").Range("F1:F10").Select: Selection.Locked
= False
If u = "jones7" Then Sheets("Ark1").Range("G1:G10").Select: Selection.Locked
= False
If u = "jones8" Then Sheets("Ark1").Range("H1:H10").Select: Selection.Locked
= False
If u = "x" Then Sheets("Ark1").Range("A1:IV65000").Select: Selection.Locked
= False
Sheets("Ark1").Protect Password:="p", DrawingObjects:=True, Contents:=True,
Scenarios:=True
Range("A1").Select
End Sub


Private Sub Workbook_BeforeClose(Cancel As Boolean)
Sheets("Ark1").Unprotect Password:="p"
Range("A1:H10").Select
Selection.Locked = True
Range("A1").Select
End Sub





"wally0206" skrev:


I have a workbook that is used by more then one users, in the case 8
pepole. but i need it to were they can only edit there cells and no one
else.


--
wally0206
------------------------------------------------------------------------
wally0206's Profile: http://www.excelforum.com/member.php...o&userid=14995
View this thread: http://www.excelforum.com/showthread...hreadid=546100