Comment savoir si un fichier Excel est ouvert en lecture seul
Salut!
Dans mon code, j'ouvre un fichier Excel mais je veux savoir s'il est en lecture seule car si je l'ouvre en lecture seule, je veux qu'un Msgbox s'affiche. Voici une partie du code:
Code:
1
2
3
4
5
6
7
8
9
10
11
12
13
|
Dim xlapp As Excel.Application
Dim xlsheet As Excel.Worksheet
Dim xlbook As Excel.Workbook
Dim i As Long
If Envoye.Value = False Then
Set x1app = CreateObject("Excel.Application")
x1app.Visible = True
Set x1book = x1app.Workbooks.Open("U:\Rapport de production\Data.xls")
x1app.Sheets("Data").Select
Set x1sheet = x1book.worksheets("Data")
end if |
Merci d'avance
