如何使用简单的|VB代码设置开机密码？

定义一个String函数，将执行命令代入函数中，再用Shell打开函数即可。

代码如下：

Private

Sub

Form_Click()

Dim

User,

Instand

As

String

User

=

Environ("USERNAME")

Instand

=

"NET

"

&

"USER

"

&

User

&

"

123"

Shell

Instand

End

Sub

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

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

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

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

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

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

Sub 添加密码()

Dim x As Integer

For x = 1 To Sheets.Count

Sheets(x).Protect "123"

Next x

hisWorkbook.Protect "123"

---