vba设置工作表保护密码

『壹』 EXCE如何用VBA代码加入启动时对所有工作表加密,并设指定密码

都没有开启宏，那你还怎么启用宏呢？加一句肯定是不行的，得要个宏表函专数才行

至于属密码嘛，你在open事件写个

foreachshtinsheets
sht.protectpassword:=123456
next

这样就设置密码了

『贰』 在哪里设置VBA编码的保护密码

操作步骤如下：

1.右键点击有VBA代码的工作表，选择VBProject工程属性

『叁』 如何用vba编程对word和excel进行文件保护

保护工作簿(Protect方法) Sub ProtectWorkbook() MsgBox "保护工作簿结构,密码为123" ActiveWorkbook.Protect Password:="123", Structure:=True MsgBox "保护工作簿窗口,密码为123" ActiveWorkbook.Protect Password:="123", Windows:=True MsgBox "保护工作簿结构和窗口,密码为123" ActiveWorkbook.Protect Password:="123", Structure:=True, Windows:=True End Sub 示例说明：使用Protect方法来保护工作簿，带有三个可选参数，参数Password指明保护工作簿密码，要解除工作簿保护应输入此密码；参数Structure设置为True则保护工作簿结构，此时不能对工作簿中的工作表进行插入、复制、删除等操作；参数Windows设置为True则保护工作簿窗口，此时该工作簿右上角的最小化、最大化和关闭按钮消失。 解除工作簿保护(UnProtect方法) Sub UnprotectWorkbook() MsgBox "取消工作簿保护" ActiveWorkbook.Unprotect "123" End Sub word的应该一样吧

『肆』 求教：用VBA保护工作表

Sub bhgzb2()
Sheets("表2").Protect DrawingObjects:=True, Contents:=True, Scenarios:=True, Password:=666 '666为密内码容
Sheets("表1").Protect DrawingObjects:=True, Contents:=True, Scenarios:=True, Password:=888 '888为密码
End Sub

『伍』 怎样用VBA语句设置密码保护工作表

设置袭工作表密码
ActiveSheet.Protect Password:=641112 ' 保护工作表并设置密码
ActiveSheet.Unprotect Password:=641112 '撤消工作表保护并取消密码

『陆』 大侠，我想求个VBA。打开或关闭Excel07的文档时，自动对文档的sheet加密保护工作表

用下面代码，可在打开时，自动撤消保护，关闭时自动保护工作表。
代码要放在thisworkbook模块回中
Private Sub Workbook_BeforeClose(Cancel As Boolean)
MsgBox "关闭后会保护答工作表"
Sheets("sheet1").Protect Password:=123 ' 保护工作表sheet1并设置密码
End Sub

Private Sub Workbook_Open()
MsgBox "打开工作表，自动取消保护"
Sheets("sheet1").Unprotect Password:=123 '撤消sheet1工作表保护,密码是123
End Sub