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?