发布时间 : 星期五 文章excel工作表制作实例《教学仪器流水帐》 分享电子表格经验技巧（有图有真像）更新完毕开始阅读9ff3ad5ed15abe23482f4dfc
眉”——点击“右”位置——点击第2个按钮插入“页码”——“右”位置&[页码]后面按需添加字符（如：A）——点击第1个按钮设置字体颜色为打印纸张底色（如白色）——确定——回到“页面设置”主窗口——点击“页边距”选项卡——设置合适的“页眉”边距——确定。 进入“打印预览”查看效果后进行适当调整，使页码正好位于你想要放置的位置。页眉的边距与工作表页面的上边距不冲突，可按需设置。
十一、设置保护工作表
上面已介绍，不在累罪。好了，在输入数据时，如果有人想对红色的锁定区域进行修改编辑的话，马上就会弹出一个对话框，提示“只有撤销了工作表保护才能修改”。哈，我的地盘，听我的，如果想发挥，到你的自留地（非锁定区域）去吧！
十二、工作表密码破解
工作表设置保护密码后，是不是会后怕万一密码忘记了造成丢失重要EXCEL文件，这份代码就能帮你找回，仅仅出之这个初衷，如因为这个代码让你感到不安全，那请加强电脑文件的密保，如用在不当的地方，后果自负！
小技巧分享：excel工作表忘记了保护密码，能否不用破解软件快速的破解密码？ 可以，破解步骤：
1、新建一个EXCEL文件“工作簿1.xlsx”：视图——宏——录制宏——打开“录制新宏”对话框——“保存在”下拉菜单点选“个人宏工作簿”——确定，如下图。
29
2、视图——宏——停止录制
3、视图——取消隐藏——宏——查看宏
4、打开“宏”对话框——“宏名”点选“PERSONAL.XLSB！宏1”——编辑
30
5、点击“编辑”按钮后，弹出如下图的编辑界面：
找到“VBAProject（PERSONAL.XLSB）－模块－模块1（也可能是模块N-其他数字）”
31
双击模块1－将右边代码内容清空 复制“工作保护密码破解”代码到右边框中，点保存，然后关闭“工作簿1” 破解代码：
Public Sub 工作表保护密码破解()
Const DBLSPACE As String = vbNewLine & vbNewLine Const AUTHORS As String = DBLSPACE & vbNewLine & _ \作者:http://52uys.taobao.com \
Const HEADER As String = \工作表保护密码破解\Const VERSION As String = DBLSPACE & \版本 52uys 1.0\Const REPBACK As String = DBLSPACE & \
Const ZHENGLI As String = DBLSPACE & \ 阳朔自游假期旅游票务淘宝店 整理\Const ALLCLEAR As String = DBLSPACE & \该工作簿中的工作表密码保护已全部解除!!\DBLSPACE & \请记得另保存\
& DBLSPACE & \注意：不要用在不当地方，要尊重他人的劳动成果！\Const MSGNOPWORDS1 As String = \该文件工作表中没有加密\Const MSGNOPWORDS2 As String = \该文件工作表中没有加密2\
Const MSGTAKETIME As String = \解密需花费一定时间,请耐心等候!\按确定开始破解!\
Const MSGPWORDFOUND1 As String = \密码重新组合为:\\如果该文件工作表有不同密码,将搜索下一组密码并修改清除\
Const MSGPWORDFOUND2 As String = \密码重新组合为:\\如果该文件工作表有不同密码,将搜索下一组密码并解除\Const MSGONLYONE As String = \确保为唯一的?\Dim w1 As Worksheet, w2 As Worksheet
Dim i As Integer, j As Integer, k As Integer, l As Integer Dim m As Integer, n As Integer, i1 As Integer, i2 As Integer Dim i3 As Integer, i4 As Integer, i5 As Integer, i6 As Integer Dim PWord1 As String
32