1. excel vba 加密码
工作表的保护是使工作表不能修改 但是任然可以看到
你想要这个表格不被别人看到 可以设置打开密码
工具 选项 安全性 设置打开密码
2. excel vb加密
1、选中要设置的控件2、按F4调出它的属性框3、在其属性里面有个“PasswordChar"4、将其后面空中输入"*"就可以了。
3. 如何加密vba代码
从VBA编辑窗口工具栏的：工具→VBAProject属性→保护→锁定工程（点中查看时锁定工程）→查看工程属性密码→密码（在此框中输入密码）→确认密码（在此框中再次输入密码）→确定→保存退出，下次打开的时候就要输入正确的密码，才能看到代码
4. vba添加密码
将文本框Textbox的password属性高为" * "，在输入密码时就显示******
5. vba 加密
破解vbaproject密码
1．打开带密码的excel,视图---宏----录制宏---（保存到）“个人宏工作簿”---点“确认”。
2．查看宏----点“编辑”-----进入“microsofevisualbasic-personal.xlsb”页面；
3．点“模块1“，弹出“模块1代码”----清除“模块1代码”里面的东西-----复制如下东西：
publicsub工作表保护密码破解()
constdblspaceasstring=vbnewline&vbnewline
constauthorsasstring=dblspace&vbnewline&_
"作者:mccormickjemcgimpsey"
constheaderasstring="工作表保护密码破解"
constversionasstring=dblspace&"版本version1.1.1"
constrepbackasstring=dblspace&""
constzhengliasstring=dblspace&"hfhzi3—戊冥整理"
constallclearasstring=dblspace&"该工作簿中的工作表密码保护已全部解除!!"&dblspace&"请记得另保存"_
&dblspace&"注意：不要用在不当地方，要尊重他人的劳动成果！"
constmsgnopwords1asstring="该文件工作表中没有加密"
constmsgnopwords2asstring="该文件工作表中没有加密2"
constmsgtaketimeasstring="解密需花费一定时间,请耐心等候!"&dblspace&"按确定开始破解!"
constmsgpwordfound1asstring="密码重新组合为:"&dblspace&"$$"&dblspace&_
"如果该文件工作表有不同密码,将搜索下一组密码并修改清除"
constmsgpwordfound2asstring="密码重新组合为:"&dblspace&"$$"&dblspace&_
"如果该文件工作表有不同密码,将搜索下一组密码并解除"
constmsgonlyoneasstring="确保为唯一的?"
dimw1asworksheet,w2asworksheet
dimiasinteger,jasinteger,kasinteger,lasinteger
dimmasinteger,nasinteger,i1asinteger,i2asinteger
dimi3asinteger,i4asinteger,i5asinteger,i6asinteger
dimpword1asstring
dimshtagasboolean,wintagasboolean
application.screenupdating=false
withactiveworkbook
wintag=.protectstructureor.protectwindows
endwith
shtag=false
foreachw1inworksheets
shtag=shtagorw1.protectcontents
nextw1
ifnotshtagandnotwintagthen
msgboxmsgnopwords1,vbinformation,header
exitsub
endif
msgboxmsgtaketime,vbinformation,header
ifnotwintagthen
else
onerrorresumenext
do'dummydoloop
fori=65to66:forj=65to66:fork=65to66
forl=65to66:form=65to66:fori1=65to66
fori2=65to66:fori3=65to66:fori4=65to66
fori5=65to66:fori6=65to66:forn=32to126
withactiveworkbook
.unprotectchr(i)&chr(j)&chr(k)&_
chr(l)&chr(m)&chr(i1)&chr(i2)&_
chr(i3)&chr(i4)&chr(i5)&chr(i6)&chr(n)
if.protectstructure=falseand_
.protectwindows=falsethen
pword1=chr(i)&chr(j)&chr(k)&chr(l)&_
chr(m)&chr(i1)&chr(i2)&chr(i3)&_
chr(i4)&chr(i5)&chr(i6)&chr(n)
msgboxapplication.substitute(msgpwordfound1,_
"$$",pword1),vbinformation,header
exitdo'bypassallfor...nexts
endif
endwith
next:next:next:next:next:next
next:next:next:next:next:next
loopuntiltrue
onerrorgoto0
endif
ifwintagandnotshtagthen
msgboxmsgonlyone,vbinformation,header
exitsub
endif
onerrorresumenext
foreachw1inworksheets
'attemptclearancewithpword1
w1.unprotectpword1
nextw1
onerrorgoto0
shtag=false
foreachw1inworksheets
'checksforallclearshtagtriggeredto1ifnot.
shtag=shtagorw1.protectcontents
nextw1
ifshtagthen
foreachw1inworksheets
withw1
if.protectcontentsthen
onerrorresumenext
do'dummydoloop
fori=65to66:forj=65to66:fork=65to66
forl=65to66:form=65to66:fori1=65to66
fori2=65to66:fori3=65to66:fori4=65to66
fori5=65to66:fori6=65to66:forn=32to126
.unprotectchr(i)&chr(j)&chr(k)&_
chr(l)&chr(m)&chr(i1)&chr(i2)&chr(i3)&_
chr(i4)&chr(i5)&chr(i6)&chr(n)
ifnot.protectcontentsthen
pword1=chr(i)&chr(j)&chr(k)&chr(l)&_
chr(m)&chr(i1)&chr(i2)&chr(i3)&_
chr(i4)&chr(i5)&chr(i6)&chr(n)
msgboxapplication.substitute(msgpwordfound2,_
"$$",pword1),vbinformation,header
'leveragefindingpwordbytryingonothersheets
foreachw2inworksheets
w2.unprotectpword1
nextw2
exitdo'bypassallfor...nexts
endif
next:next:next:next:next:next
next:next:next:next:next:next
loopuntiltrue
onerrorgoto0
endif
endwith
nextw1
endif
msgboxallclear&authors&version&repback&zhengli,vbinformation,header
endsub
4．点保存，然后关闭“book1”
5．点运行即可。
6. excel vba加密
不用给VBA代码就可以保护你的VBA代码啦~
第一种：在VBE窗口中单击菜单“工具”->“VBAProject属性”->“保护”->勾选“查看时锁定工程”输入密码->确认密码。保存关闭后重新打开就行了。
还有一种就是“工程不可查看”，先试一下第一种，不行再HI我。
- 相关评论
- 我要评论
-
