Lock boxes in ole2_object

[Former Member]

How can I insert "lock boxes" in ole2_object?  

CREATE OBJECT excel 'Excel.Application'.  

IF sy-subrc NE 0.    

  stop.  

Endif.  

Set Property excel OF 'Visible' = 0.

CALL METHOD OF excel 'Workbooks' = workbook.  

CALL METHOD OF workbook 'Add'       = map.

......

Insert the value

........ ......  

CALL METHOD OF EXCEL 'Columns' = COLUMN.  

CALL METHOD OF COLUMN 'Autofit'. ........

LOCK BOXES??????????????

Thanks.

CV

[Former Member]

How can I insert "lock boxes" in ole2_object?  

CREATE OBJECT excel 'Excel.Application'.  

IF sy-subrc NE 0.    

  stop.  

Endif.  

Set Property excel OF 'Visible' = 0.

CALL METHOD OF excel 'Workbooks' = workbook.  

CALL METHOD OF workbook 'Add'       = map.

......

Insert the value

........ ......  

CALL METHOD OF EXCEL 'Columns' = COLUMN.  

CALL METHOD OF COLUMN 'Autofit'. ........

LOCK BOXES??????????????

Thanks.

CV

[Former Member]

Are you talking about Protecting cells?

If yes, then check this link.

http://scn.sap.com/message/712260

Thanks,
Shambu

[Former Member]

Ciao Shambu, I do this:

Thanks a lot.

[Former Member]

Hi cristiano,

use below code to lock cell

CALL METHOD OF h_excel 'Cells' = h_cell

     EXPORTING

     #1 = i    row number

     #2 = j.   column number

   SET PROPERTY OF h_cell 'FreezePanes' = 1.

Thanks,

Ashwath.