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:
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:
Erthyglau cysylltiedig:
- Sut i ddefnyddio gwymplen mewn taflen waith warchodedig yn Excel?
- Sut i gloi celloedd penodol heb amddiffyn y daflen waith gyfan yn Excel?
- Sut i guddio fformiwla ond arddangos y canlyniad heb amddiffyn taflen waith yn Excel?
Offer Cynhyrchiant Swyddfa Gorau
Supercharge Eich Sgiliau Excel gyda Kutools ar gyfer Excel, a Phrofiad Effeithlonrwydd Fel Erioed Erioed. Kutools ar gyfer Excel Yn Cynnig Dros 300 o Nodweddion Uwch i Hybu Cynhyrchiant ac Arbed Amser. Cliciwch Yma i Gael Y Nodwedd Sydd Ei Angen Y Mwyaf...
Mae Office Tab yn dod â rhyngwyneb Tabbed i Office, ac yn 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!