protéger et Oté une feuil excel

[akramenergie]

Bonjour le forums

je voudrais a travére une Macro excel protéger et oté une feuil excel nomé "syntése" avec un mot de passe "titi"

je sait le faire par le menu excel mais pas par une macro

Merci pour votre aide

 

[Pierrot93]

Re : protéger et Oté une feuil excel

Bonsoir,

pas sûr d'avoir très bien compris ton problème, mais pour protéger une feuille :

Sheets("synthèse").Protect "titi"

pour la déprotéger :

Sheets("synthèse").Unprotect "titi"

bonne soirée
@+

 

[laetitia90]

Re : protéger et Oté une feuil excel

bonjour akramenergie,Pierrot93
ou encore!!

Worksheets("synthèse").Unprotect Password:="code"
'ton code
Worksheets("synthèse").Protect Password:="code"

pour l'ami pierrot pourquoi bonsoir & bonne soirée tu es ou??

 

[akramenergie]

Re : protéger et Oté une feuil excel

parfait laetitia90 ca marche.

sauf que moi je veut juste faire la protéction de la ligne 4 jusqu'a 100 ??
comment je pourais présosé sa ?

 

[Pierrot93]

Re : protéger et Oté une feuil excel

Re, bonsoir Laetitia

essaye ainsi, à exécuter sur feuille non protégée :

Rows.Cells.Locked = False
Rows("4:100").Cells.Locked = True
Sheets("synthèse").Protect "titi"

@+

 

[laetitia90]

Re : protéger et Oté une feuil excel

rebonjour akramenergie,Pierrot

une autre méthode a adapter

Sub protege()
  On Error Resume Next 'en cas ou deja proteger pour faire simple
  With Sheets("synthèse")
.Cells.Locked = False
.Rows("4:100").Locked = True
.protect Password:="titi", DrawingObjects:=True, Contents:=True, Scenarios:=True
  End With
End Sub

Sub deprotege()
  With Sheets("synthèse")
   .unprotect Password:="titi"
  End With
End Sub