i tried the following
code , but did not work

With ActiveSheet
.Unprotect Password:="aaa"
With .Range("N8")
.Locked = False
.DrawingObjects:= True, Contents:=True, Scenarios:=True,
AllowInsertingHyperlinks:=True
End With
.Protect Password:="aaa"
End With

Also i tried the following :

Worksheets("Sheet1").Unprotect password:="aaa"
Worksheets.DrawingObjects := True, Contents:=True, Scenarios :=True,
AllowInsertingHyperlinks :=True
Worksheets("Sheet1").Protect password:="aaa"

whatz problem with the code?