Microsoft 365 mode protéger

[lesoldat9]

Bonjour j'aimerai copier coller un fichier avec une formule vba mais le fichier en question est protégé...
Lors de l'ouverture du fichier à l'aide de ma macro j'ai une fenêtre "vous essayer d'ouvrir un type de fichier qui a été bloqué par les paramètres de blocage des fichiers du centre de gestion de confidentialité" ma question est ... est ce qu'il y a une formule avec laquelle je peux enlever cette protection et la remettre automatiquement?

 

[danielco]

Bonjour,

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

Cordialement.

Daniel

 

[lesoldat9]

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

 

[danielco]

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

 

[lesoldat9]

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

 

[Staple1600]

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

 

[lesoldat9]

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

 

[danielco]

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

 

[lesoldat9]

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

 

[Staple1600]

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é" ?

 

[danielco]

J'ai trouvé ça sur stackoverflow :

Public Sub MySubroutine()
    Dim lSecurity As Long

    lSecurity = Application.AutomationSecurity
    Application.AutomationSecurity = msoAutomationSecurityLow

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

    Application.AutomationSecurity = lSecurity
End Sub

Daniel

 

[lesoldat9]

toujours le même message ...

 

[lesoldat9]

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

 

[Staple1600]

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

 

[danielco]

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