excel的vb代码有密码,电子表格vbs输入密码的代码
1. vbs输入密码的代码
Option Explicit Dim objShell, strProgram, strKeys Set objShell = CreateObject("Wscript.Shell") strKeys = "Hello world" '要发送的字符,请自己更改 strProgram = "c:\windows\system32\notepad.exe" '需要打开的程序,请自己指定 With objShell .Run strProgram WScript.Sleep 500 .SendKeys strKeys .SendKeys "~" End With Set objShell = Nothing
2. vb显示密码的代码怎么写
vb中设置文本框中显示数据的长度。1、可以直接在文本框属性窗口设置MaxLength的值2、在代码中设置：Private Sub Form_Load()Text1.MaxLength = 10 '设置最大允许显示10个字符End Sub
3. excel写vb代码
测试成功，原码：DimxlappAsExcel.Application'Excel对象DimxlbookAsExcel.Workbook'工作簿DimxlsheetAsExcel.Worksheet'工作表DimxlrangeAsExcel.rangePrivateSubCommand1_Click()Setxlapp=CreateObject("excel.application")'第一层Setxlbook=xlapp.Workbooks.Addxlapp.Visible=Truexlbook.sheets(1).range("a1")="新建成功"xlbook.SaveAsApp.Path&"/测试.xls"xlbook.CloseEndSub
4. 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。
5. vb中显示密码的代码
PrivateSubCommand1_Click()Label1=Text1EndSubPrivateSubForm_Load()Text1.PasswordChar="1"EndSub
6. excel vb 加密
如果CTRL+A用不了，那么就是单元格保护里面限制了选择。可以用VBA来强行选择复制：一、按ALT+F11 打开VB编辑器二、双击左边靠上的【工程资源管理器】中的【Microsoft Excel 对象】中的ThisWorkbook(如果找不到【工程资源管理器】请按CTRL+R)，在右边的代码窗口贴入下面的代码：（根据实际情况按代码说明修改a、b的值，中的内容）Sub 强行复制()'修改以下两行中的工作表名字Dim a As String: a = Sheet1 '修改成你需要复制的表名Dim b As String: b = Sheet2 '修改成粘贴的空白表名'以下不需要修改Sheets(a).Cells.CopySheets(b).Range(A1).SelectActiveSheet.PasteEnd Sub三、回到EXCEL表，运行菜单 【工具】－【宏】－【宏】，选择 强行复制 这条宏，然后按执行。四、假如有提示说宏的安全性被限制此类的信息，请在工具栏－【宏】－【安全性】里面把【安全级】设置为【中】。
7. vb打开带密码的excel
excel 2010进入VB编辑器的具体步骤如下：我们需要准备的材料分别是：电脑、Excel表格。
1、首先我们打开需要编辑的Excel表格，点击打开文件中的“选项”。
2、然后我们在弹出来的窗口中点击打勾自定义功能区中的“开发工具”。
3、然后我们点击打开开发工具中的“Visual Basic”即可。
8. 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.VBEmandBars(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.VBEmandBars(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
9. vb账号密码的代码怎么搞
刚刚写过了类似的代码 ，算了 再写下
Private Sub Command1_Click()
Static i As Integer '说明下，假设 用户名、密码 分别是 yutian8802和 123456
If i > 2 Then
MsgBox "您已登录三次了。。。程序将结束！"
End
Else
If Text1.Text = "yutian8802" Then
If Text2.Text = "123456" Then
MsgBox "登陆成功"
Else
MsgBox "密码错，请重新输入！"
End If
Else
MsgBox "用户名错，请重新输入！"
End If
i = i + 1
End If
End Sub
测试了 没问题了 你试试！有什么问题 一起探讨~
https://iknow-pic.cdn.bcebos/738b4710b912c8fc108d35abfc039245d688215e
10. vb账号密码程序
Private Sub Command1_Click()
If text3.Text = mYZ Then
xxx
Else
xxx
End If
End Sub
Private Function mYZ()
mYZ = xxx
End Function