Note: The other languages of the website are Google-translated. Back to English
Mewngofnodi  \/ 
x
or
x
Cofrestru  \/ 
x

or

Sut i amddiffyn pob taflen waith yn awtomatig wrth gau llyfr gwaith Excel?

Fel rheol, gallwch amddiffyn taflen waith neu'r llyfr gwaith cyfan â chyfrinair gyda'r nodwedd Diogelu neu'r Llyfr Gwaith Amddiffyn yn Excel. Ond os ydych chi am amddiffyn pob taflen waith yn awtomatig gyda chyfrinair wrth i'r llyfr gwaith gau, beth allwch chi ei wneud? Bydd yr erthygl hon yn dangos dull VBA i chi ei gyflawni.

Amddiffyn pob taflen waith wrth gau llyfr gwaith Excel gyda chod VBA


Amddiffyn pob taflen waith wrth gau llyfr gwaith Excel gyda chod VBA


Er mwyn amddiffyn pob taflen waith yn awtomatig wrth gau llyfr gwaith, cymhwyswch y cod VBA canlynol.

1. Yn y llyfr gwaith rydych chi am amddiffyn pob taflen waith wrth gau'r ffeil, pwyswch y Alt + F11 allweddi i agor y Microsoft Visual Basic ar gyfer Ceisiadau ffenestr.

2. Yn y Microsoft Visual Basic ar gyfer Ceisiadau ffenestr, cliciwch ddwywaith ar y Llyfr Gwaith hwn yn y cwarel chwith, ac yna copïwch isod god VBA i mewn i ffenestr y Cod. Gweler y screenshot:

Cod VBA: Amddiffyn pob taflen waith wrth gau'r llyfr gwaith

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

Awgrymiadau:

1) Yn y cod, nodwch eich cyfrinair yn y llinell xPsw = “”.
2) Os ydych chi am amddiffyn taflen waith benodol yn awtomatig wrth gau'r llyfr gwaith, gall y cod VBA isod eich helpu chi.
Private Sub Workbook_BeforeClose(Cancel As Boolean)
    Sheets("Sheet1").Protect "123"
    ActiveWorkbook.Save
End Sub

3. Yna pwyswch y Alt + Q allweddi i gau ffenestr Microsoft Visual Basic for Applications.

Ar ôl y cam uchod, bydd yr holl daflenni gwaith neu daflen waith benodol yn cael eu diogelu'n awtomatig wrth gau'r llyfr gwaith.

Nodiadau:

1. Rhaid i chi gadw'r llyfr gwaith fel fformat ffeil Llyfr Gwaith Macro-alluog Excel.
2. Ewch i'r daflen waith benodol, cliciwch adolygiad > Taflen Ddiddymu. Ac yna teipiwch y cyfrinair a nodwyd gennych yn y cod VBA i amddiffyn y daflen waith hon.

Erthyglau cysylltiedig:


Yr Offer Cynhyrchedd Swyddfa Gorau

Mae Kutools for Excel yn Datrys y rhan fwyaf o'ch Problemau, ac yn Cynyddu Eich Cynhyrchedd 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 o nodweddion pwerus. Yn cefnogi Swyddfa / Excel 2007-2019 a 365. Yn cefnogi pob iaith. Defnydd hawdd yn eich menter neu sefydliad. Nodweddion llawn treial am ddim 30 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 50%, ac yn lleihau cannoedd o gliciau llygoden i chi bob dydd!
gwaelod officetab
Say something here...
symbols left.
You are guest
or post as a guest, but your post won't be published automatically.
Loading comment... The comment will be refreshed after 00:00.

Be the first to comment.