Note: The other languages of the website are Google-translated. Back to English
English English

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


swigen dde glas saeth 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

doc amddiffyn troedyn pennawd 1

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:

doc amddiffyn troedyn pennawd 2


Yr Offer Cynhyrchedd Swyddfa Gorau

Kutools ar gyfer Excel Yn Datrys y Rhan fwyaf o'ch Problemau, Ac Yn Cynyddu Eich Cynhyrchiant erbyn
80%

  • Ailddefnyddio: Mewnosod yn gyflym fformwlâu cymhleth, siartiau ac unrhyw beth rydych chi wedi'i ddefnyddio o'r blaen; Amgryptio Celloedd gyda chyfrinair; Creu Rhestr Bostio ac anfon e-byst ...
  • Bar Fformiwla Gwych (golygu llinellau lluosog o destun a fformiwla yn hawdd); Cynllun Darllen (darllen a golygu nifer fawr o gelloedd yn hawdd); Gludo i'r Ystod Hidlo...
  • Uno Celloedd / Rhesi / Colofnau heb golli Data; Cynnwys Celloedd Hollt; Cyfuno Rhesi / Colofnau Dyblyg... Atal Celloedd Dyblyg; Cymharwch y Meysydd...
  • Dewiswch Dyblyg neu Unigryw Rhesi; Dewiswch Blank Rows (mae pob cell yn wag); Darganfyddiad Gwych a Darganfyddiad Niwlog mewn Llawer o Lyfrau Gwaith; Dewis ar Hap ...
  • Copi Union Celloedd Lluosog heb newid cyfeirnod fformiwla; Auto Creu Cyfeiriadau i Daflenni Lluosog; Mewnosod Bwledi, Blychau Gwirio a mwy ...
  • Testun Detholiad, Ychwanegu Testun, Tynnu yn ôl Swydd, Tynnwch y Gofod; Creu ac Argraffu Subtotals Paging; Trosi rhwng Cynnwys a Sylwadau Celloedd...
  • Hidlo Super (arbed a chymhwyso cynlluniau hidlo i ddalenni eraill); Trefnu Uwch yn ôl mis / wythnos / dydd, amlder a mwy; Hidlo Arbennig gan feiddgar, italig ...
  • Cyfuno Llyfrau Gwaith a Thaflenni Gwaith; Uno Tablau yn seiliedig ar golofnau allweddol; Rhannwch Ddata yn Daflenni Lluosog; Trosi Swp xls, xlsx a PDF...
  • Mwy na
    300
    nodweddion pwerus
    . Yn cefnogi Office/Excel
    2007-2019 a 365
    . Yn cefnogi pob iaith. Defnydd hawdd yn eich menter neu sefydliad. Nodweddion llawn
    30
    - treial am ddim diwrnod. Gwarant arian yn ôl 60 diwrnod.
tab kte 201905

Mae Tab Office yn Dod â rhyngwyneb Tabbed i'r Swyddfa, a 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 gan
    50%
    , ac yn lleihau cannoedd o gliciau llygoden i chi bob dydd!
gwaelod officetab
sylwadau (8)
Dim sgôr eto. Byddwch y cyntaf i sgorio!
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Helo, Carwch y cod i amddiffyn y pennawd a'r troedyn, a oes ffordd i newid maint y ffont, arddull a lliw yn y cod fel bod ffont mwy bob amser yn cael ei ddisodli?
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Defnyddiodd Helo hwn gydag enw dalen auto, lleoliad ffeil, a rhif tudalen ac wrth ei gadw mae angen i chi glicio ym mhob maes i argraffu'n gywir.
Lleihawyd y sylw hwn gan y safonwr ar y wefan
nodiadau: Puede insertar el contenido del encabezado o pie de página en la ubicación correspondiente en el cod anterior.
Dim entiendo ese paso , oherwydd ffafriaeth os gwelwch yn dda, ac agradecería.
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Ar ôl cau i lawr ac ailagor y ffeil excel, gellir dal i ddileu'r pennawd/troedyn. Felly sut i drwsio hyn? 
Diolch yn fawr iawn!
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Helo, Tracy,Pan fyddwch chi'n cau'r llyfr gwaith, dylech ei gadw fel Llyfr Gwaith Macro-alluogedig Excel fformat, bydd hyn yn arbed y code.Reopening ffeil hon y tro nesaf, os gwelwch yn dda cliciwch Galluogi Cynnwys botwm o frig y bar fformiwla i actifadu'r cod. Ceisiwch, gobeithio y gall eich helpu!
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Posso inserir uma imagem no cabeçalho?

Porque o meu cabeçalho é o logotipo da empresa.

Diolch!
Lleihawyd y sylw hwn gan y safonwr ar y wefan
J'aime beaucoup, mais ce n'Est qu'une semi-sécurité pour l'en-tête. Je peux modifier les en-tête et les pied de page et imprimer avec la addasu. Sylw je pourrais empêcher toute modification exactement comme avec la protection de la feuille???
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Helo, Michael,
Mewn gwirionedd, pan fyddwch chi'n argraffu'r daflen waith, nid yw'r pennawd neu'r troedyn yn cael eu newid. Mae'n newid yr arddangosfa yn y Rhagolwg Argraffu.
Rhowch gynnig arall arni, diolch!
Nid oes unrhyw sylwadau wedi'u postio yma eto
Gadewch eich sylwadau
Postio fel Gwestai
×
Graddiwch y swydd hon:
0   Cymeriadau
Lleoliadau a Awgrymir

Dilynwch ni

Hawlfraint © 2009 - www.extendoffice.com. | Cedwir pob hawl. Wedi ei bweru gan ExtendOffice. | Map o'r safle
Mae Microsoft a logo'r Swyddfa yn nodau masnach neu'n nodau masnach cofrestredig Microsoft Corporation yn yr Unol Daleithiau a / neu wledydd eraill.
Wedi'i warchod gan Sectigo SSL