求excel设置工作表密码的vba代码
1）当选取sheet1时自动跳转到sheet2并要求输入密码，正确进入sheet1。
2）输入错误后提示重新输入密码，连续三次错误后不再提示。
周海涛你好，要求密码正确后能选取sheet1,请您再修改一下。谢谢
改好了，不好意思。
Private Sub Worksheet_Activate()
Dim strPassword As String '保存密码
Dim i As Integer '输入密码的次数
Sheets("Sheet2").Select
Do
strPassword = InputBox("请输入密码") '输入密码
If strPassword = "test" Then '判断密码是否正确
Exit Do '退出循环
Else
MsgBox ("请输入正确的密码！")
End If
i = i + 1
Loop While i < 3
If i >= 3 Then
Sheets("Sheet2").Select
Else
Application.EnableEvents = False
Sheets("Sheet1").Select
Application.EnableEvents = True
End If
End Sub本回答被提问者采纳
求excel设置工作表密码的vba代码
Private Sub Worksheet_Activate()Dim strPassword As String '保存密码 Dim i As Integer '输入密码的次数 Sheets("Sheet2").Select Do strPassword = InputBox("请输入密码") '输入密码 If strPassword = "test" Then '判断密码是否正确 Exit Do '退出循环 Else MsgBox ("请输入正...
excel中使用vba来设置密码vba设置密码
1.首先我们打开一个工作样表作为例子。2.我们使用alt+f11组合快捷键进入vbe编辑器，插入一个新的模块，并在模块中输入以下代码：Sub UsePassword()Dim wb As Workbook Set wb = Application.ActiveWorkbook wb.Password = InputBox(\\"请输入密码:\\")wb.Close End Sub 3.我们首先声明wb为工作薄对象...
EXCE如何用VBA代码加入启动时对所有工作表加密,并设指定密码?
1、打开您需要破解保护密码的Excel文件；2、依次点击菜单栏上的工具---宏---录制新宏，输入宏名字如:aa；3、停止录制(这样得到一个空宏)；4、依次点击菜单栏上的工具---宏---宏,选aa,点编辑按钮；5、删除窗口中的所有字符(只有几个),替换为下面的内容；Sub 添加密码()Dim x As IntegerFor ...
如何用宏给EXCEL文件加密码
给Excel工作簿加密码是对工作簿保护的最基本操作，简单易学易上手。
求2007 EXCEL 表格自动保护工作表 VBA 代码
右键点击工作表名：如下代码复制进去 Private Sub Worksheet_SelectionChange(ByVal Target As Range) ActiveSheet.Protect "123456" '密码123456End Sub
怎样用VBA宏输入EXCEL用户编辑区域密码?
"if wsh.appactivate("VBAProject 密码") then wscript.sleep 500: wsh.sendkeys "123@abc~"写在记事本里保存为123.vbs，放个快捷方式在桌面，快捷方式设置下：快捷键设置个F7之类不常用不容易冲突的，确定，重启电脑，打开有保护的excel文件，到输入密码的界面，按F7，自动输入密码，搞定。
excel的不能修改编辑)怎么解开?有工作表密码的。
1. 首先，打开Excel并按ALT+F11进入Visual Basic编辑器。2. 在【工程资源管理器】中，找到并双击【Microsoft Excel 对象】下的ThisWorkbook，然后在右侧的代码窗口中粘贴以下代码：vba Sub 强行复制()' 需要替换以下内容以匹配你的工作表 Dim a As String: a = "Sheet1" ' 替换为你要复制的工作表...
获取EXCEL工程密码,需要知道设置的vba工程密码。(不是删除密码打开工程...
首先新建EXCEL文件，在工作表标签处点右键，选择查看代码，复制以下代码，按F8执行，在弹出窗中选择要破解工程密码的EXCEL文件，按F5执行即可：Private Sub VBAPassword()'你要解保护的Excel文件路径 Filename = Application.GetOpenFilename("Excel文件（*.xls & *.xla & *.xlt）,*.xls;*.xla;*....
excel中怎样设置打开工作表的密码
开始--另存为--其他格式--工具--常规选项--设置密码。
如何对Excel内的宏设置密码
设置打开密码只有以下两句就好了 ActiveWorkbook.Password = "tt"ActiveWorkbook.WritePassword = "yy"对于保护密码设置可以参考如下内容。对Excel工作表实现口令保护利用VBA调用Worksheet对象的Protect方法对工作表进行保护。Protect带有以下参量：Password 用于保护工作表的口令。Drawingobjects 若为True，则对工作表...
