Protect workbook & keep change history
 

Hi all, i recorded a macro to do the above and then changed it for
"ActiveWorksheet" and now i get the following error mesage:
Run-time error '1004' Method "HighlightChangesOptions' of
Object'_Workbook' Failed ?? Could somebody please help

Sub ProtectWorksheetStd()
'
'

Columns("H:H").Locked = False
ActiveSheet.EnableSelection = xlUnlockedCells
ActiveSheet.Protect Password:="secret", Scenarios:=True
ActiveWorkbook.KeepChangeHistory = True
ActiveWorkbook.Save
With ActiveWorkbook
.HighlightChangesOptions When:=xlAllChanges, Who:="Everyone",
Whe= _
"H:H"
.ListChangesOnNewSheet = False
.HighlightChangesOnScreen = True
End With
Range("H3").Select

End Sub



Tempy

*** Sent via Developersdex http://www.developersdex.com ***