如何使用Excel保護活頁簿 |
尚未結案
|
elzs808
一般會員 ![]() ![]() 發表:2 回覆:1 積分:0 註冊:2009-02-26 發送簡訊給我 |
參考板上的文章
有提到保護工作表..保護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的說明檔可從何處取得.. |
775153
一般會員 ![]() ![]() 發表:1 回覆:3 積分:0 註冊:2006-07-21 發送簡訊給我 |
試出來了,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]
編輯記錄
775153 重新編輯於 2009-05-02 16:53:12, 註解 無‧
|
本站聲明 |
1. 本論壇為無營利行為之開放平台,所有文章都是由網友自行張貼,如牽涉到法律糾紛一切與本站無關。 2. 假如網友發表之內容涉及侵權,而損及您的利益,請立即通知版主刪除。 3. 請勿批評中華民國元首及政府或批評各政黨,是藍是綠本站無權干涉,但這裡不是政治性論壇! |