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

papy 73 ans

XLDnaute Occasionnel
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

XLDnaute Barbatruc
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)

XLDnaute Barbatruc
Bonjour à tous,
Voici une solution un légèrement différente.
Bruno
VB:
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
 

Créez un compte ou connectez vous pour répondre

Vous devez être membre afin de pouvoir répondre ici

Créer un compte

Créez un compte Excel Downloads. C'est simple!

Connexion

Vous avez déjà un compte? Connectez vous ici.

Haut Bas