Ouvrez la feuille de calcul Microsoft Excel que vous souhaitez protéger.
Presse "ALT + F11" pour ouvrir Visual Basic.
Cliquez sur le "Insérer" menu et sélectionnez "UserForm."
Cliquez sur le "Zone de texte" outil et faites-le glisser sur le "UserForm" zone de travail. Ajuster la taille de la boîte de texte comme désiré.
Presse "F4" avec le "Zone de texte" toujours sélectionné pour entrer dans le "Propriétés" volet et faites défiler jusqu'à "PasswordChar." Insérez un astérisque (*) dans la colonne de valeur.
Cliquez sur le "UserForm" d'apporter la boîte à outils en arrière et faire glisser un "CommandButton" sur la "UserForm." Pour des raisons esthétiques, positionner le bouton à droite de la "Zone de texte."
Presse "F4" avec le "CommandButton" toujours sélectionné et modifier la légende à "D'ACCORD."
Cliquez sur le "UserForm," presse "F4" et changer sa légende "Protection / déprotection toutes les feuilles."
Presse "F7" et collez le code suivant tel qu'il apparaît ci-dessous:
Private Sub CommandButton1_Click ()
Dim WSheet comme feuille de travail
Pour chaque WSheet En FeuillesSi WSheet.ProtectContents = True Then
WSheet.Unprotect Mot de passe: = TextBox1.Text
Autre
WSheet.Protect Mot de passe: = TextBox1.Text
End If
WSheet Suivant
Décharger moi
End Sub
Sélectionner "Module" du "Insérer" menu et collez le texte suivant:
ShowPass sub ()
UserForm1.Show
End Sub
Presse "ALT + Q" pour revenir à Excel.
Presse "ALT + F8," puis appuyez sur "Options" après avoir sélectionné "ShowPass" à partir de la liste.
Affecter une touche de raccourci à la macro et appuyez sur "D'ACCORD."
Appuyez sur la combinaison de touches de raccourci pour lancer la macro, entrez un mot de passe, puis appuyez sur la "OK" bouton pour mot de passe-protéger les feuilles du classeur.