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

papy 73 ans · 2 Décembre 2018

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 · 2 Décembre 2018

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) · 2 Décembre 2018

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

papy 73 ans · 4 Décembre 2018

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

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

papy 73 ans

XLDnaute Occasionnel

sousou

XLDnaute Barbatruc

youky(BJ)

XLDnaute Barbatruc

papy 73 ans

XLDnaute Occasionnel

Discussions similaires

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

papy 73 ans

XLDnaute Occasionnel

sousou

XLDnaute Barbatruc

youky(BJ)

XLDnaute Barbatruc

papy 73 ans

XLDnaute Occasionnel

Discussions similaires

Privacy & Transparency

Privacy & Transparency