Conas ceanntásc agus buntásc a chosaint in Excel?
In Excel, is féidir linn na cealla a chosaint go tapa agus go héasca, ach, an ndearna tú iarracht riamh an ceanntásc agus an buntásc a chosaint chun cosc a chur ar dhaoine eile iad a mhodhnú? De ghnáth, ní bhíonn aon bhealach díreach ann chun an tasc seo a réiteach ar an mbileog oibre, ach, d’fhéadfadh an cód VBA seo a leanas fabhar a thabhairt duit.
Cosain ceanntásc agus buntásc le cód VBA
Cosain ceanntásc agus buntásc le cód VBA
Tá ceanntásc agus buntásc úsáideach dúinn agus an bhileog oibre á phriontáil, chun nach féidir le daoine eile iad a athrú, déan na céimeanna seo a leanas le do thoil:
1. Coinnigh síos an ALT + F11 eochracha a oscailt Microsoft Visual Basic d’Fheidhmchláir fhuinneog.
2. Ansin cliceáil faoi dhó An Leabhar Oibre seo faoi na Tionscadal VBA roinn chun modúl bán a oscailt, agus ansin an cód seo a leanas a chóipeáil agus a ghreamú isteach sa mhodúl:
Cód VBA: Cosain ceanntásc agus buntásc
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
nótaí: Is féidir leat an t-ábhar ceanntásca nó buntásc a chur isteach san áit chomhfhreagrach sa chód thuas.
3. Agus ansin an cód seo a shábháil agus a dhúnadh, anois, agus tú ag cliceáil Sábháil cnaipe chun an leabhar oibre seo a shábháil, seolfar an t-ábhar ceanntásca nó buntásc modhnaithe ar ais go dtí na cinn bhunaidh go huathoibríoch má rinne tú iarracht an ceanntásc nó an buntásc a athrú, féach an scáileán:
Uirlisí Táirgiúlachta Oifige is Fearr
Supercharge Do Scileanna Excel le Kutools le haghaidh Excel, agus Éifeachtúlacht Taithí Cosúil Ná Roimhe. Kutools le haghaidh Excel Tairiscintí Níos mó ná 300 Ardghnéithe chun Táirgiúlacht a Treisiú agus Sábháil Am. Cliceáil anseo chun an ghné is mó a theastaíonn uait a fháil ...
Tugann Tab Oifige comhéadan Tabbed chuig Office, agus Déan Do Obair i bhfad Níos Éasca
- Cumasaigh eagarthóireacht agus léamh tabbed i Word, Excel, PowerPoint, Foilsitheoir, Rochtain, Visio agus Tionscadal.
- Oscail agus cruthaigh cáipéisí iolracha i gcluaisíní nua den fhuinneog chéanna, seachas i bhfuinneoga nua.
- Méadaíonn do tháirgiúlacht 50%, agus laghdaíonn sé na céadta cad a tharlaíonn nuair luch duit gach lá!