Ինչպե՞ս պաշտպանել վերնագիրն ու էջատակը Excel- ում:
Excel- ում մենք կարող ենք արագ և հեշտությամբ պաշտպանել բջիջները, բայց երբևէ փորձե՞լ եք պաշտպանել վերնագիրն ու էջատակը, որպեսզի ուրիշները չփոխեն դրանք: Սովորաբար, աշխատաթերթում այս խնդիրը լուծելու ուղիղ եղանակ չկա, բայց հետևյալ VBA կոդը կարող է ձեզ լավություն բերել:
Պաշտպանեք վերնագիրն ու էջատակը VBA կոդով
Պաշտպանեք վերնագիրն ու էջատակը VBA կոդով
Վերնագիրն ու էջատակը օգտակար են մեզ համար աշխատանքային թերթ տպելիս, որպեսզի ուրիշները չփոխեն դրանք, խնդրում ենք կատարել հետևյալ քայլերով.
1, Պահեք պահեք ALT + F11 բացել ստեղները Microsoft Visual Basic հավելվածների համար պատուհան.
2, Դրանից հետո կրկնակի կտտացրեք Այս գործառույթը տակ VBAP նախագիծ բաժին `դատարկ մոդուլ բացելու համար, ապա պատճենեք և կպցրեք հետևյալ կոդը մոդուլի մեջ.
VBA կոդ. Պաշտպանեք վերնագիրն ու էջատակը
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
ՆշումԴուք կարող եք վերնագրի կամ տողատակի պարունակությունը ներդնել վերոնշյալ կոդի համապատասխան վայրում:
3, Եվ այնուհետև, սեղմելով, պահեք և փակեք այս կոդը Փրկել Այս աշխատանքային գիրքը պահելու համար կոճակը փոփոխված վերնագրի կամ տողատակի պարունակությունն ինքնաբերաբար կվերադառնա բնօրինակին, եթե փորձել եք վերնագիրը կամ էջատակը փոխել, տեսեք,
Գրասենյակի արտադրողականության լավագույն գործիքները
Լրացրեք ձեր Excel-ի հմտությունները Kutools-ի հետ Excel-ի համար և փորձեք արդյունավետությունը, ինչպես երբեք: Kutools-ը Excel-ի համար առաջարկում է ավելի քան 300 առաջադեմ առանձնահատկություններ՝ արտադրողականությունը բարձրացնելու և ժամանակ խնայելու համար: Սեղմեք այստեղ՝ Ձեզ ամենաշատ անհրաժեշտ հատկանիշը ստանալու համար...
Office Tab- ը Tabbed ինտերֆեյսը բերում է Office, և ձեր աշխատանքը շատ ավելի դյուրին դարձրեք
- Միացնել ներդիրներով խմբագրումը և ընթերցումը Word, Excel, PowerPoint- ով, Հրատարակիչ, Access, Visio և Project:
- Բացեք և ստեղծեք բազմաթիվ փաստաթղթեր նույն պատուհանի նոր ներդիրներում, այլ ոչ թե նոր պատուհաններում:
- Բարձրացնում է ձեր արտադրողականությունը 50%-ով և նվազեցնում մկնիկի հարյուրավոր սեղմումները ձեզ համար ամեն օր: