VBA锁定Excel的页眉页脚

咔片PPT · AI自动生成演示文稿，模板丰富、排版精美讯飞智文 · 一键生成PPT和Word，高效应对学习与办公

问：平时设计表格是最害怕的是什么？

答：肯定是糊涂的小伙伴把里面该改的不该改的参数都给你改了，完了还贴心的给你按个保存，致使各位创作者欲哭无泪！！！所以各大网站都在手把手教你怎么保护自己的作品，这个前面的文章里也有讲述，这里就不copy啦。今天主要想保护的是页眉页脚，让别人打印时不能随心所欲，哈哈哈！！！

1、工具

想达到这个目的必须要有VBA的加持，下面先解释一下用代码表示页眉页脚中的各项参数

A：工作表名称

F：工作簿名称

Z：工作簿路径

D：日期

T：时间

P：页码

N：总页码

2、代码及解释

Sub headerfooter()

With ActiveSheet.PageSetup

.PrintArea = "" '打印区域设置为全部打印

.LeftHeader = "&""Arial""&B&10 &A" '左边页眉设置为工作表名称，字体Arial，字号10，加粗

.CenterHeader = "&""Arial""&B&10 &F" '中间页眉设置为工作簿名称，字体Arial，字号10，加粗

.RightHeader = "&""Arial""&B&10 &D &T" '右边页眉设置为时间和日期，字体Arial，字号10，加粗。如果想固定格式的话用后面的代码代替哦.RightHeader ="&""Arial,Bold" Format(Date, "mm/dd/yyyy") & Chr(10) & Format(Time, "hh:mm")

.Leftfooter= "&""Arial,Bold""&10 &P/&N" '左边页脚设置为页码和总页码，字体Arial，字号10，加粗

.Centerfooter="&""Arial,Bold""&10 &Z" '中间页脚设置为文件路径，字体Arial，字号10，加粗

End With

End Sub

下面我们运行一下看看效果

首先页眉

然后页脚

完美！！！

3、如果想在页眉页脚的内容前面加点说明可以换下面一套

Sub headerfooter()

With ActiveSheet.PageSetup

.PrintArea = ""

.LeftHeader = "&""Arial""&B&10 &A"

.CenterHeader = "&""Arial""&B&10 & Spreadsheet Name: &F"

.RightHeader = "&""Arial,Bold""&10 & Print Time: &D&T" '需要调整格式就用这个.RightHeader = "&""Arial,Bold""&10 & Print Time:" & Format(Date, "mm/dd/yyyy") & Chr(32) & Format(Time, "hh:mm")

.LeftFooter = "&""Arial,Bold""&10 & Page: &P/&N"

.RightFooter = "&""Arial,Bold""&10 & Location: &Z"

End With

End Sub

验收时刻来啦！！！

页眉