excel中使用vba来设置密码
方法如下：
1.首先我们打开一个工作样表作为例子。
2.我们使用alt+f11组合快捷键进入vbe编辑器，插入一个新的模块，并在模块中输入以下代码：
SubUsePassword()
DimwbAsWorkbook
Setwb=Application.ActiveWorkbook
wb.Password=InputBox("请输入密码:")
wb.Close
EndSub
3.我们首先声明wb为工作薄对象，并将其赋值为对象应用程序为活动工作薄。这里其实是为了简写所以声明一个变量，可以直接使用对象的password方法进行设置。
4.也就是说Application.ActiveWorkbook.password与wb.password是等价的。我们使用inputbox来输入密码，并运行下一步保存。
5.这里运行代码会弹出输入框，输入的密码是明文显示，我们点击确定后，Excel工作薄关闭。
6.重新打开该工作薄，弹出输入密码对话框，我们需要输入正确的密码才能打开工作薄进行工作。
7.如果需要解除密码，我们在文件-信息中找到保护工作薄选项，然后点击密码保护去掉其中的密码即可解密。
拓展资料
MicrosoftExcel是Microsoft为使用Windows和AppleMacintosh操作系统的电脑编写的一款电子表格软件。直观的界面、出色的计算功能和图表工具，再加上成功的市场营销，使Excel成为最流行的个人计算机数据处理软件。
在1993年，作为MicrosoftOffice的组件发布了5.0版之后，Excel就开始成为所适用操作平台上的电子制表软件的霸主。
MicrosoftOffice是一套由微软公司开发的办公软件套装，它可以在MicrosoftWindows、WindowsPhone、Mac系列、iOS和Android等系统上运行。
与其他办公室应用程序一样，它包括联合的服务器和基于互联网的服务。从2007版的Office被称为“OfficeSystem”而不叫“OfficeSuite”，反映出它们包括服务器的事实。
Office最初是一个推广名称，出现于1990年代早期，指一些以前曾单独发售的软件的合集。当时主要的推广重点是：购买合集比单独购买要省很多钱。最初的Office版本包含Word、Excel和PowerPoint。
excel中input的用法
1、打开一个Excel的文件，在表格中输入简单的表格，比如衣服输入数据的表格。
2、接着，鼠标左键单击【开发工具】菜单标签，在VBA控件下拉菜单中，并选择表单按钮控件。
3、然后，在表格中绘制出按钮控件，并修改按钮控件名称，比如输入名称，并鼠标左键单击【查看代码】按钮。
4、接着，在弹出的在代码窗口中输入定义字符串变量的语句。
5、然后，在代码窗口中的，输入InputBox函数和赋值语句。
6、最后，在设计窗口上，鼠标左键单击按钮，可以看到表格中的，弹出输入窗口，可以输入数据了。通过这样的操作，就学会用VBA的InputBox函数了。
VB中，给数组赋值a（i）=inputbox（"请输入数值"）说缺少as，该怎么写呢
a（i）=inputbox（"请输入数值"）
括号不能使用中文括号，必须是英文的括号，如果你的a(i)是字符型数据就没有问题。
a(i)=inputbox("请输入数值")
excel如何用vba实现随意选取两个单元格然后点击按钮求和
我能做到在代码运行过程中分别选去两个单元格，自动返回和值，代码如下：Sub求和()Dimn1,n2,t$101:n1=Application.InputBox("请选择第一个单元格",t,Type:=8)IfIsNumeric(n1)=FalseThent="你选择的单元格的值为非数字！请重新选择"GoTo101Elset=""EndIf102:n2=Application.InputBox("请选择第二个单元格",t,Type:=8)IfIsNumeric(n2)=FalseThent="你选择的单元格的值为非数字！请重新选择"GoTo102Elset=""EndIfMsgBox"两单元格的和为:"&n1+n2EndSub'注意：
1、你可以自行设置一个快捷键，如ctrl+n；
2、最好确认一下你所选单元格的格式为“数值”格式
Excel密码输入框如何显示*号
Excel2007的VBA环境，想用InputBox让用户输入密码，可是如何让输入的密码显示为*呢？
用窗体吧，inputbox很麻烦的。
登陆窗体中用来输入密码的文本框，在属性栏中，将PasswordChar属性值设置为“*”
vba设置数字变量位数
假设变量我a,a=3.1415926a保留1为小数的代码为:Application.WorksheetFunction.Round(a,1)或者Round(a,1)即可设置位数的话,可以再定义一个变量i,i可以输入:代码为:i=Val(Trim(Application.InputBox("请输入小数位数","提示")))debug.printRound(b,i)即可
