Ceci est une page optimisée pour les mobiles. Cliquez sur ce texte pour afficher la vraie page.

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

  • Initiateur de la discussion Thibaut
  • Date de début
T

Thibaut

Guest
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
 
Z

zon

Guest
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+++
 
K

kiorys

Guest
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
 
M

Mytå

Guest
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

A_Binouze_Drinker_Among_Others

Guest
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
 
T

Thibaut

Guest
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
 

Discussions similaires

Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…