excel用vBA密码登陆(excel vba密码)

1. excel vba密码

通过代码对excel代码进行加密即可：

1、打开您需要破解保护密码的Excel文件；

2、依次点击菜单栏上的工具---宏----录制新宏，输入宏名字如:aa；

3、停止录制(这样得到一个空宏)；

4、依次点击菜单栏上的工具---宏----宏,选aa,点编辑按钮；

5、删除窗口中的所有字符(只有几个),替换为下面的内容；Sub 添加密码()Dim x As IntegerFor x = 1 To Sheets.CountSheets(x).Protect "123"Next xhisWorkbook.Protect "123"

2. vba有密码怎么打开

本示例为设置密码窗口 (1)

If Application.InputBox("请输入密码：") = 1234 Then

[A1] = 1 '密码正确时执行

Else: MsgBox "密码错误，即将退出！" '此行与第2行共同设置密码

End If

本示例为设置密码窗口 (1)

X = MsgBox("是否真的要结帐？", vbYesNo)

If X = vbYes Then

Close

本示例为设置工作表密码

ActiveSheet.Protect Password:=641112 ' 保护工作表并设置密码

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

'本示例关闭除正在运行本示例的工作簿以外的其他所有工作簿，并保存其更改内容

。

For Each w In Workbooks

If w.Name ThisWorkbook.Name Then

w.Close SaveChanges:=True

End If

Next w

'每次打开工作簿时，本示例都最大化 Microsoft Excel 窗口。

Application.WindowState = xlMaximized

'本示例显示活动工作表的名称。

MsgBox "The name of the active sheet is " & ActiveSheet.Name

'本示例保存当前活动工作簿的副本。

ActiveWorkbook.SaveCopyAs "C:/TEMP/XXXX.XLS"

'下述过程激活工作簿中的第四张工作表。

Sheets(4).Activate

'下述过程激活工作簿中的第1张工作表。

Worksheets(1).Activate

'本示例通过将 Saved 属性设为 True 来关闭包含本段代码的工作簿，并放弃对该

工作簿的任何更改。

ThisWorkbook.Saved = True

ThisWorkbook.Close

'本示例对自动重新计算功能进行设置，使 Microsoft Excel 不对第一张工作表自

动进行重新计算。

Worksheets(1).EnableCalculation = False

'下述过程打开 C 盘上名为 MyFolder 的文件夹中的 MyBook.xls 工作簿。

Workbooks.Open ("C:/MyFolder/MyBook.xls")

3. excel vba密码咋破

在VBA编辑器的"工具”菜单里点“VBAProject属性"，在“保护”页中把“查看时缩定工程”的勾选上，然后输入密码后确定即可。这样下次打开查看代码时就需要输入密码了。但这种加密方式的破解，早就有专用工具了，可以在网络上查找试试。比较好的方法是，把做好含有VBA代码的Excel编译成exe文件，这种工具也可以在网上找到，自己找一下吧。

4. vba设置密码登录

1、先对excel档进行一般的vbaproject”工程密码保护"。

2、打开要保护的档，选择∶工具--->保护--->保护并共用活页簿--->以追踪修订方式共用-->输入密码-->保存档。

完成后，当你打开“vbaproject”工程属性时，就将会提示∶“工程不可看"

5. excel vba密码忘记

Excel中VBA设置密码的步骤如下：

1.右键点击任何工作表，选择VBAProject属性；

2.在新对话框总，选择“保护”选项卡：

3.勾选查看时锁定，输入密码即可。

6. vba登录界面账号密码

按alt+f11后在对应的表格文件上，右键选择：VBAProject 属性再选：保护勾选：查看时锁定工程输入密码后确认即可

7. VBA密码

将文本框Textbox的password属性高为" * "，在输入密码时就显示******

8. vba打开带密码的excel文件

方法如下：

1.首先我们打开一个工作样表作为例子。

2.我们使用alt+f11组合快捷键进入vbe编辑器，插入一个新的模块，并在模块中输入以下代码：

Sub UsePassword()

Dim wb As Workbook

Set wb = Application.ActiveWorkbook

wb.Password = InputBox("请输入密码:")

wb.Close

End Sub

3.我们首先声明wb为工作薄对象，并将其赋值为对象应用程序为活动工作薄。这里其实是为了简写所以声明一个变量，可以直接使用对象的password方法进行设置。

4.也就是说Application.ActiveWorkbook.password 与wb.password是等价的。我们使用inputbox来输入密码，并运行下一步保存。

5.这里运行代码会弹出输入框，输入的密码是明文显示，我们点击确定后，Excel工作薄关闭。

6.重新打开该工作薄，弹出输入密码对话框，我们需要输入正确的密码才能打开工作薄进行工作。

7.如果需要解除密码，我们在文件-信息中找到保护工作薄选项，然后点击密码保护去掉其中的密码即可解密。

拓展资料

Microsoft Excel是Microsoft为使用Windows和Apple Macintosh操作系统的电脑编写的一款电子表格软件。直观的界面、出色的计算功能和图表工具，再加上成功的市场营销，使Excel成为最流行的个人计算机数据处理软件。

在1993年，作为Microsoft Office的组件发布了5.0版之后，Excel就开始成为所适用操作平台上的电子制表软件的霸主。

Microsoft Office是一套由微软公司开发的办公软件套装，它可以在Microsoft Windows、Windows Phone、Mac系列、iOS和Android等系统上运行。

与其他办公室应用程序一样，它包括联合的服务器和基于互联网的服务。从2007版的Office被称为“Office System”而不叫“Office Suite”，反映出它们包括服务器的事实。

Office最初是一个推广名称，出现于1990年代早期，指一些以前曾单独发售的软件的合集。当时主要的推广重点是：购买合集比单独购买要省很多钱。最初的Office版本包含Word、Excel和PowerPoint。

9. excel对vba设置密码

当然会出错：

因为你加密了VBA工程，而加密的VBA工程的里的代码就会被保护。

也就是说VBA工程加密后，不可以增加删除代码，不可以增加删除窗体，不可以增加删除模块和类模块。而你的代码中：

Set usForm =ThisWorkbook.VBProject.VBComponents.Add(vbext_ct_MSForm)这个是增加一个窗体，这对受保护的工程来说是不被允许的。除了你这个，还有例如ThisWorkbook.VBProject.VBComponents.Remove XXXXX（删除代码）

ThisWorkbook.VBProject.VBComponents.Add(vbext_ct_StdModule).Name = "模块1"(增加模块）

等等都是不可以的。

如果你即要加密VBA工程，又想让程序在运行过程中去新增窗体，建议可以考虑一下sendkey方法，在程序开始运行时执行sendkey解锁工程密码。你可以试试代码：（在我电脑上测试了是可以输入或增加工程密码的）

你可以在你增加窗体的那句代码前先执行inputpw()解锁工程密码。

Sub inputpw() '输入密码解锁 Dim pw$ pw = "password" If ThisWorkbook.VBProject.Protection = vbext_pp_locked Then '判断工程是否解锁 '打开VBAProject工程属性 Application.VBE.CommandBars(1).Controls("工具(T)").Controls("VBAProject 属性(&E)...").Execute Application.SendKeys pw '输入密码 Application.SendKeys "{ENTER}" 'enter解锁 End If End If End Sub Sub addpw() '加工程密码 Dim pw$ pw = "password" If ThisWorkbook.VBProject.Protection = vbext_pp_none Then '判断是否加密码工程 '打开VBAProject工程属性 Application.VBE.CommandBars(1).Controls("工具(T)").Controls("VBAProject 属性(&E)...").Execute Application.SendKeys "^+{TAB}" 'ctrl+tab移动到保护 Application.SendKeys "{TAB}" 'tab移动到第一次输密码位置 Application.SendKeys pw '输入密码 Application.SendKeys "{TAB}" 'tab移动到第二次输密码位置 Application.SendKeys pw '输入密码 Application.SendKeys "{ENTER}" 'enter加锁 DoEvents End If End Sub

10. vba 输入账号密码登录网页

可以使用以下代码在EXCEL上使用VBA连接MYSQL数据库 ：

Dim strconnt As String strconnt = "" Set connt = New ADODB.Connection Dim sevip, Db, user, pwd As String '设服务器地址、所连数据，及登录用户密码 sevip = "localhost" Db = “test" user = "root" pwd = "123456" strconnt = "DRIVER={MySql ODBC 5.3 Unicode Driver};SERVER=" & sevip & ";Database=" & Db & ";Uid=" & user & ";Pwd=" & pwd & ";Stmt=set names GBK" connt.ConnectionString = strconnt connt.Open