首页 诗词 字典 板报 句子 名言 友答 励志 学校 网站地图
当前位置: 首页 > 教程频道 > .NET > C# >

寻 zswang(伴水清清)(专家门诊清洁工) + 有关问题:在excel 宏里设置保护密码

2011-12-15 
寻zswang(伴水清清)(专家门诊清洁工) + 问题:在excel 宏里设置保护密码if(fd.FileName!string.Empty){oBo

寻 zswang(伴水清清)(专家门诊清洁工) + 问题:在excel 宏里设置保护密码
if(fd.FileName!=string.Empty)
                        {
                                      oBook   =   oBooks.Open(fd.FileName,   oMissing,   oMissing,
                                                oMissing,   oMissing,   oMissing,   oMissing,   oMissing,   oMissing,
                                                oMissing,   oMissing,   oMissing,   oMissing,   oMissing,   oMissing);

                                      CodeModule   vCodeModule   =   oExcel.ActiveWorkbook.VBProject.VBComponents.Add(
                                              vbext_ComponentType.vbext_ct_StdModule).CodeModule;
                               
                                //这里宏代码就可以放到配置文件里了
                                vCodeModule.AddFromString(@ "
                                                                Sub   DefinitedMacro()
                                                                        Columns( " "A:A " ").Select
                                                                        Selection.Columns.AutoFit
                                                                        ActiveSheet.Protection.AllowEditRanges.Add   Title:= " "区域1 " ",   Range:=Columns(   _
                                                                                " "D:F " ")
                                                                        ActiveSheet.Protect   DrawingObjects:=True,   Contents:=True,   Scenarios:=True


                                                                End   Sub ");

oExcel.Run( "DefinitedMacro ",   oMissing,   oMissing,
                                                oMissing,   oMissing,   oMissing,   oMissing,   oMissing,   oMissing,
                                                oMissing,   oMissing,   oMissing,   oMissing,   oMissing,   oMissing,oMissing,
                                                oMissing,   oMissing,
                                                oMissing,   oMissing,   oMissing,   oMissing,   oMissing,   oMissing,
                                                oMissing,   oMissing,   oMissing,   oMissing,   oMissing,   oMissing,   oMissing);
..........

      程序运行也成功,excel   生成也对,宏也执行了,可是我想把保护加上密码,我在excel录有密码的宏时,也没看到宏代码有相应的代码....     所以这块请教一下..

      谢谢!   希望zswang(伴水清清)能看到,我看过你的有关帖子,也希望其他高人指点...
                  十分感谢!

[解决办法]
沙发,帮忙顶

热点排行