Hoe alle werkmappen in een map tegelijk in Excel te beschermen?
In Excel kunt u een werkmap beveiligen om te voorkomen dat andere gebruikers deze bewerken, maar heeft u ooit een afbeelding gemaakt om meerdere werkmappen tegelijk te beschermen? Hier introduceer ik enkele trucs voor het beschermen van alle werkmappen in een map en meerdere bladen in een werkmap in Excel.
Bescherm werkmappen in een map tegelijk met VBA
Bescherm meerdere bladen tegelijk met Kutools voor Excel
Bescherm werkmappen in een map tegelijk met VBA
Om werkmappen in een specifieke map te beschermen, kunt u een macrocode toepassen om op te lossen.
1. Schakel een nieuwe werkmap in en druk op Alt + F11 toetsen om de te openen Microsoft Visual Basic voor Applications-venster en klik op Invoegen > modulee, en plak onderstaande code in het Module scripts.
VBA: bescherm werkmappen in een map.
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. druk op F5 sleutel, en een Selecteer een map er verschijnt een venster waarin u een map kunt selecteren om alle werkbladen te beschermen.
3. klikken OK en er verschijnt een dialoogvenster voor het invoeren van een wachtwoord voor het beschermen van werkmappen.
4. klikken OK, verschijnt er een dialoogvenster om u eraan te herinneren dat alle werkmappen in de geselecteerde map met succes zijn beveiligd met één wachtwoord.
Wanneer u de werkmappen opent die u met bovenstaande code hebt beveiligd, verschijnt er een dialoogvenster waarin u het wachtwoord kunt invoeren. Zie screenshot:
Tip: Deze code werkt voor de Excel-versie van 2007 of hoger, als u deze wilt toepassen om de lagere versie te beschermen, kunt u wijzigen xFile = "* .xls" naar xFile = "* .xlsx" in de code.
Bescherm meerdere bladen tegelijk met Kutools voor Excel
In feite zal het vaker voorkomen om meerdere bladen in een werkmap te beschermen tijdens onze dagelijkse werkzaamheden. Maar in Excel moet u bladen één voor één beveiligen met de ingebouwde functie. Er is echter een krachtig hulpmiddel - Kutools for Excel, het is Bescherm werkblad hulpprogramma kan u helpen alle bladen of geselecteerde bladen van de werkmap in één keer te beschermen.
Kutools for Excel, met meer dan 120 handige Excel-functies, verbeter uw werkefficiëntie en bespaar uw werktijd. | ||
Na gratis installeren Kutools voor Excel, doe het als volgt:
1. Schakel de werkmap in waarvan u de bladen wilt beschermen en klik op Enterprise > Bescherm werkblad. Zie screenshot:
2. In de Bescherm werkblad dialoogvenster, kunt u de bladen die u wilt beschermen in de lijst aanvinken. Zie screenshot:
3. klikken Ok, en er verschijnt nog een dialoogvenster waarin u het wachtwoord kunt invoeren en opnieuw typen, zie screenshot:
4. klikken Ok, en er verschijnt een dialoogvenster om u eraan te herinneren dat u met succes werkbladen hebt beschermd.
Om de bescherming van deze bladen op te heffen, hoeft u alleen maar te klikken Enterprise > Beveiliging werkblad opheffen om een wachtwoord in te voeren voor het opheffen.
Beste Office-productiviteitstools
Geef uw Excel-vaardigheden een boost met Kutools voor Excel en ervaar efficiëntie als nooit tevoren. Kutools voor Excel biedt meer dan 300 geavanceerde functies om de productiviteit te verhogen en tijd te besparen. Klik hier om de functie te krijgen die u het meest nodig heeft...
Office-tabblad Brengt een interface met tabbladen naar Office en maakt uw werk veel gemakkelijker
- Schakel bewerken en lezen met tabbladen in Word, Excel, PowerPoint in, Publisher, Access, Visio en Project.
- Open en maak meerdere documenten in nieuwe tabbladen van hetzelfde venster in plaats van in nieuwe vensters.
- Verhoogt uw productiviteit met 50% en vermindert honderden muisklikken voor u elke dag!