Hoe stelt u wachtwoorden in om afzonderlijke werkbladen in Excel te beveiligen voor verschillende gebruikers?
In Excel kunt u verschillende wachtwoorden instellen voor verschillende werkbladen, zodat de ene gebruiker met één wachtwoord wijzigingen kan aanbrengen in het ene werkblad, terwijl een andere gebruiker met een ander wachtwoord wijzigingen kan aanbrengen in een ander werkblad. Maar kunt u Excel zo instellen dat elke gebruiker alleen zijn of haar eigen werkblad mag bekijken en openen?
Om elk werkblad afzonderlijk te beveiligen en de toegang tot de werkbladen per gebruiker te beperken, past u de volgende VBA-code toe:
1. Open een nieuw werkblad en maak een nieuw tabblad aan met de naam „Main”, zie schermafbeelding:
2. Druk vervolgens op de toetsencombinatie **Alt + F11** om het venster *Microsoft Visual Basic for Applications* te openen. Dubbelklik in het linkerdeelvenster onder *Project-VBAProject* op *ThisWorkbook* om een lege codemodule te openen. Kopieer en plak daarna de volgende VBA-code in het codevenster, zoals weergegeven op de schermafbeelding:
VBA-code: Wachtwoorden instellen om afzonderlijke bladen per gebruiker te beveiligen
Option Explicit
Dim gUserName As String
Dim gUserPass As String
Private Sub Workbook_Open()
'Updateby ExtendOffice
Dim xWShs As Sheets
Dim xWSh As Worksheet
Dim xUserName As String
Dim xPass As String
Dim xBolH As Boolean
GTINPUT:
xUserName = InputBox("Enter the user name")
If TypeName(xUserName) = "String" Then
If xUserName = "" Then
Exit Sub
End If
End If
xUserName = LCase(xUserName)
xPass = InputBox("User name:" & xUserName & Chr(13) & Chr(10) & "Enter the password:")
If TypeName(xPass) = "String" Then
If xPass = "" Then
MsgBox "The password is incorrect, please enter the user name and password again."
GoTo GTINPUT
End If
Else
MsgBox "The password is incorrect, please enter the user name and password again."
GoTo GTINPUT
End If
Set xWShs = Worksheets
xBolH = False
For Each xWSh In Worksheets
If xWSh.Name = xUserName Then
xBolH = True
Exit For
End If
Next
If xBolH Then
Set xWSh = xWShs(xUserName)
On Error GoTo GTINPUT2
xWSh.Unprotect (xPass)
xWSh.Visible = True
xWSh.Activate
Else
Set xWSh = xWShs.Add
xWSh.Name = xUserName
xWSh.Activate
End If
gUserName = xUserName
gUserPass = xPass
Exit Sub
GTINPUT2:
MsgBox "The password is incorrect, please enter the user name and password again."
GoTo GTINPUT
End Sub
Private Sub Workbook_BeforeClose(Cancel As Boolean)
Dim xWSh As Worksheet
On Error Resume Next
Set xWSh = Worksheets(gUserName)
xWSh.Protect Password:=gUserPass, DrawingObjects:=False, Contents:=True, Scenarios:= _
False, AllowFormattingCells:=True, AllowFormattingColumns:=True, _
AllowFormattingRows:=True, AllowInsertingColumns:=True, AllowInsertingRows _
:=True, AllowInsertingHyperlinks:=True, AllowDeletingColumns:=True, _
AllowDeletingRows:=True, AllowSorting:=True, AllowFiltering:=True, _
AllowUsingPivotTables:=True
For Each xWSh In Worksheets
If xWSh.Name <> "Main" Then
xWSh.Visible = xlSheetVeryHidden
End If
Next xWSh
ActiveWorkbook.Save
End Sub
3. Plaats de cursor vervolgens aan het einde van het script „Private Sub Workbook_Open()” en druk op F5 om de code uit te voeren. Voer in het pop-upvenster de gebruikersnaam in waarvoor u een werkblad wilt maken, zie schermafbeelding:
4. Klik daarna op de knop „OK”. Voer in het pop-upvenster dat verschijnt een wachtwoord in om dit werkblad te beveiligen, zie schermafbeelding:
5. Klik nogmaals op de knop „OK”. Er wordt dan onmiddellijk een nieuw werkblad aangemaakt met de gebruikersnaam als titel, zodat u direct de benodigde gegevens voor die gebruiker kunt invoeren. Zie schermafbeelding:
6. Herhaal stap 3 tot en met stap 5 om de overige gewenste werkbladen één voor één aan te maken.
7. Nadat u de werkbladen hebt aangemaakt, slaat u het huidige werkboek op door te klikken op „Bestand” > „Opslaan als…”. Geef in het dialoogvenster „Opslaan als” een bestandsnaam op en kies vervolgens het formaat „Excel-werkmap met macro’s (*.xlsm)” uit de keuzelijst „Opmaak opgeven voor opslaan”, zie schermafbeelding:
8. Klik daarna op de knop Opslaan om het bestand op te slaan.
9. Sluit daarna de werkmap en open deze opnieuw. Klik vervolgens bovenaan de formulebalk op „Inhoud inschakelen” om de code te activeren.
10. Er verschijnt nu een pop-upvenster waarin u wordt gevraagd uw gebruikersnaam en wachtwoord in te voeren om het specifieke werkblad van die gebruiker te openen.
11. Wanneer u deze werkmap naar andere gebruikers verzendt, moet u de gebruikersnaam en het wachtwoord aan de betreffende gebruiker doorgeven. Zo kan hij of zij alleen het eigen werkblad openen en bewerken, zonder toegang tot andere werkbladen.
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