Deprotege feuille par mot de passe
Résolu
aiglon74
Messages postés
6
Date d'inscription
Statut
Membre
Dernière intervention
-
aiglon74 Messages postés 6 Date d'inscription Statut Membre Dernière intervention -
aiglon74 Messages postés 6 Date d'inscription Statut Membre Dernière intervention -
A voir également:
- Deprotege feuille par mot de passe
- Trousseau mot de passe iphone - Guide
- Mot de passe - Guide
- Mot de passe administrateur - Guide
- Mot de passe bios perdu - Guide
- Voir mot de passe wifi android - Guide
2 réponses
Bonjour,
Essaies ce code :
Essaies ce code :
Option Explicit
Private Sub CommandButton1_Click()
Dim n As Integer
ActiveCell.Activate
Do While ActiveSheet.ProtectContents = True
On Error Resume Next
ActiveSheet.Unprotect
On Error GoTo 0
n = n + 1
If n = 3 Then
MsgBox "Vous avez effectué les " & n & " essais permis.", vbCritical
Exit Sub
End If
Loop
End Sub
