De Visual Basic -editor voorzien van Microsoft Excel geeft meer gevorderde gebruikers de tools die nodig zijn om bijna onbeperkte macro's te maken voor de manier waarop Excel werkt aanpassen . Een eenvoudige macro kan beveiligen met een wachtwoord van een Excel-werkblad met slechts een paar regels code . Het werken met macro's in Visual Basic vergt enige oefening , maar de voordelen van het leren van de grondbeginselen is de moeite waard . Instructies
1 Open het Microsoft Excel-werkblad dat u wilt beveiligen . Kopen van 2 Druk op " ALT + F11 " te openen Visual Basic .
< Br > 3 Klik op het menu " Invoegen" en selecteer " UserForm . "
Klik 4 op de functie " TextBox " en sleep het naar de " UserForm " werkgebied . Pas de grootte van het tekstvak zoals gewenst .
Druk op " F4 " 5 met de " TextBox " nog steeds geselecteerd op de " Eigenschappen" venster in te voeren en scroll naar beneden naar " PasswordChar . " Plaats een asterisk ( * ) in de kolom waarde .
6 Klik op de " UserForm " om de gereedschapskist terug te brengen en sleep een " CommandButton " op de " UserForm . " Voor esthetische doeleinden , de positie van de knop aan de rechterkant van de " TextBox . "
Druk op " F4 " 7 met de " deCommandButton " nog steeds geselecteerd en de titel te veranderen "OK . "
< br > Klik 8 op de " UserForm , " druk " F4 " en de titel te wijzigen in " Protect /Beveiliging opheffen Alle bladen . "
Press 9 " F7 " en plak de volgende code als het hieronder weergegeven : Private Sub CommandButton1_Click
( ) Dim WSheet
als Aantekenvel
voor Elke WSheet In Werkbladen
Als WSheet.ProtectContents = Waar toen < br > WSheet.Unprotect Wachtwoord : = TextBox1.Text
Else WSheet.Protect Wachtwoord
: = TextBox1.Text End
Als
volgende WSheet
Unload me End Sub
10
Selecteer " Module " uit het menu "Invoegen" en plak de volgende : Sub
ShowPass ( ) UserForm1.Show End Sub
11 Druk op " ALT + Q "
om terug te keren naar Excel .
12 Druk op ' ALT + F8 ", druk daarna op " Opties " na het selecteren van " ShowPass "uit de lijst .
13 Wijs een sneltoets aan de macro en druk op" OK ".
< br > 14 Druk op de sneltoets aan de macro te starten , voert u een wachtwoord in , druk daarna op de knop "OK " om een wachtwoord te beveiligen de bladen in de werkmap .
< br > |
