Microsoft 365 mode protéger

D

danielco

XLDnaute Accro

• 6 Octobre 2019

• #2

Bonjour,

Publie ton code, et précise l'endroit où ça bloque.

Cordialement.

Daniel

 

Vote positif 0 Vote négatif

L

lesoldat9

XLDnaute Occasionnel

• 6 Octobre 2019

• #3

Alors c'est que le début hein...

Sub consolider()

Dim y As String


x = InputBox("Indiquez l'année du fichier à consolider", "FORMAT AAAA")

y = InputBox("Indiquez le mois du fichier à consolider", "FORMAT MM")

Application.ScreenUpdating = False

'**************************************************************
'Ouverture du fichier "A consolider"
'**************************************************************

ChDir _
"C:\Users\ashle\Desktop\AXEL PRO\"

Workbooks.Open Filename:= _
"C:\Users\ashle\Desktop\AXEL PRO\BDXCAM_" & x & y & "01.xls" _
, Notify:=False


c'est ici que ca bloque à l'ouverture du fichier...

 

Vote positif 0 Vote négatif

D

danielco

XLDnaute Accro

• 6 Octobre 2019

• #4

Est-ce que tu peux ouvrir ce classeur manuellement ? Quelle est ta version d'Excel ? Et, quel est ton système d'Exploitation (Windows ou MacOS, ou autre).

Daniel

 

Vote positif 0 Vote négatif

L

lesoldat9

XLDnaute Occasionnel

• 6 Octobre 2019

• #5

oui je peux l'ouvrir manuellement. quand je l'ouvre manuellement il y a une barre "mode protégé" qui s'affiche...
j'utilise office 365 et je suis sur windows

 

Vote positif 0 Vote négatif

Staple1600

XLDnaute Barbatruc

• 6 Octobre 2019

• #6

Re

A la relecture, et vu l'extension du fichier à ouvrir
Va dans Options _> Centre de gestion de la confidentialité
et coche/décoche les cases idoines

 

Vote positif 0 Vote négatif

L

lesoldat9

XLDnaute Occasionnel

• 6 Octobre 2019

• #7

je peux le déprotéger manuellement dans les réglage " centre de gestion confidentialité" mais moi j'ai juste besoin de copier coller le fichier avec vba...
Et j'ai besoin de faire ceci sur une trentaine de fichier ....

 

Vote positif 0 Vote négatif

D

danielco

XLDnaute Accro

• 6 Octobre 2019

• #8

Le mode protégé t'empêche d'ouvrir en modification les fichiers en provenance d'internet (donc de ta messagerie). Si tu veux les ouvrir par VBA, il faut désactiver le mode protégé dans les options :
Fichier, Options, Centre de gestion de la confidentialité, Paramètres du centre de gestion de la confidentialité, Mode protégé.

Daniel

 

Vote positif 0 Vote négatif

L

lesoldat9

XLDnaute Occasionnel

• 6 Octobre 2019

• #9

En gros j'aimerai juste piquer les informations sans enlever la protection ... ou bien enlever la protection et remettre la protection à l'aide d'une formule ... si possible

 

Vote positif 0 Vote négatif

Staple1600

XLDnaute Barbatruc

• 6 Octobre 2019

• #10

Re

Fais la manip de déprotection manuelle tout en laissant tourner l'enregistreur de macros
Est-ce que tu obtiens du code VBA en relation avec le "centre de gestion confidentialité" ?

 

Vote positif 0 Vote négatif

D

danielco

XLDnaute Accro

• 6 Octobre 2019

• #11

J'ai trouvé ça sur stackoverflow :

VB:

Public Sub MySubroutine()
    Dim lSecurity As Long

    lSecurity = Application.AutomationSecurity
    Application.AutomationSecurity = msoAutomationSecurityLow

    '''''''''''''''''''''
    '   Run code here   '
    '''''''''''''''''''''

    Application.AutomationSecurity = lSecurity
End Sub

Daniel

 

Vote positif 0 Vote négatif

L

lesoldat9

XLDnaute Occasionnel

• 6 Octobre 2019

• #12

toujours le même message ...

 

Pièces jointes

• erreur.docx

  192.1 KB · Affichages: 6

Vote positif 0 Vote négatif

L

lesoldat9

XLDnaute Occasionnel

• 6 Octobre 2019

• #13

j'ai essayé ta manip aussi @Staple1600 aucun code ...

 

Vote positif 0 Vote négatif

Staple1600

XLDnaute Barbatruc

• 6 Octobre 2019

• #14

Re

lesoldat9
Je ne peux tester actuellement (cause version Excel)
Je laisse danielco (et/ou d'autres membres du forum) prendre le relais
Bon fin de dimanche

 

Vote positif 0 Vote négatif

D

danielco

XLDnaute Accro

• 6 Octobre 2019

• #15

C'est mes yeux, ou ce n'est pas le même message ? Si tu exécutes le code ligne à ligne, quel est la ligne qui provoque l'erreur ?

Daniel

 

Vote positif 0 Vote négatif