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.
Cordialement,
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