Macro excel protection déprotection
boullitt
Messages postés
1
Date d'inscription
Statut
Membre
Dernière intervention
-
f894009 Messages postés 17277 Date d'inscription Statut Membre Dernière intervention -
f894009 Messages postés 17277 Date d'inscription Statut Membre Dernière intervention -
Bonjour à tous,
J'ai ressorti une ancien macro Excel qui ne fonctionne plus Objet manquant code erreur 424
Si quelqu'un peut m'aider .ça bogue l'instruction souligné. Merci d'avance
Sub ToggleButton1_Click()
Dim MdP As String
If ToggleButton1 = True Then
ToggleButton1.Interior.ColorIndex = 3
Sheets("Feuil1").Protect "alain"
ToggleButton1.BackColor = &HFF&
ToggleButton1.Caption = "Déprotection"
Else
MdP = InputBox("Mot de passe ?", "Déblocage de la feuille")
If MdP = "alain" Then
Sheets("Feuil1").Unprotect "alain"
ToggleButton1.BackColor = &HFF00&
ToggleButton1.Caption = "Protection"
End If
End If
End Sub
J'ai ressorti une ancien macro Excel qui ne fonctionne plus Objet manquant code erreur 424
Si quelqu'un peut m'aider .ça bogue l'instruction souligné. Merci d'avance
Sub ToggleButton1_Click()
Dim MdP As String
If ToggleButton1 = True Then
ToggleButton1.Interior.ColorIndex = 3
Sheets("Feuil1").Protect "alain"
ToggleButton1.BackColor = &HFF&
ToggleButton1.Caption = "Déprotection"
Else
MdP = InputBox("Mot de passe ?", "Déblocage de la feuille")
If MdP = "alain" Then
Sheets("Feuil1").Unprotect "alain"
ToggleButton1.BackColor = &HFF00&
ToggleButton1.Caption = "Protection"
End If
End If
End Sub
A voir également:
- Macro excel protection déprotection
- Telecharger macro convertir chiffre en lettre excel - Télécharger - Tableur
- Liste déroulante excel - Guide
- Word et excel gratuit - Guide
- Déplacer colonne excel - Guide
- Protection cellule excel - Guide
