导航:首页 > 电脑设置 > vba设置电脑用户密码

vba设置电脑用户密码

发布时间:2023-05-16 09:16:05

① Excel 怎么给VBA编辑器加设密码和取消密码

你好,最标准的方羡消法就是直接输入密码,然后解密,保存。
如果有宏代码的话:
1、录制宏吵卖,随便点下鼠标,然后停止。
2、打开
宏编辑器
,将你的VBA代码完全覆盖编辑器里刚录制的那些代码。
3、兄碰知打开需要去除保护的excel,按ALT+F8运行宏。大概10多秒吧,就好了。

如何用VBA打开网页并输入用户名和密码

1、首先打开电脑上的excel表格知族,然后告陪按alt+f11打开VBA界袜猛蠢面。

③ Excel 怎么给VBA编辑器加设密码和取消密码

你好,最标准的方法就是直接输入密码,然后解密,保羡消存。
如果有宏代码的话:
1、录制吵卖宏,随便点下鼠标,然后停止。
2、打开宏编辑器,将你的VBA代码完全覆盖编辑器里刚录制的那些代兄碰知码。
3、打开需要去除保护的excel,按ALT+F8运行宏。大概10多秒吧,就好了。

④ 用VBA如何实现用户登录,输入用户名和正确的密码才可以打开,请问程序该如何去写啊,跪求大家的帮助

1.VBA工程插入“模块”,添加 auto_open过程;
2.过程中加入代码,隐岩陵藏工作表。
3.弹出密码验证userform。
4.验证密码的准确性,执行打开或关闭。

具体代码如下:
Userform代码
Private Sub CommandButton1_Click() '验证密码粗嫌戚是不死1111
If TextBox1.Text = "1111" Then
Unload Me
Sheet1.Cells(1, 1).Select
End If
End Sub

Private Sub UserForm_QueryClose(Cancel As Integer, closeMode As Integer) ’关闭窗口自动关闭文件(不保存者含)
If closeMode = 0 Then
ThisWorkbook.Saved = True
ThisWorkbook.Close
End If
End Sub

模块1代码:
Private Sub auto_open()
Sheet1.Cells(65536, 1).Select ‘定位最下一行,起到隐藏表格内容的效果,当然方法有很多种,这个比较简单
UserForm1.Show
End Sub

⑤ 如何用VBA打开网页并输入用户名和密码

1、首先打开电脑上的excel表格,然后按alt+f11打开VBA界面。

⑥ excel VBA 密码设置问题

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

1.右键点击任何工作表,选择VBAProject属余圆歼竖性;

⑦ EXCE如何用VBA代码加入启动时对所有工作表加密,并设指定密码

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

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

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

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

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

5、删除窗口中的所有字符(只有几个),替换野贺为下面的内容;

Sub添加密码()
Dim历脊信xAsInteger
Forx=1ToSheets.Count
Sheets(x).Protect"123"
Nextx
hisWorkbook.Protect"肢轮123"

⑧ 在哪里设置VBA编码的保护密码

操作步骤如下:

1.右键点击芦带有VBA代码的工作表,选择VBProject工程属性

⑨ 用VBA设置多个用户名和密码

不过用excel做的登录界面很容易就会被破解的,给不太懂的人用用还可以,呵呵.
就当作玩玩和学习吧.
有邮箱吗,我发一个给你
主要思路是:在open事件里面,把所有工作游乱孝表都深度隐藏,用户输入用户名神稿和密码后,就把与该用户相关的工作表取消隐藏,并保护工作薄,那么该陪碰用户没有密码就不能取消其它的工作表隐藏,就只能看到与自己相关的几个工作表了:
PrivateSubWorkbook_Open()

Windows(Windows.Count).Visible=True'是否起用宏,不启用宏就退出工作薄

OnErrorResumeNext

Application.ScreenUpdating=False

'ActiveWindow.WindowState=xlMinimized'最少化login窗口

CallUnProWB

ThisWorkbook.Worksheets("Login").CommandButton1.Visible=False

Worksheets("Login").Visible=True

ForEachshtInWorksheets

Ifsht.Name<>"Login"Thensht.Visible=False

Next

Application.ScreenUpdating=True

UserForm1.Show

CallProWB

EndSub

PrivateSubWorkbook_BeforeClose(CancelAsBoolean)

Windows(Windows.Count).Visible=False

EndSub

⑩ 请问在excel中怎么用vba设置开启密码

不怎么理解裤备你的意思啊,不过还是给出下面代码,供参考:
Private Sub Workbook_Open()
Application.Visible = False
a = InputBox("请输入密码:")
If a <> "abc" Then
ThisWorkbook.Close
Else
Application.Visible = True
End If
End Sub
‘===============================
’Application.Visible = False打开的时候隐藏excel表格
‘a = InputBox("请输入密码:")弹出输入密码框
’abc为设置的密码,可以改成你想要的
‘Application.Visible = True如果密码正确,恢复excel显示
’ThisWorkbook.Close如果密码不对,直接关闭该excel

另外你说的关闭宏,应该说的是删除宏,你可以按 alt+f11,调出vba编辑器,选工具——vbaproject属芦运性——保护,输入密码防止宏被删就行胡哗毁。

阅读全文

与vba设置电脑用户密码相关的资料

热点内容
打印机usb连接到电脑无法识别 浏览:70
手机免费看电脑软件 浏览:97
电脑内存31470mb什么意思 浏览:145
电脑怎样调整文件类型 浏览:670
震雄电脑温度设置取消键哪个 浏览:276
能恢复手机数据的软件 浏览:605
中档平板电脑 浏览:538
联想电脑开机风扇狂转 浏览:961
峡谷之巅电脑配置是不是要高一些 浏览:44
电脑怎么样黑屏还保持工作状态 浏览:690
手机装修设计软件 浏览:699
电脑黑屏如何备份资料 浏览:362
军用电脑有哪些功能 浏览:693
索尼电脑找不到wifi 浏览:762
店员卖电脑利润提成多少 浏览:152
电脑开机很慢启动软件很慢 浏览:527
电脑为何安装不了软件 浏览:462
戴尔翻转笔记本电脑 浏览:846
怎么把电脑设置为蓝 浏览:881
win10怎么把此电脑拖到桌面上 浏览:489