deprotege feuille par mot de passe Résolu/Fermé

Question

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

Patrice33740 · Answer

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

aiglon74 · Answer

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

Deprotege feuille par mot de passe

2 réponses

Discussions similaires