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

Discussions similaires


Haut Bas