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

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

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

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
 
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+++
 
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
 
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å
 
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
 
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD
Assurez vous de marquer un message comme solution pour une meilleure transparence.

Discussions similaires

Réponses
2
Affichages
734
Retour