请问妖哥：怎么把以下宏转成bcb代码

请教妖哥：如何把以下宏转成bcb代码
ActiveSheet.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True _
  , AllowFormattingCells:=True, AllowFormattingColumns:=True, _
  AllowFormattingRows:=True

[解决办法]
OLE专业户来也！！！

C/C++ code

vExcelApp.OlePropertyGet("ActiveSheet").OleProcedure("Protect",    WideString(""),   // Password    true, // DrawingObjects:=True,    true, // Contents:=True    true, // Scenarios:=True    false, // UserInterfaceOnly    true, // AllowFormattingCells:=True    true, // AllowFormattingColumns:=True    true  // AllowFormattingRows:=True    );