Macro ou événement pour saisir le mot de passe lors de l’activation d’une feuille de calcul, Excel VBA

Si vous souhaitez protéger une feuille de calcul des regards indiscrets, vous pouvez demander à l’utilisateur un mot de passe dès qu’il active la table.

Private Sub Worksheet_Activate()
MotDePasseDeRequete
End Sub
Sub MotDePasseDeRequete()
Dim s As String
Const passw = "Salut"
s = InputBox("Tapez votre mot de passe!")
If s = passw _
Then MsgBox "OK accès autorisé!": Exit Sub _
Else Application.DisplayAlerts = False: _
MsgBox "Aucun droit d'accès à cette fiche": _
Sheets("Feuil1").Activate
End Sub

 

S’abonner
Notifier de
0 Commentaires
Inline Feedbacks
Voir tous les commentaires

Initiation à Excel

Fonctions Excel

Excel VBA

Macros VBA Utiles

Plus d'outils

Sur Facebook

Sur YouTube

0
Nous aimerions avoir votre avis, veuillez laisser un commentaire.x
()
x