myPW = "123456" '设置密码
p = InputBox("请输入运行密码", "温馨提示！", Default)
If myPW = p Then
MsgBox "OK" '删除此句，插入原代码
Else
MsgBox "密码错误，请重新输入！", , "温馨提示！"
End If
End Sub
a = Application.InputBox("请输入密码", , , , , , , 2)
If a <> 正确密码 Then
Exit Sub
Else
执行的代码体
End Sub
EXCEL VBA怎样在点击按钮后,弹出一个输入密码的对话框,密码正确的话执...
Sub test()myPW = "123456" '设置密码p = InputBox("请输入运行密码", "温馨提示！", Default)If myPW = p Then MsgBox "OK" '删除此句，插入原代码Else MsgBox "密码错误，请重新输入！", , "温馨提示！"End IfEnd Sub ...
谁能用法VB编辑器设置excel的密码,打开弹出输入密码窗体的那种...
1.打开需要加密码的文件；2.按F12(也就是另存为)，在另存为对话框在菜单“工具”中点“常规选项”，即可看到两个密码设置，以及备份、建立只读等设置；3.根据需要，设置打开权限密码或修改权限密码(可以打开看，只是修改后保存时要求密码)，即可。还有其他方法，比如打开文件后，直接在菜单“工具”->...
如何用VBA实现每次点击EXCEL工作簿里面Sheet1、Sheet2工作表,就提示需 ...
在工作表模块下定义事件如下：Private Sub Worksheet_Activate()If InputBox("please input password here:") = "password" Then Me.Unprotect "password"Me.Cells.EntireColumn.Hidden = False End If End Sub Private Sub Worksheet_Deactivate() '离开时隐藏所有列并保护工作表 On Error Resume Ne...
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为...
Excel中用VBA写一个判断并弹出对话框
1、首先我们打开一个excel，这里建议使用office excel，因为wps的excel开发工具中的VBA是灰色的，还需要下载相关的插件，如下图所示：2、接着我们在最上边的菜单栏中找到开发工具，然后找到Visual Basic，我们点击一下，就会出现一个新的页面，如下图所示：3、当然出现新页面也有一个快捷键就是alt+f11，...
Excel中使用vba制作密码验证的操作方法
首先我们打开一个工作样表作为例子。进入vba代码编辑器，按下alt+f11组合快捷键进入。然后输入以下代码。Sub login()Dim strPassword As String '保存密码 Dim i As Integer '输入密码的次数 Do strPassword = InputBox("请输入密码") '输入密码 If strPassword = "test" Then '判断密码是否正确 E...
VBA实现点击按钮后在弹出的对话框输入行号,并将该行删除。
我做了一个密码如果输入的是123后，就继续往下执行，然后输入行，即可删除所输入的行。如果密码三次输入都不是123，那么就退出。将下面这几串代码复制到sheet1中 Private Sub CommandButton1_Click()1:n = n + 1 If n > 3 Then Exit Sub Else mima = InputBox("请输入密码")If mima <> ...
怎么在EXCEL中点击某一个按钮弹出可录入信息的窗口,并将录入信息保存到...
你说的是下拉列表，菜单:数据-有效性在弹出的对话框中选择"设置"选项卡有效性条件的"允许"中选序列下面的来源框中,输入要创建的下拉列表内容,注意每条目间用逗号隔开(下拉列表的来源,还可以选定事先输入好的下拉内容的单元格区域)
在excel中如何使用VBA插入一个按钮,使其点击按钮实现在表格中单元格输入...
永远都是弄到 查询表的 E1?Sub AA()[AA1] = [AA1] + 1 MsgBox "第：" & [AA1] & "次"Sheets("查询").[E1] = Cells([D1], "a")End Sub
怎样在excel里用vba之类的实现点击一个按钮后一行数据自动复制粘贴到...
假设你数据在A2到F2里输入。任意插入一图形，右键点该图形，指定宏，新建。在出来的窗口中再Sub和End Sub之间 粘贴如下代码：Dim i, j As Integer i = --Range("A2")For j = 1 To 6 Cells(i, j) = Cells(2, j)Next j 回到Excel，就有了你要的。
