XL 2019 protection de feuille par macro

Olocsob

XLDnaute Nouveau
Bonjour à tous,

je possède un fichier simple visant à actualiser un graphique par une macro en déprotégeant la feuille (avec la demande du mot de passe), actualise l'entièreté de mon fichier puis la reprotège. Le problème est que lors de la reprotection l'exigence du mot de passe disparait. Que devrais-je ajouter à mon code pour que le mot de passe soit réinstallé (1234 par exemple) ?

Je possède actuellement le code ci-dessous.
VB:
Sub ActualisationTCD1()

    Application.ScreenUpdating = False
    ActiveSheet.Unprotect
    Range("V23:X500").Select
    ActiveWorkbook.RefreshAll
    Range("D24").Select
    ActiveSheet.Protect DrawingObjects:=False, Contents:=True, Scenarios:= _
        False, AllowFormattingCells:=True, AllowFormattingRows:=True, AllowSorting _
        :=True, AllowFiltering:=True, AllowUsingPivotTables:=True
    Application.ScreenUpdating = True
End Sub
Cordialement,
 

Olocsob

XLDnaute Nouveau
Bonjour,

cela parait logique que si vous ne mettez pas de mot de passe en attribut de la fonction, il va protéger sans mot de passe.

ps : le unprotect peut aussi se faire en lui donnant le Mdp dans le code.
C'es parfait j'ai juste mal effectuer mes recherches ! Désolé pour la gêne occasionnée...
@+
 

Discussions similaires

Réponses
2
Affichages
590

Statistiques des forums

Discussions
299 841
Messages
1 979 470
Membres
206 744
dernier inscrit
Nicolas258