參考板上的文章
有提到保護工作表..保護sheet
Worksheet.OleFunction("Protect","password",true,true,true,true);
但是不知是否可達到Excel上的功能..就是只能單純"看"
就是活頁簿也不能重新命名等...
因為在網上有提到說參考Office的內建VBA說明
但是小弟找不到Office Excel的巨集函式說明
在Office官網上有一"Excel 4.0 巨集函數 - Excel 2000 Help File - Running Excel 4.0 Macros"但是卻只能在Office2000下開@@!
不知是否哪位前輩有遇過可以指點一下..還是Office2003的Excel的說明檔可從何處取得..

試出來了，ExcelBook.OleFunction("Protect","password",true,false);看看是不是你要的

貼上我測試的程式碼
[code cpp]
Variant ExcelApp, ExcelBooks, ExcelBook, ExcelSheets, ExcelSheet;
try
{
ExcelApp=Variant::CreateObject("Excel.Application");
}
catch(Exception &e)
{
ShowMessage(e.Message);
}
if(ExcelApp.IsEmpty())
{
return;
}
ExcelApp.OlePropertySet("Visible", true);
ExcelBooks=ExcelApp.OlePropertyGet("Workbooks");
try
{
ExcelBook=ExcelBooks.OleFunction("Add");
}
catch(Exception &e)
{
ShowMessage(e.Message);
}
if(ExcelBook.IsEmpty())
{
return;
}
ExcelSheets=ExcelBook.OlePropertyGet("Worksheets");
ExcelSheet=ExcelSheets.OlePropertyGet("Item", 1);
//保護工作表..保護sheet
ExcelBook.OleFunction("Protect","password",true,false);

ExcelSheet.OleFunction("Protect","password",true,true,true,true);
[/code]

編輯記錄