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