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