excel宏有密码(excel取消宏密码)

1. excel取消宏密码

方法一:点击工具、宏、安全性降为低。如不行只有清除密码保护，如方法二 方法二:1、打开需要执行宏的Excel文件 2、点插入、新表单 3、右击新插入的表单（在下面）选查看代码 4、粘贴以下代码 SubMoveProtect() DimFileNameAsString FileName=Application.GetOpenFilename("Excel文件（*.xls&*.xla）,*.xls;*.xla",,"VBA破解") IfFileName=CStr(False)Then ExitSub Else VBAPasswordFileName,False EndIf EndSub 5、点运行即可解除密码

2. excel宏怎么加密

一般情况下，我们使用Excel制作好表格之后，为了保险起见，会选择将该文件进行加密，那么Excel文件怎么加密呢？

首先打开需要加密的Excel，点击“文件”，选择“信息”。点击“保护工作簿”，点击“用密码进行加密”。输入密码，点击“确定”，再次输入密码，点击“确定”。再次进入这个文档，就需要输入密码了。

3. excel宏密码设置方法

1、打开你需要设置密码的EXCEL表格。　　

　　2、打开菜单中的“ 工具 ”，在下拉菜单中单击“ 选项 ”。　　

　　3、打开“ 选项 ”对话框，单击里面的“ 安全性 ”那一项。　　

　　4、在“ 打开权限密码 ”后面方框里输入设置的密码。　　

　　5、单击确定，会出现一个小的“ 确定密码 ”的对话框，在方框里重新输入刚才设置的密码，单击确定。　　

　　6、这样密码就设置完成了。当你再打开这个文件时，会提示你需要输入密码才可以打开。　　

4. excel宏密码

从VBA编辑窗口工具栏的：工具→VBAProject属性→保护→锁定工程（点中查看时锁定工程）→查看工程属性密码→密码（在此框中输入密码）→确认密码（在此框中再次输入密码）→确定→保存退出，下次打开的时候就要输入正确的密码，才能看到代码

5. excel 宏 设置密码

1、首先我们打开想要加密的EXCEL文件，点击工具栏上面的工具按钮。

　　2、在工具按钮的下拉菜单中选点击选项按钮。弹出选项菜单框。

　　在选项菜单框里面，我们找到安全性选项卡

　　3、在安全性选项卡里面，我们看到有一个打开权限密码，在打开权限密码后面的那个框里输入你想设置的密码点击确定。

　　4、点击确定后，系统会让再次输入刚才的密码确认一下。我们在输一次刚才的密码点击确定。

　　5、加密完成，我们看看效果。需要输入密码才可以进入这个文件，是不是很有用?

6. 如何解除excel宏代码密码

照理是不会发生这种情况的，但是既然发生了，你看一下，首先，将密码全部取消，看看正常否？ 提示宏已经禁用. 要看一下：工具—宏—安全性—（将宏的安全性设置为）【中】，应该你的宏就能打开了。

7. excel宏怎么取消

在excelvba程序开始时设置刷新关闭，可以提高运行速度。通常做法是在开始时设置关闭的语句，即：

application.screenupdating=false

在程序的最后再将屏幕刷新打开，即：

application.screenupdating=true

8. excel 密码 取消

如何取消Excel表格的密码，接下来具体操作步骤如下：

1、打开桌面上保存下来的excel表格，先前设置过密码的文档，输入密码即可；

2、点击“文件”，点击在左边一列中的“文档加密”会有一个右拉菜单，再点击“密码加密”；

3、之后会跳出“密码加密”的窗口，在“打开文件密码”，“再次输入密码”和“密码提示”的输入框中把密码都删除了之后，在按“应用”，等再次打开excel表格就不需要输入密码了

9. 如何取消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．点运行即可。

10. excel给宏加密码

有以下两种方法可以隐藏:

一、按atl+f11组合键，进入宏编辑窗口，找到工具，vbaproject属性，保护选项卡，设置密码。这样别人就看不到你编写的宏代码。宏名你可以自己随意修改。

二、1.点击顶部“开发工具”菜单下的录制新宏图标。

    2.将宏名称设为隐藏数据列，点击确定按钮。

     3.右键点击列选择隐藏数据列。

     4.点击“查看代码”按钮查看录制好的vba宏代码。

11. 怎么去取消宏密码

1、首先点击宏锁定的文件，此时文件呈现半透明状态，选择EXCEL选项。

2、在弹出的对话框内选择信任中心。

3、点击信任中心设置，进入下一个对话框。

4、点击宏设置，而后选择启用所有宏。

5、点击个人信心，在保存时删除个人隐私那里不要勾选，至此全部设置完成，即解除了宏命令设置的密码。

6、就可以重新打开文件。

顶一下

(0)

0%

踩一下

(0)

0%