Lock/Unlock of the parameter (Check), Check if the value of parameter is set from KWA Rule (Edit Window for CADPRT)

Question

Catia V5 R24

1. is there any way to check by the VBA code if the parameter in catia is locked ?
2. Is there any way to check by the VBA code if the value of