vba学习-工作表加密-笔记

《vba学习-工作表加密-笔记》由会员上传分享，免费在线阅读，更多相关内容在工程资料-天天文库。

1、VBA设置丁作表使用权限（SHEET加密）1、采用SHEET保护命令（操作者不能对文档进行准许以外的操作，但是可以看到文档内容）：•创建保护命令：右键点击工作表名称（只对此工作表进行保护操作）一在弹出的菜单中选择“保护工作表”（如图1）一可以设置取消保护的密码；被保护时准许的操作（可以多项选择）（如图2）-＞添加sheet保护命令完成插入（D・・・:戦删除（Q）重命名®移动或复制®!）・・・迅代码（V）i酸屎户工作表（£）・・・I工作表标细色①►隐藏（H）—取消隐藏9）…作表⑸圍融工作表及眈的单元格内容©弼肖工作表保护时使用的密码（E）：

2、允许此工作表的所有用户进行9）：IB走单元梧0选走未锁定的单元梧體单元梧格式iSB列格式iS§行格式插入列插入行插入超強□删除列删除行▼确走取消•删除保护命令：右键点击工作表名称（只对此工作表进行保护操作）"在弹出的菜单中选择“撤销工作表保护”（如图3）-在弹出的对话框中填入密码点击确认即可（如图4）插入①・・・醱删陰9）重命名®移动或复制（M）・・・迢童看代码00甌撕肖工作户®・・

3、▲工作表标豪色（D►T隐藏（H）I取;肖隐馳）・・・id匕1'onetrtd.11图3繭肖工作表保护1»:鬥11确走1耶肖-图42、用VBA创建保护命令（是

4、使用者无法査看保护文档的内容，但可以操作具他非保护文档）:创建步骤：打开VBA编辑器一打开“工程资源管理器"一双击耍创建保护命令的工作农一#击（通用）的下拉标,选择“worksheet”（如图5）-单击（声明）的下拉标，选择“activate”（如图6）—下方会出现worksheet_activate的程序（如图7）在程序中添加语句（如图8）图5Worksheet▼SelectionChange■0PrivateSubWorksheet^SelectionChange(ByValTargetEndSubI(ActivateVtrBetor

5、eUeieteBeforeDoubleClickBeforeRightClickCalculate图6PrivateSubWorksheet^ActivateQEndSubEndSubPrivateSubWorksheet^ActivateQIrApplication.InputBox("password:")=123ThenRange("Al").SelectSheets("sheetl").Cell5.Font.ColorIndex=56ElseMsgBoxMpasswords,wrong!11Sheets("sheetl").Se

6、lectEndIfPrivateSubWorksheet_DeactivateQSheetsf^sheetl^.Cells.Font.Colorlndex=2EndSub图8注：Sheets("sheetl").Cells.FontColorlndex=2Worksheet.DeactivateQ;(通用)选为“worksheet",(声明)选为“deactivate”；:sheet1为被保护表格名称（可根据实际情况更改）;此语何意为，在工作表不被激活的情况时，所有文字为仃色Sheets(wsheetl").Cells.Font.Colo

7、rIndex二56:此语句意为，在工作表被激活时，所有文字为深灰色"lTApplic^tionInpLJtBox(password:J二123ThenRange("Al").SelectSheets("sheetl").Cells.FontColorindex=56ElseMsgBoxRpasswords,wrong!"Sheets("sheetl").Select一^.，当输入密码为123时,可以査看此工作表,EndIf输入密信错误时提示退岀程序。