Hoe beveilig je alle werkmappen in een map tegelijk in Excel?
In Excel kunt u een werkmap beveiligen om te voorkomen dat andere gebruikers deze bewerken, maar heeft u zich ooit voorgesteld meerdere werkmappen tegelijk te beveiligen? Hier geef ik enkele trucs voor het beveiligen van alle werkmappen in een map en meerdere werkbladen in een werkmap in Excel.
Beveilig werkmappen in een map tegelijk met VBA
Beveilig meerdere werkbladen tegelijk met Kutools voor Excel
Beveilig werkmappen in een map tegelijk met VBA
Om werkmappen in een specifieke map te beveiligen, kunt u een macro gebruiken om dit eenvoudig op te lossen.
1. Schakel een nieuw werkblad in en druk op Alt + F11 om het Microsoft Visual Basic for Applications-venster te openen. Klik vervolgens op Invoegen > Module en plak de onderstaande code in het Module-venster.
VBA: Beveilig alle werkmappen in een map tegelijk.
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 en er verschijnt een Selecteer een map-venster waarin u een map selecteert om alle werkbladen te beveiligen.
3. Klik op OK en er verschijnt een dialoogvenster waarin u een wachtwoord kunt invoeren om uw werkmap te beveiligen.
4. Klik op OK en er verschijnt een dialoogvenster dat u eraan herinnert dat alle werkmappen in de geselecteerde map met één wachtwoord zijn beveiligd.
Wanneer u de werkmappen opent die u hebt beveiligd met de bovenstaande code, verschijnt er een dialoogvenster waarin u het wachtwoord moet invoeren. Zie de schermafbeelding:
Tip: Deze code werkt voor Excel 2007 of een nieuwere versie. Als u deze wilt toepassen op een oudere versie, wijzigt u xFile = „*.xls" in xFile = „*.xlsx" in de code.
Beveilig meerdere werkbladen tegelijk met Kutools voor Excel
In de praktijk komt het regelmatig voor dat u meerdere werkbladen in een werkmap moet beveiligen tijdens uw dagelijkse werkzaamheden. Standaard kunt u in Excel werkbladen helaas maar één voor één beveiligen met de ingebouwde functie. Gelukkig is er een krachtige tool – Kutools voor Excel, waarvan de Werkblad beveiligen-functie u helpt alle werkbladen of geselecteerde werkbladen in de werkmap tegelijk te beveiligen.
Na gratis installerenvan Kutools voor Excel, gaat u als volgt te werk:
1. Open de werkmap waarvan u de werkbladen wilt beveiligen en klik op KUTOOLS PLUS > Werkblad beveiligen > Werkbladen beveiligen.
2. In het Werkblad beveiligen-dialoogvenster selecteert u in de lijst de werkbladen die u wilt beveiligen. Zie schermafbeelding:
3. Klik op Ok en er verschijnt nog een dialoogvenster waarin u het wachtwoord moet invoeren en opnieuw typen. Zie schermafbeelding:
4. Klik op Ok en er verschijnt een dialoogvenster dat u informeert dat Werkbladen beveiligen is uitgevoerd.
Beste Office-productiviteitshulpmiddelen
Geef uw Excel-vaardigheden een boost met Kutools voor Excel en ervaar efficiëntie zoals nooit tevoren.Kutools voor Excel biedt meer dan 300 geavanceerde functies om de productiviteit te verhogen en Tijd besparen.Klik hier om de functie te krijgen die u het meest nodig heeft...
Office Tab brengt een tabbladinterface naar Office en maakt uw werk veel eenvoudiger
- Schakel tabbladbewerking en -lezen in voor Word, Excel, PowerPoint, Publisher, Access, Visio en Project.
- Open en maak meerdere documenten aan in nieuwe tabbladen binnen hetzelfde venster, in plaats van in afzonderlijke vensters.
- Verhoogt uw productiviteit met 50 % en bespaart u dagelijks honderden muisklikken!
Alle Kutools-add-ins in één installatieprogramma.
Kutools for Office bundelt add-ins voor Excel, Word, Outlook en PowerPoint, plus Office Tab Pro—ideaal voor teams die met meerdere Office-apps werken.
- Alles-in-één suite— add-ins voor Excel, Word, Outlook & PowerPoint plus Office Tab Pro
- Één installatieprogramma, één licentie— binnen enkele minuten klaar (MSI-geschikt)
- Werkt beter samen— gestroomlijnde productiviteit in alle Office-apps
- 30 dagen volledig functionele proefversie— geen registratie, geen creditcard
- Beste prijs-kwaliteitverhouding— bespaar ten opzichte van het afzonderlijk kopen van add-ins