morpheus92
XLDnaute Nouveau
jai cherché par tout et je n'arrive pas a trouver comment faire une macro qui;
Private Sub ProteccionClasseur_Click()
If Sheets("Calculos").Protect Then Sheets("Calculos").Unprotect
If Sheets("Plantas").Protect Then Sheets("Plantas").Unprotect
OR
If Sheets("Calculos").Unprotect Then Sheets("Calculos").Protect
If Sheets("Plantas").Unprotect Then Sheets("Plantas").Protect
End Sub
Le but c'est > 1 click à un button
et: si feuilles verouillées -> Deverouiller
si feuilles deverouillées -> verouiller
Merci!
Private Sub ProteccionClasseur_Click()
If Sheets("Calculos").Protect Then Sheets("Calculos").Unprotect
If Sheets("Plantas").Protect Then Sheets("Plantas").Unprotect
OR
If Sheets("Calculos").Unprotect Then Sheets("Calculos").Protect
If Sheets("Plantas").Unprotect Then Sheets("Plantas").Protect
End Sub
Le but c'est > 1 click à un button
et: si feuilles verouillées -> Deverouiller
si feuilles deverouillées -> verouiller
Merci!