Sut i amddiffyn pennawd a throedyn yn Excel?
Yn Excel, gallwn amddiffyn y celloedd yn gyflym ac yn hawdd, ond, a ydych erioed wedi ceisio amddiffyn y pennawd a'r troedyn i atal eraill rhag eu haddasu? Fel rheol, nid oes unrhyw ffordd uniongyrchol i ddatrys y dasg hon yn y daflen waith, ond, gall y cod VBA canlynol ffafrio chi.
Amddiffyn pennawd a throedyn gyda chod VBA
Amddiffyn pennawd a throedyn gyda chod VBA
Mae pennawd a throedyn yn ddefnyddiol i ni wrth argraffu taflen waith, er mwyn eu hatal rhag cael eu newid gan eraill, gwnewch y camau canlynol:
1. Daliwch i lawr y ALT + F11 allweddi i agor y Microsoft Visual Basic ar gyfer Ceisiadau ffenestr.
2. Yna cliciwch ddwywaith Llyfr Gwaith hwn O dan y Prosiect VBA adran i agor modiwl gwag, ac yna copïo a gludo'r cod canlynol i'r modiwl:
Cod VBA: Amddiffyn pennawd a throedyn
Option Explicit
Private Sub Workbook_BeforePrint(Cancel As Boolean)
Call ProtectHF
End Sub
Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
Call ProtectHF
End Sub
Private Sub Workbook_Open()
Call ProtectHF
End Sub
Private Sub ProtectHF()
'Updateby Extendoffice
Application.ScreenUpdating = False
ThisWorkbook.ActiveSheet.PageSetup.RightHeader = ""
ThisWorkbook.ActiveSheet.PageSetup.RightFooter = ""
ThisWorkbook.ActiveSheet.PageSetup.CenterFooter = "KTE-Sale-Report"
ThisWorkbook.ActiveSheet.PageSetup.CenterHeader = "Created by Skyyang"
ThisWorkbook.ActiveSheet.PageSetup.LeftHeader = ""
ThisWorkbook.ActiveSheet.PageSetup.LeftFooter = ""
Application.ScreenUpdating = True
End Sub
Nodyn: Gallwch fewnosod y cynnwys pennawd neu droedyn yn y lleoliad cyfatebol yn y cod uchod.
3. Ac yna arbed a chau'r cod hwn, nawr, wrth glicio Save botwm i achub y llyfr gwaith hwn, bydd y cynnwys pennawd neu droedyn wedi'i addasu yn cael ei ddychwelyd i'r rhai gwreiddiol yn awtomatig os ydych chi wedi ceisio newid y pennawd neu'r troedyn, gweler y screenshot:
Offer Cynhyrchiant Swyddfa Gorau
Supercharge Eich Sgiliau Excel gyda Kutools ar gyfer Excel, a Phrofiad Effeithlonrwydd Fel Erioed Erioed. Kutools ar gyfer Excel Yn Cynnig Dros 300 o Nodweddion Uwch i Hybu Cynhyrchiant ac Arbed Amser. Cliciwch Yma i Gael Y Nodwedd Sydd Ei Angen Y Mwyaf...
Mae Office Tab yn dod â rhyngwyneb Tabbed i Office, ac yn Gwneud Eich Gwaith yn Haws o lawer
- Galluogi golygu a darllen tabbed yn Word, Excel, PowerPoint, Cyhoeddwr, Mynediad, Visio a Phrosiect.
- Agor a chreu dogfennau lluosog mewn tabiau newydd o'r un ffenestr, yn hytrach nag mewn ffenestri newydd.
- Yn cynyddu eich cynhyrchiant 50%, ac yn lleihau cannoedd o gliciau llygoden i chi bob dydd!
