He Friends ,
I am sending some data in excel sheet as a attachemnt by Email , It is working fine , Now the requirement is that I have to protect some cells of this excel sheet . Please advise How can I do It.
I am using the following code for generating excel sheet.
Regards
SS
constants:
con_tab type c value cl_abap_char_utilities=>horizontal_tab,
con_cret type c value cl_abap_char_utilities=>cr_lf.
it_objbin = w_longtext.
append it_objbin. clear it_objbin.
loop at it_mail where lifnr = wa_mail-lifnr.
concatenate 'S.No.' 'PARTICULARS'
'DATA AVAILABLE AS PER OUR SYSTEM '
'KINDLY MENTION, IF ANY CHANGE' into it_objbin
separated by con_tab.
append it_objbin.
clear it_objbin.
do 27 times. " no fields in internal table
assign component sy-index of structure it_mail to <field>.
if sy-subrc <> 0.
exit.
endif.
Look for Commas in the field value. If it exists, put quotes around
value so that the file opens correctly with all the columns aligned
in Excel.
search <field> for ',' in character mode.
if sy-subrc = 0.
concatenate '"' <field> '"' into <field> in character mode.
endif.
if sy-index = 1.
i_dload-dload = <field>.
shift: i_dload-dload left deleting leading space.
else.
shift: i_dload-dload left deleting leading space.
endif.
data sno type string.
data st_n type string.
st_n = " ".
sno = sy-index.
if sy-index = 1.
st_n = 'Vendor Code '.
endif.
if sy-index = 2.
st_n = 'Name '.
endif.
if sy-index = 3.
st_n = 'Street '.
endif.
if sy-index = 4 .
st_n = 'Street '.
endif.
if sy-index = 5.
st_n = 'Street 4 '.
endif.
if sy-index = 6.
st_n = 'City '.
endif.
if sy-index = 7 .
st_n = 'Postal Code '.
endif.
if sy-index = 8 .
st_n = 'Telephone '.
endif.
if sy-index = 9 .
st_n = 'Mobile No. '.
endif.
if sy-index = 10 .
st_n = 'Fax No. '.
endif.
if sy-index = 11 .
st_n = 'E-Mail Address '.
endif.
if sy-index = 12 .
st_n = 'Contact Person '.
endif.
if sy-index = 13 .
st_n = 'Region Code '.
endif.
if sy-index = 14 .
st_n = 'Region Name '.
endif.
if sy-index = 15 .
st_n = 'ECC No. '.
endif.
if sy-index = 16 .
st_n = 'Excise Registration No.'.
endif.
if sy-index = 17 .
st_n = 'Excise Range '.
endif.
if sy-index = 18 .
st_n = 'Excise Division '.
endif.
if sy-index = 19 .
st_n = 'Excise Commissionerate '.
endif.
if sy-index = 20 .
st_n = 'CST number '.
endif.
if sy-index = 21 .
st_n = 'LST number '.
endif.
if sy-index = 22 .
st_n = 'Permanent Account Number '.
endif.
if sy-index = 23 .
st_n = 'SME Status (Micro/Small/Medium)'.
endif.
if sy-index = 24 .
st_n = 'Bank No.(IFSC Code) '.
endif.
if sy-index = 25 .
st_n = 'Bank Account No. '.
endif.
if sy-index = 26 .
st_n = 'PAN Reference Number'.
endif.
if sy-index = 27 .
st_n = 'Service Tax Regn No.'.
endif.
concatenate sno st_n <field> into it_objbin
separated by con_tab.
append it_objbin.
clear it_objbin.
if p_letter = 'X'.
concatenate sno st_n <field> into it_mail_data
separated by ','.
append it_mail_data.
clear it_mail_data.
endif.
enddo.
endloop.
Bluesky
