如何能对多个<em>EXCEL</em>工作簿批量<em>加密</em>

直接设置密码百即可。

工具：

       Office 2007

方法：

1、打度开需要加密知的EXCEL文档，点击左上角的Office图标。

2、之后道，内点击准备----加密文档。

3、输入两次密码，确定。

4、之后保存文档，退出容；再打开时就会有密码了。

 　　excel2010设置步骤如下：

　　1、右击要隐百藏的工作表底部标签，选择隐藏；度

　　2、点击审阅选项卡，保护工作簿命问令；

　　3、勾选结构，输入密码；

　　4、再次答输入密码；

　　5、此时在工作表标签专右击，可发现无法取消属隐藏。点击保存即可。

一下是个实例，参考修改后你可以实现Sub 登录()
Dim a As Variant
Dim x As Variant
x = InputBox(Prompt:="输入密码")
With Worksheets("次梁锚固")
.Range("A1") = x
a = .Range("C1")
If a = False Then
Application.DisplayFormulaBar = True
Application.CommandBars("Standard").Visible = True
Application.CommandBars("Formatting").Visible = True
Application.CommandBars("Protection").Visible = True
Application.CommandBars("Drawing").Visible = True
Application.CommandBars("Picture").Visible = True
Application.CommandBars("Borders").Visible = True
Application.CommandBars("符号栏").Visible = True
Application.CommandBars("Forms").Visible = True
Application.CommandBars("Visual Basic").Visible = True
Application.Sheets("锚固").Visible = True
Application.Sheets("钢筋数量分类汇总").Visible = True
Application.Sheets("楼层标高").Visible = True
Application.Sheets("主窗口").Visible = True
Application.Sheets("重量分类汇总").Visible = True
Application.Sheets("重量汇总").Visible = True
Application.Sheets("零工").Visible = True
Application.Sheets("工作页").Visible = True
Application.Sheets("打印页").Visible = True
Application.Sheets("箍筋汇总").Visible = True
Application.Sheets("拉筋汇总").Visible = True
Application.Sheets("参数").Visible = True
Application.Sheets("计划").Visible = True
Application.Sheets("加析器").Visible = True
Application.Sheets("内箍e68a84e79fa5e98193361").Visible = True
Application.Sheets("图形").Visible = True
Application.Sheets("积水坑").Visible = True
Application.Sheets("缩尺").Visible = True
Application.Sheets("用工").Visible = True
Application.Sheets("砼配比").Visible = True
Application.Sheets("数据提取").Visible = True
Application.Sheets("Attributes").Visible = True
Application.Sheets("输出页").Visible = True
Application.Sheets("yx").Visible = True
Application.Sheets("YXG").Visible = True
Application.Sheets("桩").Visible = True
ActiveSheet.shapes("Button 9").Select
Selection.Characters.text = "密码正确,数据已加载,欢迎登录本系统！"
With Selection.Characters(Start:=1, Length:=10).Font
.Name = "宋体"
.FontStyle = "常规"
.Size = 24
.Strikethrough = False
.Superscript = False
.Subscript = False
.OutlineFont = False
.Shadow = False
.Underline = xlUnderlineStyleNone
.ColorIndex = 3
Call 系统说明
Dim PauseTime, Start, Finish, TotalTime
If (MsgBox("系统说明已加载，你有2分钟的阅读时间", 4)) = vbYes Then
PauseTime = 120
Start = Timer
Do While Timer < Start + PauseTime
DoEvents
Loop
Finish = Timer
TotalTime = Finish - Start
MsgBox "时间已到时，系统清除说明！"
Sheets("主窗口").Select
Range("A12:A1000").Select
Range("A12：A1000") = ""
Else
End
End If
End With
End If
If a = True Then
Application.DisplayFormulaBar = False
Application.CommandBars("Standard").Visible = False
Application.CommandBars("Formatting").Visible = False
Application.CommandBars("Protection").Visible = False
Application.CommandBars("Drawing").Visible = False
Application.CommandBars("Picture").Visible = False
Application.CommandBars("Borders").Visible = False
Application.CommandBars("符号栏").Visible = False
Application.CommandBars("Forms").Visible = False
Application.CommandBars("Visual Basic").Visible = False
Application.Sheets("锚固").Visible = False
Application.Sheets("钢筋数量分类汇总").Visible = False
Application.Sheets("楼层标高").Visible = False
Application.Sheets("主窗口").Visible = True
Application.Sheets("重量分类汇总").Visible = False
Application.Sheets("重量汇总").Visible = False
Application.Sheets("零工").Visible = False
Application.Sheets("工作页").Visible = False
Application.Sheets("打印页").Visible = False
Application.Sheets("箍筋汇总").Visible = False
Application.Sheets("拉筋汇总").Visible = False
Application.Sheets("参数").Visible = False
Application.Sheets("计划").Visible = False
Application.Sheets("加析器").Visible = False
Application.Sheets("内箍").Visible = False
Application.Sheets("图形").Visible = False
Application.Sheets("积水坑").Visible = False
Application.Sheets("缩尺").Visible = False
Application.Sheets("用工").Visible = False
Application.Sheets("砼配比").Visible = False
Application.Sheets("数据提取").Visible = False
Application.Sheets("Attributes").Visible = False
Application.Sheets("输出页").Visible = False
Application.Sheets("yx").Visible = False
Application.Sheets("YXG").Visible = False
Application.Sheets("桩").Visible = False
ActiveSheet.shapes("Button 9").Select
Selection.Characters.text = "系统未激活,请单击此按钮，再次登录并加载数据与设置！"
With Selection.Characters(Start:=1, Length:=10).Font
.Name = "宋体"
.FontStyle = "常规"
.Size = 24
.Strikethrough = False
.Superscript = False
.Subscript = False
.OutlineFont = False
.Shadow = False
.Underline = xlUnderlineStyleNone
.ColorIndex = 3
Sheets("主窗口").Select
Range("A12:A1000").Select
Range("A12：A1000") = ""
ActiveWorkbook.Save
ActiveWindow.Close
End With
End If
End With
End Sub

用winrar压缩软件加密是唯一的简便方法，如果楼主不想用，就只能一个一个加密了。