Voila j'ai un classeur contenant des cellules contenant des formules que j'aimerais protger contre toute modification, et pouvoir 'déprotéger' par un simple click.
j'ai deja vu ce sujet dans un fil précedent mais la façon de procéder n'etait pas expliquée
bonsoir,
j'avais récupéré un fichier sur le forum qui pourrait t'interesser, je ne me rappelle plus du lien donc je me permets de le renvoyer tel quel, avec un merci pour son auteur
esperant que cela t'aide
[file name=Verrouillage_20051203225414.zip size=9788]http://www.excel-downloads.com/components/com_simpleboard/uploaded/files/Verrouillage_20051203225414.zip[/file]
bonne soirée
Merci ccpapy l'exemple est tres bien mais je cherche autre chose, un petit click pour protéger et déproteger avec un meme bouton si possible et sans mot de passe
Merci de vos coups de mains
En plaçant un ToggleButton sur ta feuille et en y appliquant le code suivant, cela devrait correspondre à ta demande :
Code:
Private Sub ToggleButton1_Click()
With ToggleButton1
If .Value = False Then
.Caption = 'J'efface'
ActiveSheet.Unprotect
Else
.Caption = 'j'efface pas'
ActiveSheet.Protect
End If
End With
End Sub
Merci Eric C et JCGL
est ce possible JCGL (si j'en demande pas trop) que le meme bouton
puisse protéger et 'déprotéger' en meme temps??
En se transformant en 'verrouiller' quand les cellules ne sont pas protégées et vice versa en se transformant en déverrouiller dans le cas contraire
Eric C je ne suis pas encore trés familier avec ces codes mais merci quand meme
Merci Eric C et JCGL
est ce possible JCGL (si j'en demande pas trop) que le meme bouton
puisse protéger et 'déprotéger' en meme temps??
En se transformant en 'verrouiller' quand les cellules ne sont pas protégées et vice versa en se transformant en déverrouiller dans le cas contraire
Eric C je ne suis pas encore trés familier avec ces codes mais merci quand meme
Merci bcp c'est cela que je recherche mais Stp peux tu m'expliquer en deux ou trois lignes la façon de procéder et puis j'aimerais jouer avec la taille du 'TuggleButton' en le rendant un peu plus petit?
Merci encore pour le coup de pouce et a Bientot
Merci bcp c'est cela que je recherche mais Stp peux tu m'expliquer en deux ou trois lignes la façon de procéder et puis j'aimerais jouer avec la taille du 'TuggleButton' en le rendant un peu plus petit?
Merci encore pour le coup de pouce et a Bientot
Merci bcp c'est cela que je recherche mais Stp peux tu m'expliquer en deux ou trois lignes la façon de procéder et puis j'aimerais jouer avec la taille du 'TuggleButton' en le rendant un peu plus petit?
Merci encore pour le coup de pouce et a Bientot
Merci bcp c'est cela que je recherche mais Stp peux tu m'expliquer en deux ou trois lignes la façon de procéder et puis j'aimerais jouer avec la taille du 'TuggleButton' en le rendant un peu plus petit?
Merci encore pour le coup de pouce et a Bientot
Désolé mais je ne me connecte que de 18 à 19H50 et ce matin pas d'accès à mon PC suite problème matériel.
Dimension du contrôle :
Tu te places après le point d'interrogation de la barre de menus (Fichier / Edition ....) click droit - tu te places sur Visual Basic et clik gauche. Une barre de contrôle apparaît : Click gauche sur les outils entrecroisés puis de même sur l'équerre bleue. Tu te déplaces jusqu'à ton bouton et click gauche. A cet instant, apparaissent les poignées de dimensions de ton contrôles avec lesquelles tu vas pouvoir jouer.
Le code :
Private Sub ToggleButton1_Click()
With ToggleButton1
If .Value = False Then 'Si ton contrôle n'a pas été activé sa 'légende' est 'verrouiller' & la feuille non protégée sinon lors de l'activation, le contraire se produit... Pas bon prof mais bon.... :sick:
.Caption = 'Vérouiller'
ActiveSheet.Unprotect
Else
.Caption = 'dévérouiller'
ActiveSheet.Protect
End If
End With
End Sub