Kako zaščititi vse delovne zvezke v mapi hkrati v Excelu?
V Excelu lahko delovni zvezek zaščitite, tako da drugim uporabnikom preprečite, da bi ga urejali, vendar ste kdaj slišali za zaščito več delovnih zvezkov hkrati? Tukaj predstavljam nekaj trikov za zaščito vseh delovnih zvezkov v mapi in več listov v delovnem zvezku v Excelu.
Zaščitite delovne zvezke v mapi hkrati z VBA
Zaščitite več listov hkrati s programom Kutools za Excel
Zaščitite delovne zvezke v mapi hkrati z VBA
Če želite zaščititi delovne zvezke v določeni mapi, lahko za reševanje uporabite kodo makra.
1. Omogočite nov delovni zvezek in pritisnite Alt + F11 tipke za odpiranje Microsoft Visual Basic za aplikacijons in kliknite Vstavi > module in spodnjo kodo prilepite v Moduli skripta.
VBA: Zaščitite delovne zvezke v mapi.
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. Pritisnite F5 tipko in a Izberite mapo odpre se okno, da izberete mapo, da zaščitite vse njene delovne liste.
3. klik OK in odpre se pogovorno okno za vnos gesla za zaščito delovnih zvezkov.
4. klik OK, se odpre pogovorno okno, ki vas opomni, da so bili vsi delovni zvezki v izbrani mapi uspešno zaščiteni z enim geslom.
Ko odprete delovne zvezke, ki ste jih zaščitili z zgornjo kodo, se prikaže pogovorno okno za vnos gesla. Oglejte si posnetek zaslona:
Nasvet: Ta koda deluje za različico programa Excel 2007 ali novejšo, če jo želite uporabiti za zaščito nižje različice, jo lahko spremenite xFile = "* .xls" do xFile = "* .xlsx" v kodi.
Zaščitite več listov hkrati s programom Kutools za Excel
Pravzaprav bomo pri vsakodnevnem delu pogosteje zaščitili več listov v delovnem zvezku. Toda v Excelu morate liste z zaščito zaščititi enega z drugim z vgrajeno funkcijo. Vendar obstaja močno orodje - Kutools za Excel, njeno Zaščitite delovni list pripomoček vam lahko pomaga zaščititi vse liste ali izbrane liste delovnega zvezka hkrati.
Kutools za Excel, z več kot 120 priročne funkcije Excel, izboljšajo vašo delovno učinkovitost in prihranijo vaš delovni čas. | ||
po brezplačna namestitev Kutools za Excel, naredite spodaj:
1. Omogočite delovni zvezek, ki ga želite zaščititi, in kliknite Podjetje > Zaščitite delovni list. Oglejte si posnetek zaslona:
2. V Ljubljani Zaščitite delovni list v pogovornem oknu lahko na seznamu preverite liste, ki jih želite zaščititi. Oglejte si posnetek zaslona:
3. klik Okin odpre se drugo pogovorno okno za vnos in vpis gesla, glejte sliko zaslona:
4. klik Okin odpre se pogovorno okno, ki vas opomni na uspešno zaščito delovnih listov.
Za zaščito teh listov morate samo klikniti Podjetje > Odstranite zaščito delovnega lista za vnos gesla za zaščito.
Najboljša pisarniška orodja za produktivnost
Napolnite svoje Excelove spretnosti s Kutools za Excel in izkusite učinkovitost kot še nikoli prej. Kutools za Excel ponuja več kot 300 naprednih funkcij za povečanje produktivnosti in prihranek časa. Kliknite tukaj, če želite pridobiti funkcijo, ki jo najbolj potrebujete...
Kartica Office prinaša vmesnik z zavihki v Office in poenostavi vaše delo
- Omogočite urejanje in branje z zavihki v Wordu, Excelu, PowerPointu, Publisher, Access, Visio in Project.
- Odprite in ustvarite več dokumentov v novih zavihkih istega okna in ne v novih oknih.
- Poveča vašo produktivnost za 50%in vsak dan zmanjša na stotine klikov miške za vas!