Tester si fichier ouvert ou l'afficher et déprotéger

[papy 73 ans]

Bonjour à tous,
A partit d'un fichier ouvert, comment par macro, tester si le classeur C:\ABC\Test.xls est ouvert
Si non : ouvrir ce fichier
Si oui : déprotéger le fichier (multi-utilisateurs) Nom : a Mdp : a
En vous remerciant

 

[sousou]

Bonsoir
Essaie quelque chose comme ceci:
Sub mamacro()
On Error Resume Next
set fich=Workbooks("test.xls")
If Err.Number = 9 Then Set fich = Workbook.Open("C:\ABC\Test.xls")
On Error GoTo 0
fich.Unprotect ("a")
End Sub

 

[youky(BJ)]

Bonjour à tous,
Voici une solution un légèrement différente.
Bruno

Sub TEST()
On Error Resume Next 'on g?re l'error
chemfich = "C:\ABC\Test.xls"
Workbooks("Test.xls").Activate 'si pas ouvert on va en error
If Err <> 0 Then Workbooks.Open (chemfich) 'on ouvre si err
ActiveWorkbook.Unprotect "a"
End Sub

 

[papy 73 ans]

Bonjour sousou, youky,
Je vous remercie c'est tout bon.
Bonne journée à vous