Word hujjatingizdagi sarlavha va kolontiterni tahrirlashni cheklashning 2 usuli

Ushbu maqolada biz sizni Word hujjatida sarlavha va altbilgini tahrirlashni cheklashning 2 usuli bilan tanishtirmoqchimiz.

Ma'lumki, hujjatning sarlavhasi va pastki ma'lumotlari formatlashni professional qilish uchun uning yaxlitligini saqlashi kerak. Shunday qilib, sarlavha yoki altbilgini ataylab yoki tasodifiy o'zgartirishdan himoya qilish usullarini ishlab chiqish yaxshi bo'lar edi. Odatdagidek, biz taklif qiladigan 2 usul.

1-usul: Sarlavha va altbilgini qo'lda tahrirlashni cheklash

1. Boshlash uchun hujjatning boshiga o'tish uchun "Ctrl + Home" tugmasini bosing.
2. Keyin, "Sahifa tartibi" yorlig'ini bosing.
3. Keyin "Sahifa sozlamalari" guruhidagi "Breaks" ni bosing.
4. Va ochiladigan menyuda "Doimiy" ni tanlang. 

Endi siz barcha yashirin belgilarni ochsangiz, uzluksiz bo'lim tanaffusi kiritilganligini ko'rasiz.

5. Keyin ekranning o'ng tomonidagi "Formatlashtirish va tahrirlashni cheklash" panelini ochish uchun "Ko'rib chiqish" yorlig'ini, so'ngra "Tahrirlashni cheklash" buyrug'ini bosing.
6. "Hujjatda faqat ushbu turdagi tahrirlashga ruxsat berish" katagiga belgi qo'ying va "Shakllarni to'ldirish" variantini tanlang.
7. Keyin "Bo'limlarni himoya qilish" dialog oynasini chaqirish uchun "Bo'limlarni tanlash" tugmasini bosing.
8. Ushbu oynada faqat "1-bo'lim" katagiga belgi qo'ying va "OK" tugmasini bosing.
9. Keyin “Ha, Start Himoyani amalga oshirish”.
10. Nihoyat, parolni kiriting va qayta kiriting va "OK" tugmasini bosing.

Hozircha, sarlavha yoki altbilgi maydonini bosganingizda, uni kirita olmaysiz.

2-usul: VBA orqali sarlavha va altbilgini tahrirlashni cheklash

1. Avval VBA muharririni ochish uchun “Alt+ F11” tugmasini bosing.
2. Keyin "Oddiy" loyihani va keyin "Qo'shish" yorlig'ini bosing.
3. "Oddiy" loyihasi ostida yangisini kiritish uchun menyuda "Module" ni tanlang.
4. Kodlash maydonini chiqarish uchun modulni ikki marta bosing va u erga quyidagi makrosni qo'ying:

Sub ProtectHeaderAndFooter()
  Selection.HomeKey Unit:=wdStory
 
  Selection.InsertBreak Type:=wdSectionBreakContinuous
  ActiveDocument.Sections(1).ProtectedForForms = True
 
  ActiveDocument.Protect wdAllowOnlyFormFields
End Sub

Aytgancha, agar siz ko'p hujjatni ommaviy qayta ishlashingiz kerak bo'lsa, uning o'rniga ushbu makrosni joylashtiring:

Sub ProtectHeaderAndFooterInMultiDoc()
  Dim objDoc As Document
  Dim strFile As String, strFolder As String
 
  '  Initialization
  strFolder = "C:\Users\Public\Documents\New folder\Test2\"
  strFile = Dir(strFolder & "*.docx", vbNormal)
 
  '  Precess each document in the folder.
  While strFile <> ""
    Set objDoc = Documents.Open(FileName:=strFolder & strFile)
 
    Selection.HomeKey Unit:=wdStory
 
    Selection.InsertBreak Type:=wdSectionBreakContinuous
    ActiveDocument.Sections(1).ProtectedForForms = True
 
    ActiveDocument.Protect wdAllowOnlyFormFields
 
    objDoc.Save
    objDoc.Close
    strFile = Dir()
  Wend
End Sub

Lekin hamma hujjatlarni hamma narsadan oldin bitta papkada tartibga solishni unutmang. Va "C: \ Users \ Public \ Documents \ New papka \ Test2 \" ni haqiqiy papka yo'li bilan almashtiring.

5. Nihoyat, "Ishga tushirish" tugmasini bosing.

Ibratli usuldan foydalangan holda, sarlavha va altbilgini himoya qilish uchun parolni kiritish shart emas.

Hujjat bilan bog'liq muammolarni hal qiling

Word hujjatlari, boshqa barcha turdagi fayllar singari, dasturiy ta'minot buzilishining oson qurboni bo'ladi. Shunday qilib, qimmatli hujjatlaringizni himoya qilish va ularga abadiy kirish imkoni bo'lmasligi uchun siz laminarlarni olishingiz mumkin. docx tuzatish vositasi.

Muallif kirish:

Vera Chen - ma'lumotlarni qayta tiklash bo'yicha mutaxassis DataNumenMa'lumotlarni qayta tiklash texnologiyalari bo'yicha jahon yetakchisi bo'lgan , Inc Excelning buzilishi va pdf dasturiy mahsulotlarni ta'mirlash. Qo'shimcha ma'lumot olish uchun tashrif buyuring www.datanumen.com