Si votre email correspond à un compte, vous recevrez un lien de réinitialisation.
Je souhaite simplifier cette procédureEn fait en voici un peu plus afin de:
BonsoirJe souhaite simplifier cette procédure :je souhaite déprotéger des cellules d'une feuille par simple clicJe vous remercie beaucoupDidierSub Déprotection_constantes()Application.ScreenUpdating = FalseSheets("Liste").SelectActiveSheet.Unprotect Password:="toto"Range("C2:C12").SelectSelection.Locked = FalseSelection.FormulaHidden = FalseActiveSheet.Protect Password:="toto", DrawingObjects:=True,Contents:=True, Scenarios:=TrueApplication.ScreenUpdating = TrueEnd Sub
Je souhaite simplifier cette procédure En fait en voici un peu plus afin de:
Bonsoir Je souhaite simplifier cette procédure : je souhaite déprotéger des cellules d'une feuille par simple clic Je vous remercie beaucoup Didier Sub Déprotection_constantes() Application.ScreenUpdating = False Sheets("Liste").Select ActiveSheet.Unprotect Password:="toto" Range("C2:C12").Select Selection.Locked = False Selection.FormulaHidden = False ActiveSheet.Protect Password:="toto", DrawingObjects:=True, Contents:=True, Scenarios:=True Application.ScreenUpdating = True End Sub
Bonsoir,Je souhaite simplifier cette procédureEn fait en voici un peu plus afin de:Pouvoir reverrouillerNe pas être obligé de déprotèger reprotèger (pouvoir agir par macro :limiter la protection à userinterfaceonly)'''''*****dans thisworkbook ****Private Sub Workbook_open()Feuil1.Protect Password:="toto", userinterfaceonly:=TrueEnd Sub'''''*****dans module*****Sub deverr()Range("C2:C12").SelectSelection.Locked = FalseSelection.FormulaHidden = FalseEnd SubSub verr()Range("C2:C12").SelectSelection.Locked = TrueSelection.FormulaHidden = TrueEnd Sub'''''*****'lSteph"Didier Novarin" a écrit dans le message denews: BonsoirJe souhaite simplifier cette procédure :je souhaite déprotéger des cellules d'une feuille par simple clicJe vous remercie beaucoupDidierSub Déprotection_constantes()Application.ScreenUpdating = FalseSheets("Liste").SelectActiveSheet.Unprotect Password:="toto"Range("C2:C12").SelectSelection.Locked = FalseSelection.FormulaHidden = FalseActiveSheet.Protect Password:="toto", DrawingObjects:=True,Contents:=True, Scenarios:=TrueApplication.ScreenUpdating = TrueEnd Sub
Bonsoir, Je souhaite simplifier cette procédure En fait en voici un peu plus afin de: Pouvoir reverrouiller Ne pas être obligé de déprotèger reprotèger (pouvoir agir par macro : limiter la protection à userinterfaceonly) '''''*****dans thisworkbook **** Private Sub Workbook_open() Feuil1.Protect Password:="toto", userinterfaceonly:=True End Sub '''''*****dans module***** Sub deverr() Range("C2:C12").Select Selection.Locked = False Selection.FormulaHidden = False End Sub Sub verr() Range("C2:C12").Select Selection.Locked = True Selection.FormulaHidden = True End Sub '''''***** 'lSteph "Didier Novarin" <didier.n@club-internet.fr> a écrit dans le message de news: e1olHlIcGHA.4604@TK2MSFTNGP02.phx.gbl... Bonsoir Je souhaite simplifier cette procédure : je souhaite déprotéger des cellules d'une feuille par simple clic Je vous remercie beaucoup Didier Sub Déprotection_constantes() Application.ScreenUpdating = False Sheets("Liste").Select ActiveSheet.Unprotect Password:="toto" Range("C2:C12").Select Selection.Locked = False Selection.FormulaHidden = False ActiveSheet.Protect Password:="toto", DrawingObjects:=True, Contents:=True, Scenarios:=True Application.ScreenUpdating = True End Sub