fieldset{padding:10px;}
VBA里怎么设置新建的表格列宽属性和密码保护我在execlA的vba代码里新建了一个execlB，将execlA的某个工作表的部分数据存放到新建的execlB（只有一张表）里，然后要将execlB的工作表加上密码保护，发现怎么也没保护不了。主要代码如下：SetxlApp=CreateObject(“Excel.Application”)’创建EXCEL应用类xlApp.SheetsInNewWorkbook=1’设置工作薄只有一个工作表SetxlBook=xlApp.Workbooks.Add’新增工作薄xlBook.Worksheets(1).Name=”SN”‘工作表重新命名Setxlsheet=xlBook.Worksheets(1)xlsheet.Columns(1).ColumnWidth=100’设置列宽……………………..execlA的单元格数据复制到execlB……………………..xlsheet.Protect”123″xlBook.SaveAsFilename:=file,FileFormat:=xlCSV,_CreateBackup:=False’设置存储格式为csv，保存。xlBook.Close(True)’关闭EXCEL工作簿xlApp.Quit’关闭EXCELSetxlsheet=NothingSetxlBook=NothingSetxlApp=Nothing’释放EXCEL对象问题就是打开新建的csv文件后，发现对列宽的设置和加密码保护并没有实现。这个问题怎么解决？——最佳解决方案——————————————————–有没有搞错呀，CSV文件那里还管你什么列宽和密码保护呀，这些信息不会保存的。要那样你就存成Excel自己的格式才行。——其他解决方案——————————————————–
楼上正解——其他解决方案——————————————————–这段代码是对指定文件设置密码的：Workbooks.OpenFilename:=”C:\DocumentsandSettings\Administrator\桌面\新建MicrosoftExcel工作表.xls”Application.DisplayAlerts=FalseActiveWorkbook.SaveAsActiveWorkbook.FullName,_FileFormat:=xlNormal,Password:=”1234″,WriteResPassword:=””,_Application.DisplayAlerts=True——其他解决方案——————————————————–难道木有人知道？？？不然你大概会一直好奇和不甘吧——家门前的那条小路，
