ОЛЕ-интерфейс для упраления EXCEL таблицей

Salas

Столкнулся с такой проблемой:
У меня отчет выводится в Excel. В него через оле я передаю внутренние таблицы:

Code:

Data table_coll  TYPE REF TO i_oi_table_collection.
CALL METHOD table_coll->add_table " Gurinosov
    EXPORTING
      table_name = 'Имя_Таблицы'
      table_type = my_table
      no_flush   = 'X'
    IMPORTING
      retcode    = retcode
    CHANGING
      data_table = gt_attr_lifnr1.

Некоторые поля в Exclel пользователь может изменять и сохранять,
если я определю такой диапазон: name_range

Code:

CALL METHOD spreadsheet->protect_range
        EXPORTING
          name     = name_range  "'SAP_Table'
          protect  = ' '
          no_flush = 'X'
        IMPORTING
          error    = errors.
      APPEND errors.

Но другие поля пользователь менять не имеет право,
поэтому я накладываю защиту на всю страницу:

Code:

CALL METHOD spreadsheet->protect
      EXPORTING
        protect  = 'X'
        no_flush = 'X'
      IMPORTING
        error    = errors.
    APPEND errors.

Однако тогда пользователь не может не только "вбивать" поля в ненужные места, но и не может изменять ширину колонок, т.е. многие поля обрезаются.

ВОПРОС: Как мне можно установить защиту от ввода в поля Excel, но при этом сохранить пользователю возможность изменять ширину колонок на защищенной закладке?

Заранее спасибо.
[/code]

trop

excel -> alt+f11 -> object browser

Code:

Sub Protect([Password], [DrawingObjects], [Contents], [Scenarios], [UserInterfaceOnly], [AllowFormattingCells], [AllowFormattingColumns], [AllowFormattingRows], [AllowInsertingColumns], [AllowInsertingRows], [AllowInsertingHyperlinks], [AllowDeletingColumns], [AllowDeletingRows], [AllowSorting], [AllowFiltering], [AllowUsingPivotTables])
    Member of Excel.Worksheet

тебе нужно выставить AllowFormattingColumns в msoTrue -1
если в doi нет подходящих параметров,
можешь вынуть workbooks из oi_document

Code:

type-pools: ole2, cntl.
data h_xl_tmpe type ole2_object.

data handle type cntl_handle.
call method i_document->get_document_handle
  importing handle = handle.

h_xl_tmpe = handle-obj.

Nuclear

Не указал при защите странице параметры, которые разрешают изменение шарины столбца, но не дают редактировать. На VB код выглядит так:
ActiveSheet.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True _
, AllowFormattingColumns:=True, AllowFormattingRows:=True

Одно но: это работает тока тогда, когда можешь обращятся к Excel объектам через OLE.

Гость

Это все отлично!!
Большое спасибо!
Единственное, что нужно, так это то, что некоторые поля редактируемые, а некоторые не доступны для ввода!
А в Вашем варианте все поля нередактируемы, если протект устанавливать в ВБА
И ещё...
Куда можно запихнуть полученный handle?

Code:

type-pools: ole2, cntl. 
data h_xl_tmpe type ole2_object. 

data handle type cntl_handle. 
call method i_document->get_document_handle 
  importing handle = handle. 

h_xl_tmpe = handle-obj.

Заранее спасибо!

trop

you can cram it where the sun don't shine.. ;)
цепочка описанных действий сбила с толку,
обратите внимание на объект Excel.AllowEditRange

Гость

Спасибо.
Сам уже запутался, поэтому и других запутал:))

Правила форума

ОЛЕ-интерфейс для упраления EXCEL таблицей

Кто сейчас на конференции