Private Sub ProteccionClasseur_Click()
If Sheets("Calculos")..ProtectContents Then
Sheets("Calculos")..Unprotect
Else
Sheets("Calculos")..Protect
End If
If Sheets("Plantas")..ProtectContents Then
Sheets("Plantas")..Unprotect
Else
Sheets("Plantas")..Protect
End If
End Sub