Hoe wachtwoorden instellen om individuele werkbladen door gebruikers in Excel te beschermen?
In Excel kunt u verschillende wachtwoorden instellen voor verschillende werkbladen, dit betekent dat de ene gebruiker wijzigingen kan aanbrengen in het ene werkblad met één wachtwoord, en een andere gebruiker een ander wachtwoord kan gebruiken om wijzigingen aan te brengen in een ander werkblad. Maar soms wilt u alleen dat elke gebruiker zijn eigen blad kan bekijken en openen. Is dit op te lossen in Excel?
Om elk werkblad afzonderlijk te beschermen en de toegang tot de werkbladen door gebruikers te beperken, past u de onderstaande VBA-code toe:
1. Open een nieuwe werkmap en maak een nieuw blad met de naam "Hoofd", zie screenshot:
2. Druk vervolgens op Alt + F11 toetsen om de te openen Microsoft Visual Basic voor toepassingen venster, dubbelklik Dit Werkboek van links Project-VBAProject deelvenster om een lege codemodule te openen en kopieer en plak vervolgens de volgende VBA-code in het codevenster, zie screenshot:
VBA-code: wachtwoorden instellen om individuele bladen door gebruikers te beschermen
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 vervolgens de cursor aan het einde van de Private Sub Workbook_Open () script en druk op F5 sleutel om deze code uit te voeren. Voer nu in het uitgeklapte promptvenster de gebruikersnaam in waarvoor u een blad voor deze gebruiker wilt maken, zie screenshot:
4. En klik dan OK knop, voer in het volgende promptvenster een wachtwoord in om dit blad te beschermen, zie screenshot:
5. Blijf klikken OK knop en er wordt in één keer een nieuw blad met de gebruikersnaam gemaakt en u kunt de gegevens voor die gebruiker naar behoefte maken. Zie screenshot:
6. Herhaal de bovenstaande stap 3 – stap 5 om één voor één andere bladen te maken die u wilt gebruiken.
7. Sla na het maken van de werkbladen de huidige werkmap op door te klikken op Dien in > Opslaan als., In de Opslaan als dialoogvenster, geef een bestandsnaam op en kies vervolgens Excel-werkmap met ingeschakelde macro's (* .xlsm) formaat van de Opslaan als type vervolgkeuzelijst, zie screenshot:
8. Klik vervolgens op de knop Opslaan om dit bestand op te slaan.
9. En sluit vervolgens de werkmap en open deze opnieuw, klik vervolgens op Inhoud aanzetten bovenaan de formulebalk om de code te activeren, zie screenshot:
10. Nu verschijnt er een promptvenster om u eraan te herinneren de gebruikersnaam en het wachtwoord in te voeren om het specifieke blad door een bepaalde gebruiker te openen.
11. Als u deze werkmap naar andere gebruikers verzendt, moet u ten slotte de gebruikersnaam en het wachtwoord naar de gebruiker sturen. Ze openen en bewerken alleen hun eigen werkbladen en hebben geen toestemming om andere werkbladen te zien.
De beste tools voor kantoorproductiviteit
Kutools voor Excel lost de meeste van uw problemen op en verhoogt uw productiviteit met 80%
- Super Formula-balk (bewerk eenvoudig meerdere regels tekst en formule); Lay-out lezen (gemakkelijk grote aantallen cellen lezen en bewerken); Plakken in gefilterd bereik...
- Voeg cellen / rijen / kolommen samen en het bewaren van gegevens; Gespleten cellen inhoud; Combineer dubbele rijen en som / gemiddelde... Voorkom dubbele cellen; Vergelijk Ranges...
- Selecteer Dupliceren of Uniek Rijen; Selecteer lege rijen (alle cellen zijn leeg); Super zoeken en fuzzy zoeken in veel werkboeken; Willekeurige selectie ...
- Exacte kopie Meerdere cellen zonder de formuleverwijzing te wijzigen; Maak automatisch verwijzingen naar meerdere bladen; Plaats kogels, Selectievakjes en meer ...
- Favoriete formules en snel invoegen, Bereiken, grafieken en afbeeldingen; Versleutel cellen met wachtwoord; Maak een mailinglijst en stuur e-mails ...
- Extraheer tekst, Tekst toevoegen, Verwijderen op positie, Ruimte verwijderen; Paging-subtotalen maken en afdrukken; Converteren tussen celinhoud en opmerkingen...
- Super filter (bewaar en pas filterschema's toe op andere bladen); Geavanceerd sorteren per maand / week / dag, frequentie en meer; Speciaal filter door vet, cursief ...
- Combineer werkmappen en werkbladen; Tabellen samenvoegen op basis van sleutelkolommen; Gegevens splitsen in meerdere bladen; Batch Converteer xls, xlsx en PDF...
- Draaitabel groeperen op weeknummer, dag van de week en meer ... Toon ontgrendelde, vergrendelde cellen door verschillende kleuren; Markeer cellen met formule / naam...
- 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 elke dag honderden muisklikken!
