Función que utilizo desde hace de tiempo para inhabilitar las options de seguridad:
Sub sp_Seguridad
' 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
End Sub
