Procedimiento que inhabilita las opciones de seguridad de todas las hojas del documento:
For i = 0 to ActiveDocument.NoOfSheets - 1
set ss= ActiveDocument.GetSheet(i)
set sp=ss.GetProperties
sp.UserPermissions.AccessSheetProperties = false
sp.UserPermissions.AccessSheetObjectProperties = false
sp.UserPermissions.AddSheetObject = false
sp.UserPermissions.CopyCloneSheetObject = false
sp.UserPermissions.MoveSizeSheetObject = false
sp.UserPermissions.RemoveSheet = false
sp.UserPermissions.RemoveSheetObject = false
ss.SetProperties sp
Next
