Sujet Précédent Sujet Suivant

Deprotege feuille par mot de passe

Résolu/Fermé
aiglon74 Messages postés 6 Date d'inscription mercredi 6 mai 2015 Statut Membre Dernière intervention 22 janvier 2016 - 6 mai 2015 à 19:28
aiglon74 Messages postés 6 Date d'inscription mercredi 6 mai 2015 Statut Membre Dernière intervention 22 janvier 2016 - 6 mai 2015 à 21:21
bonsoir a tous

déprotège la feuille
feuille déprotège en cliquant sur un bouton avec un code ActiveSheet.Unprotect
une boite de dialogue apparait
met le mot de passe tout va bien

erreur de mot de passe de ma part
un blocage apparait
comment l'enlever
tout en restant sur cette page pour recommencer un nouveau mot passe

cordialement
aiglon74

2 réponses

Réponse 1 / 2
Patrice33740 Messages postés 8556 Date d'inscription dimanche 13 juin 2010 Statut Membre Dernière intervention 2 mars 2023 1 775
6 mai 2015 à 20:55
Bonjour,

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
0
Réponse 2 / 2
aiglon74 Messages postés 6 Date d'inscription mercredi 6 mai 2015 Statut Membre Dernière intervention 22 janvier 2016
6 mai 2015 à 21:21
Bonsoir Patrice33740

je viens de teste ton code
qui marche du tonnerre je te remercie vivement
après 2 ou 3 essais je débute en VBA
je peux passé a la suite de mon classeur
encore mille merci

cordialement
aiglon74
0

Discussions similaires

Mot de passe administrateur Freebox : où le trouver ?
Utilisateur anonyme -
Marie -

7 réponses
programme qui n'affiche pas le mot secret
EMy.chev -
yg_be -

3 réponses
Trouver le mot réellement écrit en lettres capitales PIX
ETHAN -
kirikou -

4 réponses