Question

求EXCEL VBA 锁定页眉页脚代码。

Answer 1

以下都是随便设的值,可根据自己的需要修改:

Sub MyPageSetup()
   With ActiveSheet.PageSetup
        '页眉左设置为,空
        .LeftHeader = ""
        '页眉中设置为,文件名
        .CenterHeader = "&F"
        '页眉右设置为,空
        .RightHeader = ""
        '左页脚内容为abc=abcabc,字体为10号(代码中&10）
        .LeftFooter = "&10 abc=abcabc "
        '设置右页脚,第多少页of总页数
        .RightFooter = "Page &P of &N"
        '页脚中设置为,当前日期
        .CenterFooter = "&D"
        '设置左右上下边线距
        .LeftMargin = Application.InchesToPoints(0.19)
        .RightMargin = Application.InchesToPoints(0.31)
        .TopMargin = Application.InchesToPoints(0.35)
        .BottomMargin = Application.InchesToPoints(0.83)
        .HeaderMargin = Application.InchesToPoints(0.31)
        .FooterMargin = Application.InchesToPoints(0.19)
        '设置(排版方向,横或竖))
        .Orientation = xlLandscape
        '设置打印标题行(以下是设第3行和第4行)
        .PrintTitleRows = "$3:$4"
        '选择打印纸张'
        .PaperSize = xlPaperA4
   End With
End Sub

追问

我是想用VBA代码锁定已经设置好的页眉页脚不让别人修改。

追答

那换一个思路行吗,人家改了你的页眉后,肯定要点保存,不然修改了也没有用.那么可以把以下代码写在写在工作薄BeforeSave事件里面:(就算人家改了,一点保存就又变成原来的设置了)
Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
Call MyPageSetup
End Sub
 
另一种思路,页眉页脚主要是用来打印用的,可以写在打印事件里面:
Private Sub Workbook_BeforePrint(Cancel As Boolean)
Call MyPageSetup
End Sub
 
不知道上面这样可否达到你的要求,另外在网上也看到以下方法,我没测试,不知道是否可用:
1  点击“视图”下的“页眉页脚”，修改或者添加删除页眉页脚，这个应该大家都会的，就不多说了，呵呵。
        2  输入自己需要的页眉（脚）内容，然后按“页眉和页脚”工具栏上的“关闭”按钮，退出页眉（脚）的编辑状态。
        3  将光标定在文档的首行上，执行“插入→分隔符”命令，打开“分隔符”对话框，选中“分节符类型”下面的“连续”项，确定返回。
       4   执行“工具→保护文档”命令，打开“保护文档”侧边框，该侧边栏出现在word文档的右侧。
        5  选中“2.编辑限制”下的“仅允许在文档中进行此类编辑”前面的复选框，并在激活后的下拉列表框中选“填写窗体”。
        6  点击“3.启动强制保护”下的“是，启动强制保护”按钮，打开“启动强制保护对话框”，输入你想设置的密码并确认密码，点确定。
        7  这个时候在“视图”下面的“页眉页脚”命令项就已经是不可编辑的灰色了。只有点“工具”下的“取消文档保护”，打开取消文档保护对话框，输入正确的密码才能修改页眉页脚。

追问

辛苦您了……呵呵……