Unprotect ne fonctionne pas dans l'event Workbook open

[Taggart]

Bonjour,
Je bute sur le problème suivant:
En ouvrant manuellement le classeur1.xls contenant le code ci-dessous et dont la feuille 1 est protégée, le classeur s'ouvre normalement et déprotège la feuille 1 comme prévu.
Private Sub Workbook_Open()
ThisWorkbook.sheets("Feuill1").Unprotect
End Sub

En revanche, si j'ouvre ce classeur à partir d'un autre classeur avec la macro ci-dessous, la fonction unprotect ne marche plus et la feuille 1 reste protégée (sans que VBA détecte une erreur pour autant).
Sub Macro1()
Workbooks.Open Filename:="Desktop:Classeur1.xls"
End Sub

Je précise que ce problème ne se rencontre que sur Mac et non sur PC. Quelqu'un a t-il une explication?
merci
Taggart
(Mac office 2004 v 11.5.8 sur imac)

 

[repcheks]

Re : Unprotect ne fonctionne pas dans l'event Workbook open

Je n'ai jamais testé office mac, mais j'avais eu un probleme similaire sous windows, en ouvrant le classeur depuis un autre déja existant, certains evenement dans les modules de feuille n'etaient pas pris en compte

du coup je contournais ca en ouvrant une nouvelle instance d'excel

Sub Macro1()

Dim XlApp as Excel.Application
Dim Source, Cible as Workbook

Set Source=Activeworkbook
Set XlApp= New Excel.application
set Cible = xlapp.workbooks.open filename:="Desktop:Classeur1.xls"

End Sub

A voir si ca fonctionne chez toi

 

[repcheks]

Re : Unprotect ne fonctionne pas dans l'event Workbook open

Ah, il faut preciser

xlapp.visible=true

car par défaut je crois que l'option est sur false