Sut i amddiffyn pob llyfr gwaith mewn ffolder ar unwaith yn Excel?
Yn Excel, gallwch amddiffyn llyfr gwaith i atal defnyddwyr eraill rhag ei olygu, ond a ydych erioed wedi delweddu amddiffyn nifer o lyfrau gwaith ar unwaith? Yma, rwy'n cyflwyno rhai triciau ar amddiffyn yr holl lyfrau gwaith mewn ffolder a thaflenni lluosog mewn llyfr gwaith yn Excel.
Amddiffyn llyfrau gwaith mewn ffolder ar unwaith gyda VBA
Amddiffyn taflenni lluosog ar unwaith gyda Kutools ar gyfer Excel
Amddiffyn llyfrau gwaith mewn ffolder ar unwaith gyda VBA
Er mwyn amddiffyn llyfrau gwaith mewn ffolder benodol, gallwch gymhwyso cod macro i'w ddatrys.
1. Galluogi llyfr gwaith newydd, a gwasgwch Alt + F11 allweddi i agor y Microsoft Visual Basic ar gyfer Applications ffenestr, a chlicio Mewnosod > modiwle, a gludo islaw'r cod i'r Modiwlau sgript.
VBA: Amddiffyn llyfrau gwaith mewn ffolder.
Sub ProtectAll()
Dim xWorkBooks As Workbook
Dim xExitFile As String
Dim xPassWord As Variant
Dim xStrPath As String
Dim xFileDialog As FileDialog
Dim xFile As String
On Error Resume Next
Set xFileDialog = Application.FileDialog(msoFileDialogFolderPicker)
xFileDialog.AllowMultiSelect = False
xFileDialog.Title = "Select a folder [Kutools for Excel]"
If xFileDialog.Show = -1 Then
xStrPath = xFileDialog.SelectedItems(1)
End If
If xStrPath = "" Then
Exit Sub
Else
xStrPath = xStrPath + "\"
End If
xPassWord = Application.InputBox("Enter password", "Kutools for Excel", , , , , , 2)
If (xPassWord = False) Or (xPassWord = "") Then
MsgBox "Password cannot be blank!", vbInformation, "Kutools for Excel"
Exit Sub
End If
xFile = "*.xls"
xExitFile = Dir(xStrPath & xFile)
On Error Resume Next
Application.ScreenUpdating = False
Do While xExitFile <> ""
Set xWorkBooks = Workbooks.Open(xStrPath & xExitFile)
Application.DisplayAlerts = False
xWorkBooks.SaveAs Filename:=xWorkBooks.FullName, Password:=xPassWord
Application.DisplayAlerts = True
Workbooks(xExitFile).Close False
Set xWorkBooks = Nothing
xExitFile = Dir
Loop
Application.ScreenUpdating = True
MsgBox "Successfully protect!", vbInformation, "Kutools for Excel"
End Sub
2. Gwasgwch F5 allwedd, ac a Dewiswch ffolder ffenestr yn galw allan i chi ddewis ffolder i amddiffyn ei holl daflenni gwaith.
3. Cliciwch OK ac mae deialog yn galw allan am nodi cyfrinair ar gyfer amddiffyn llyfrau gwaith.
4. Cliciwch OK, mae deialog yn ymddangos i'ch atgoffa bod yr holl lyfrau gwaith yn y ffolder a ddewiswyd wedi'u diogelu'n llwyddiannus gydag un cyfrinair.
Pan fyddwch chi'n agor y llyfrau gwaith y gwnaethoch chi eu gwarchod gan y cod uchod, mae deialog yn galw allan am nodi cyfrinair. Gweler y screenshot:
Tip: Mae'r cod hwn yn gweithio ar gyfer fersiwn Excel 2007 neu uwch, os ydych chi am ei gymhwyso i amddiffyn fersiwn is, gallwch chi newid xFile = "* .xls" i xFile = "* .xlsx" yn y cod.
Amddiffyn taflenni lluosog ar unwaith gyda Kutools ar gyfer Excel
Mewn gwirionedd, bydd yn amlach amddiffyn taflenni lluosog mewn llyfr gwaith yn ein gwaith beunyddiol. Ond yn Excel, mae angen i chi amddiffyn taflenni fesul un gyda'i swyddogaeth adeiledig. Fodd bynnag, mae yna offeryn pwerus - Kutools ar gyfer Excel, ei Taflen Waith Amddiffyn gall cyfleustodau eich helpu i amddiffyn pob dalen neu ddalen ddethol o'r llyfr gwaith ar unwaith.
Kutools ar gyfer Excel, gyda mwy na 120 swyddogaethau Excel defnyddiol, gwella'ch effeithlonrwydd gweithio ac arbed eich amser gweithio. | ||
Ar ôl gosod am ddim Kutools ar gyfer Excel, gwnewch fel isod:
1. Galluogi'r llyfr gwaith rydych chi am amddiffyn ei daflenni, a chlicio Menter > Taflen Waith Amddiffyn. Gweler y screenshot:
2. Yn y Taflen Waith Amddiffyn deialog, gallwch wirio'r taflenni rydych chi am eu gwarchod fel y mae angen i chi o'r rhestr. Gweler y screenshot:
3. Cliciwch Ok, ac mae deialog arall yn galw allan i chi fynd i mewn ac aildeipio'r cyfrinair, gweler y screenshot:
4. Cliciwch Ok, ac mae deialog yn galw allan i'ch atgoffa i amddiffyn taflenni gwaith yn llwyddiannus.
Ar gyfer amddiffyn y taflenni hyn, does ond angen clicio Menter > Taflen Waith Amddiffyn i nodi cyfrinair ar gyfer amddiffyn.
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!