Protéger une feuille à la fin d une macro avant de sauver...

[Thibaut]

Bonjour le forum,
comme l indique le titre, j aimerais qu à la fin de ma macro, juste avant que la macro n effectue la sauvegarde... J ai bien une petite idée mais je préfère les lanternes éclairées des spécialistes du forum.

Voici ce que j avais en tête:

ActiveSheet.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True

Mais ça ne protège que la feuille active, hors moi j aimerais que tout le classeur soit protégé contre l écriture. Dois-je remplace ActiveSheet par ActiveWorkBook???

D'avance un grand merci au forum

Bonne fin d aprèm

Thibaut

 

[zon]

Salut Thibaut
Voilà un code que j'utilise souvent qui permet de faire ce que tu demandes, l'application permet d'éviter de voir toutes les feuilles apparaitrent à l'écran



' macro qui protège le classeur
Sub protect()
dim n as integer
Application.ScreenUpdating = False
ActiveWorkbook.protect password:="tonmotdepasse"
For n = 1 To Sheets.Count
Worksheets(n).protect password:="ton mot de passe", _ DrawingObjects:=True, Contents:=True, Scenarios:=True
Next n
Application.ScreenUpdating = True
End Sub


Pour déproteger, tu remplaces protect par unprotect


A+++

 

[kiorys]

slt Thibaut

pour proteger ta feuille tu dois egalement proteger ton classeur.
voici le code pour la feuille active (rajoute le meme code pour les feuilles que tu veux proteger: sheets(n).protect.....)


ActiveSheet.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True
ActiveWorkbook.Protect Structure:=True, Windows:=False

en esperant que ma petite lanterne te suffise
Kiorys

 

[Mytå]

Bonjour le forum

Option Explicit
Sub Protection()
Dim nombre As Integer, i As Integer
nombre = ActiveWorkbook.Sheets.Count
For i = 1 To nombre
Worksheets(i).Protect DrawingObjects:=True, Contents:=True, Scenarios:=True
Next i
ActiveWorkbook.Protect Structure:=True, Windows:=True
End Sub

protege les feuilles et ensuite le classeur


Mytå

 

[A_Binouze_Drinker_Among_Others]

bonjour


dans la boîte enregistrer sous, tu as un bouton Options, qui te permettra de protéger l'accès en écriture

bye
stephane

 

[Thibaut]

Merci à tous... j ai trouvé mon bonheur... Pour Stéphane: ça je connaissais déjà ;o) mais il fallait que cela se fasse automatiquement dans ma macro... mais merci quand même

Bonne journée