Conas gach bileog oibre a chosaint go huathoibríoch agus an leabhar oibre Excel á dhúnadh?
De ghnáth, is féidir leat bileog oibre nó an leabhar oibre iomlán a chosaint de láimh le pasfhocal leis an mbileog Cosain nó an ghné Leabhar Oibre Cosain in Excel. Ach más mian leat gach bileog oibre a chosaint go huathoibríoch le pasfhocal nuair a dhúnfar an leabhar oibre, cad is féidir leat a dhéanamh? Taispeánfaidh an t-alt seo modh VBA duit chun é a bhaint amach.
Cosain gach bileog oibre agus an leabhar oibre Excel á dhúnadh agat le cód VBA
Cosain gach bileog oibre agus an leabhar oibre Excel á dhúnadh agat le cód VBA
Chun gach bileog oibre a chosaint go huathoibríoch agus an leabhar oibre á dhúnadh, cuir an cód VBA seo a leanas i bhfeidhm.
1. Sa leabhar oibre is mian leat gach bileog oibre a chosaint agus an comhad á dhúnadh agat, brúigh an Eile + F11 eochracha a oscailt Microsoft Visual Basic d’Fheidhmchláir fhuinneog.
2. Sa Microsoft Visual Basic d’Fheidhmchláir fuinneog, cliceáil faoi dhó ar an An Leabhar Oibre seo sa phána ar chlé, agus ansin cóipeáil faoi bhun an chóid VBA isteach i bhfuinneog an Chóid. Féach an pictiúr:
Cód VBA: Cosain gach bileog oibre agus an leabhar oibre á dhúnadh
Private Sub Workbook_BeforeClose(Cancel As Boolean)
'Update by Extendoffice 2018/1/24
Dim xSheet As Worksheet
Dim xPsw As String
xPsw = ""
For Each xSheet In Worksheets
xSheet.Protect xPsw
Next
End Sub
Leideanna:
Private Sub Workbook_BeforeClose(Cancel As Boolean)
Sheets("Sheet1").Protect "123"
ActiveWorkbook.Save
End Sub
3. Ansin brúigh an Eile + Q eochracha chun an fhuinneog Microsoft Visual Basic for Applications a dhúnadh.
Tar éis na céime thuas, cosnófar gach bileog oibre nó bileog oibre shonraithe go huathoibríoch agus an leabhar oibre á dhúnadh.
nótaí:
Earraí gaolmhara:
- Conas liosta anuas a úsáid i mbileog oibre faoi chosaint in Excel?
- Conas cealla sonraithe a ghlasáil gan an bhileog oibre iomlán a chosaint in Excel?
- Conas an fhoirmle a cheilt ach an toradh a thaispeáint gan an bhileog oibre a chosaint in Excel?
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á!