Don't know what Jive is, but maybe don't use it
To allow some cells to be updated when the sheet is protected, you need to make .Locked = False
Option Explicit Sub ProtectMDS() With Worksheets("MDS Equipment Detail") If .ProtectContents Then Exit Sub Range(.Rows(1), .Rows(6)).Locked = True Range(.Rows(7), .Rows(.Rows.Count)).Locked = False .Protect Password:="password", UserInterfaceOnly:=True, DrawingObjects:=True, Contents:=True, Scenarios:=True, AllowFormattingCells:=True, AllowDeletingRows:=True, AllowFiltering:=True End With End Sub Sub UnProtectMDS() With Worksheets("MDS Equipment Detail") If Not .ProtectContents Then Exit Sub .Unprotect Password:="password" End With End Sub




Reply With Quote