User Profile
Collapse
Profile Sidebar
Collapse
ANIL KUMAR N
Last Activity: Oct 18 '14, 02:46 AM
Joined: Oct 1 '14
Location:
-
pl's any body can help me it is very needed to me -
compiler error:expected end sub
...Code:Sub LOCKED() Private Sub Worksheet_Change(ByVal Target As Range) Dim Rng As Range Set Rng = Range("$a$1:$b$1") If Not Application.Intersect(Target, Rng) Is Nothing Then Sheets("Sheet 1").Unprotect If IsEmpty(Target) Then Target.LOCKED = False Else Target.LOCKED = True End If Sheets("Sheet 1").ProtectLast edited by Rabbit; Oct 1 '14, 03:49 PM. Reason: Please use [code] and [/code] tags when posting code or formatted data.
No activity results to display
Show More
Leave a comment: