Bonjour,
je crée mes premiers formulaires en vba afin de compléter un tableau de stock.
J'ai protégé mes feuilles avec user interface only afin de pouvoir exécuter mes macros sans déprotéger à chaque fois, seulement la mise à jour de mon tableau croisé dynamique ne se fait pas . Je n'ai pas de message d'erreur mais les nouvelles entrée ne sont pas prises en compte. Je ne trouve pas quelle propriété rajouter.Le code fonctionne si je déprotège la feuille contenant le tdc avant la mise à jour.
Merci de votre aide.
voici comment je protège :
Private Sub Workbook_Open()
Dim mdp As String
mdp = "toto"
Worksheets("stock").protect mdp, userinterfaceonly:=True, DrawingObjects:=False, Contents:=True, Scenarios:= _
True, AllowFiltering:=True, AllowUsingPivotTables:=True
Worksheets("bilan").protect mdp, userinterfaceonly:=True, DrawingObjects:=False, Contents:=True, Scenarios:= _
True, AllowFiltering:=True, AllowUsingPivotTables:=True
et comment je mets à jour :
ActiveWorkbook.RefreshAll
je crée mes premiers formulaires en vba afin de compléter un tableau de stock.
J'ai protégé mes feuilles avec user interface only afin de pouvoir exécuter mes macros sans déprotéger à chaque fois, seulement la mise à jour de mon tableau croisé dynamique ne se fait pas . Je n'ai pas de message d'erreur mais les nouvelles entrée ne sont pas prises en compte. Je ne trouve pas quelle propriété rajouter.Le code fonctionne si je déprotège la feuille contenant le tdc avant la mise à jour.
Merci de votre aide.
voici comment je protège :
Private Sub Workbook_Open()
Dim mdp As String
mdp = "toto"
Worksheets("stock").protect mdp, userinterfaceonly:=True, DrawingObjects:=False, Contents:=True, Scenarios:= _
True, AllowFiltering:=True, AllowUsingPivotTables:=True
Worksheets("bilan").protect mdp, userinterfaceonly:=True, DrawingObjects:=False, Contents:=True, Scenarios:= _
True, AllowFiltering:=True, AllowUsingPivotTables:=True
et comment je mets à jour :
ActiveWorkbook.RefreshAll