Bonjour a tous (office 2002)
Dans le but de valider le statu de l'ouverture de mon chiffrier excel
protégé (lecture seul, lecture-écriture), j'ai intégré cette fonction puiser
du site excelabo.net/xl/
"Function LectureSeule(FileName As String) As Boolean
Dim Fs As Object, St As Integer
Set Fs = CreateObject("Scripting.FileSystemObject")
Set f = Fs.GetFile(FileName)
St = f.Attributes
If St = 1 Or St = 33 Then
LectureSeule = True
Else
LectureSeule = False
End If
End Function
"
je réalise que peut importe l'option choisie au moment de l'ouverture, au
moment de passer cette fonction la variable "St" est toujours éguale a 32.
donc au retour dans Private Sub Workbook_Open ()
la ligne "LectureSeul(ActiveWorkbook.FullName) " est toujours égale "False"
Quelqu'un peut me dire pourquoi ?
Merci à l'avance
Mario
Bonjour a tous (office 2002)
Dans le but de valider le statu de l'ouverture de mon chiffrier excel
protégé (lecture seul, lecture-écriture), j'ai intégré cette fonction puiser
du site excelabo.net/xl/
"Function LectureSeule(FileName As String) As Boolean
Dim Fs As Object, St As Integer
Set Fs = CreateObject("Scripting.FileSystemObject")
Set f = Fs.GetFile(FileName)
St = f.Attributes
If St = 1 Or St = 33 Then
LectureSeule = True
Else
LectureSeule = False
End If
End Function
"
je réalise que peut importe l'option choisie au moment de l'ouverture, au
moment de passer cette fonction la variable "St" est toujours éguale a 32.
donc au retour dans Private Sub Workbook_Open ()
la ligne "LectureSeul(ActiveWorkbook.FullName) " est toujours égale "False"
Quelqu'un peut me dire pourquoi ?
Merci à l'avance
Mario
Bonjour a tous (office 2002)
Dans le but de valider le statu de l'ouverture de mon chiffrier excel
protégé (lecture seul, lecture-écriture), j'ai intégré cette fonction puiser
du site excelabo.net/xl/
"Function LectureSeule(FileName As String) As Boolean
Dim Fs As Object, St As Integer
Set Fs = CreateObject("Scripting.FileSystemObject")
Set f = Fs.GetFile(FileName)
St = f.Attributes
If St = 1 Or St = 33 Then
LectureSeule = True
Else
LectureSeule = False
End If
End Function
"
je réalise que peut importe l'option choisie au moment de l'ouverture, au
moment de passer cette fonction la variable "St" est toujours éguale a 32.
donc au retour dans Private Sub Workbook_Open ()
la ligne "LectureSeul(ActiveWorkbook.FullName) " est toujours égale "False"
Quelqu'un peut me dire pourquoi ?
Merci à l'avance
Mario
Bonsoir,
None -> 0 -> Aucun attribut
ReadOnly -> 1 -> Fichier en lecture seule (RW)
Hidden -> 2 -> Fichier caché (RW)
System -> 4 -> Fichier système (RW)
Volume -> 8 -> Étiquette de volume de lecteur de disque (R)
Directory -> 16 -> Dossier ou répertoire (R)
Archive -> 32 -> fichier modifié depuis la dernière sauvegarde (RW)
Alias -> 64 -> Lien ou raccourci (R)
Compressed -> 128 -> Fichier compressé (R)
(R) -> lecture seule
(RW) -> lecture & écriture
@+
FxMBonjour a tous (office 2002)
Dans le but de valider le statu de l'ouverture de mon chiffrier excel
protégé (lecture seul, lecture-écriture), j'ai intégré cette fonction
puiser du site excelabo.net/xl/
"Function LectureSeule(FileName As String) As Boolean
Dim Fs As Object, St As Integer
Set Fs = CreateObject("Scripting.FileSystemObject")
Set f = Fs.GetFile(FileName)
St = f.Attributes
If St = 1 Or St = 33 Then
LectureSeule = True
Else
LectureSeule = False
End If
End Function
"
je réalise que peut importe l'option choisie au moment de l'ouverture,
au moment de passer cette fonction la variable "St" est toujours
éguale a 32.
donc au retour dans Private Sub Workbook_Open ()
la ligne "LectureSeul(ActiveWorkbook.FullName) " est toujours égale
"False"
Quelqu'un peut me dire pourquoi ?
Merci à l'avance
Mario
Bonsoir,
None -> 0 -> Aucun attribut
ReadOnly -> 1 -> Fichier en lecture seule (RW)
Hidden -> 2 -> Fichier caché (RW)
System -> 4 -> Fichier système (RW)
Volume -> 8 -> Étiquette de volume de lecteur de disque (R)
Directory -> 16 -> Dossier ou répertoire (R)
Archive -> 32 -> fichier modifié depuis la dernière sauvegarde (RW)
Alias -> 64 -> Lien ou raccourci (R)
Compressed -> 128 -> Fichier compressé (R)
(R) -> lecture seule
(RW) -> lecture & écriture
@+
FxM
Bonjour a tous (office 2002)
Dans le but de valider le statu de l'ouverture de mon chiffrier excel
protégé (lecture seul, lecture-écriture), j'ai intégré cette fonction
puiser du site excelabo.net/xl/
"Function LectureSeule(FileName As String) As Boolean
Dim Fs As Object, St As Integer
Set Fs = CreateObject("Scripting.FileSystemObject")
Set f = Fs.GetFile(FileName)
St = f.Attributes
If St = 1 Or St = 33 Then
LectureSeule = True
Else
LectureSeule = False
End If
End Function
"
je réalise que peut importe l'option choisie au moment de l'ouverture,
au moment de passer cette fonction la variable "St" est toujours
éguale a 32.
donc au retour dans Private Sub Workbook_Open ()
la ligne "LectureSeul(ActiveWorkbook.FullName) " est toujours égale
"False"
Quelqu'un peut me dire pourquoi ?
Merci à l'avance
Mario
Bonsoir,
None -> 0 -> Aucun attribut
ReadOnly -> 1 -> Fichier en lecture seule (RW)
Hidden -> 2 -> Fichier caché (RW)
System -> 4 -> Fichier système (RW)
Volume -> 8 -> Étiquette de volume de lecteur de disque (R)
Directory -> 16 -> Dossier ou répertoire (R)
Archive -> 32 -> fichier modifié depuis la dernière sauvegarde (RW)
Alias -> 64 -> Lien ou raccourci (R)
Compressed -> 128 -> Fichier compressé (R)
(R) -> lecture seule
(RW) -> lecture & écriture
@+
FxMBonjour a tous (office 2002)
Dans le but de valider le statu de l'ouverture de mon chiffrier excel
protégé (lecture seul, lecture-écriture), j'ai intégré cette fonction
puiser du site excelabo.net/xl/
"Function LectureSeule(FileName As String) As Boolean
Dim Fs As Object, St As Integer
Set Fs = CreateObject("Scripting.FileSystemObject")
Set f = Fs.GetFile(FileName)
St = f.Attributes
If St = 1 Or St = 33 Then
LectureSeule = True
Else
LectureSeule = False
End If
End Function
"
je réalise que peut importe l'option choisie au moment de l'ouverture,
au moment de passer cette fonction la variable "St" est toujours
éguale a 32.
donc au retour dans Private Sub Workbook_Open ()
la ligne "LectureSeul(ActiveWorkbook.FullName) " est toujours égale
"False"
Quelqu'un peut me dire pourquoi ?
Merci à l'avance
Mario
Bonjour a tous (office 2002)
Dans le but de valider le statu de l'ouverture de mon chiffrier excel
protégé (lecture seul, lecture-écriture), j'ai intégré cette fonction
puiser
du site excelabo.net/xl/
"Function LectureSeule(FileName As String) As Boolean
Dim Fs As Object, St As Integer
Set Fs = CreateObject("Scripting.FileSystemObject")
Set f = Fs.GetFile(FileName)
St = f.Attributes
If St = 1 Or St = 33 Then
LectureSeule = True
Else
LectureSeule = False
End If
End Function
"
je réalise que peut importe l'option choisie au moment de l'ouverture, au
moment de passer cette fonction la variable "St" est toujours éguale a 32.
donc au retour dans Private Sub Workbook_Open ()
la ligne "LectureSeul(ActiveWorkbook.FullName) " est toujours égale
"False"
Quelqu'un peut me dire pourquoi ?
Merci à l'avance
Mario
Bonjour a tous (office 2002)
Dans le but de valider le statu de l'ouverture de mon chiffrier excel
protégé (lecture seul, lecture-écriture), j'ai intégré cette fonction
puiser
du site excelabo.net/xl/
"Function LectureSeule(FileName As String) As Boolean
Dim Fs As Object, St As Integer
Set Fs = CreateObject("Scripting.FileSystemObject")
Set f = Fs.GetFile(FileName)
St = f.Attributes
If St = 1 Or St = 33 Then
LectureSeule = True
Else
LectureSeule = False
End If
End Function
"
je réalise que peut importe l'option choisie au moment de l'ouverture, au
moment de passer cette fonction la variable "St" est toujours éguale a 32.
donc au retour dans Private Sub Workbook_Open ()
la ligne "LectureSeul(ActiveWorkbook.FullName) " est toujours égale
"False"
Quelqu'un peut me dire pourquoi ?
Merci à l'avance
Mario
Bonjour a tous (office 2002)
Dans le but de valider le statu de l'ouverture de mon chiffrier excel
protégé (lecture seul, lecture-écriture), j'ai intégré cette fonction
puiser
du site excelabo.net/xl/
"Function LectureSeule(FileName As String) As Boolean
Dim Fs As Object, St As Integer
Set Fs = CreateObject("Scripting.FileSystemObject")
Set f = Fs.GetFile(FileName)
St = f.Attributes
If St = 1 Or St = 33 Then
LectureSeule = True
Else
LectureSeule = False
End If
End Function
"
je réalise que peut importe l'option choisie au moment de l'ouverture, au
moment de passer cette fonction la variable "St" est toujours éguale a 32.
donc au retour dans Private Sub Workbook_Open ()
la ligne "LectureSeul(ActiveWorkbook.FullName) " est toujours égale
"False"
Quelqu'un peut me dire pourquoi ?
Merci à l'avance
Mario
Bonsoir,
None -> 0 -> Aucun attribut
ReadOnly -> 1 -> Fichier en lecture seule (RW)
Hidden -> 2 -> Fichier caché (RW)
System -> 4 -> Fichier système (RW)
Volume -> 8 -> Étiquette de volume de lecteur de disque (R)
Directory -> 16 -> Dossier ou répertoire (R)
Archive -> 32 -> fichier modifié depuis la dernière sauvegarde (RW)
Alias -> 64 -> Lien ou raccourci (R)
Compressed -> 128 -> Fichier compressé (R)
(R) -> lecture seule
(RW) -> lecture & écriture
@+
FxMBonjour a tous (office 2002)
Dans le but de valider le statu de l'ouverture de mon chiffrier excel
protégé (lecture seul, lecture-écriture), j'ai intégré cette fonction
puiser du site excelabo.net/xl/
"Function LectureSeule(FileName As String) As Boolean
Dim Fs As Object, St As Integer
Set Fs = CreateObject("Scripting.FileSystemObject")
Set f = Fs.GetFile(FileName)
St = f.Attributes
If St = 1 Or St = 33 Then
LectureSeule = True
Else
LectureSeule = False
End If
End Function
"
je réalise que peut importe l'option choisie au moment de l'ouverture, au
moment de passer cette fonction la variable "St" est toujours éguale a
32.
donc au retour dans Private Sub Workbook_Open ()
la ligne "LectureSeul(ActiveWorkbook.FullName) " est toujours égale
"False"
Quelqu'un peut me dire pourquoi ?
Merci à l'avance
Mario
Bonsoir,
None -> 0 -> Aucun attribut
ReadOnly -> 1 -> Fichier en lecture seule (RW)
Hidden -> 2 -> Fichier caché (RW)
System -> 4 -> Fichier système (RW)
Volume -> 8 -> Étiquette de volume de lecteur de disque (R)
Directory -> 16 -> Dossier ou répertoire (R)
Archive -> 32 -> fichier modifié depuis la dernière sauvegarde (RW)
Alias -> 64 -> Lien ou raccourci (R)
Compressed -> 128 -> Fichier compressé (R)
(R) -> lecture seule
(RW) -> lecture & écriture
@+
FxM
Bonjour a tous (office 2002)
Dans le but de valider le statu de l'ouverture de mon chiffrier excel
protégé (lecture seul, lecture-écriture), j'ai intégré cette fonction
puiser du site excelabo.net/xl/
"Function LectureSeule(FileName As String) As Boolean
Dim Fs As Object, St As Integer
Set Fs = CreateObject("Scripting.FileSystemObject")
Set f = Fs.GetFile(FileName)
St = f.Attributes
If St = 1 Or St = 33 Then
LectureSeule = True
Else
LectureSeule = False
End If
End Function
"
je réalise que peut importe l'option choisie au moment de l'ouverture, au
moment de passer cette fonction la variable "St" est toujours éguale a
32.
donc au retour dans Private Sub Workbook_Open ()
la ligne "LectureSeul(ActiveWorkbook.FullName) " est toujours égale
"False"
Quelqu'un peut me dire pourquoi ?
Merci à l'avance
Mario
Bonsoir,
None -> 0 -> Aucun attribut
ReadOnly -> 1 -> Fichier en lecture seule (RW)
Hidden -> 2 -> Fichier caché (RW)
System -> 4 -> Fichier système (RW)
Volume -> 8 -> Étiquette de volume de lecteur de disque (R)
Directory -> 16 -> Dossier ou répertoire (R)
Archive -> 32 -> fichier modifié depuis la dernière sauvegarde (RW)
Alias -> 64 -> Lien ou raccourci (R)
Compressed -> 128 -> Fichier compressé (R)
(R) -> lecture seule
(RW) -> lecture & écriture
@+
FxMBonjour a tous (office 2002)
Dans le but de valider le statu de l'ouverture de mon chiffrier excel
protégé (lecture seul, lecture-écriture), j'ai intégré cette fonction
puiser du site excelabo.net/xl/
"Function LectureSeule(FileName As String) As Boolean
Dim Fs As Object, St As Integer
Set Fs = CreateObject("Scripting.FileSystemObject")
Set f = Fs.GetFile(FileName)
St = f.Attributes
If St = 1 Or St = 33 Then
LectureSeule = True
Else
LectureSeule = False
End If
End Function
"
je réalise que peut importe l'option choisie au moment de l'ouverture, au
moment de passer cette fonction la variable "St" est toujours éguale a
32.
donc au retour dans Private Sub Workbook_Open ()
la ligne "LectureSeul(ActiveWorkbook.FullName) " est toujours égale
"False"
Quelqu'un peut me dire pourquoi ?
Merci à l'avance
Mario
En complément :
* ces codes concernent les attributs d'un fichier écrit sur un disque et
non le statut du fichier à l'ouverture,
* Pour parer à d'autres éventualités, je te recommanderai de préférer un
st mod 2 = 1 à if st = ....
* t'occupes-tu du bon fichier ?
* Excel place-t-il l'attribut readonly lorsqu'il ouvre un fichier (pas
sûr)
* Enfin si ton st est pair, c'est que le fichier sur disque n'est pas en
lecture seule !
@+
FxMBonsoir,
None -> 0 -> Aucun attribut
ReadOnly -> 1 -> Fichier en lecture seule (RW)
Hidden -> 2 -> Fichier caché (RW)
System -> 4 -> Fichier système (RW)
Volume -> 8 -> Étiquette de volume de lecteur de disque (R)
Directory -> 16 -> Dossier ou répertoire (R)
Archive -> 32 -> fichier modifié depuis la dernière sauvegarde (RW)
Alias -> 64 -> Lien ou raccourci (R)
Compressed -> 128 -> Fichier compressé (R)
(R) -> lecture seule
(RW) -> lecture & écriture
@+
FxMBonjour a tous (office 2002)
Dans le but de valider le statu de l'ouverture de mon chiffrier excel
protégé (lecture seul, lecture-écriture), j'ai intégré cette fonction
puiser du site excelabo.net/xl/
"Function LectureSeule(FileName As String) As Boolean
Dim Fs As Object, St As Integer
Set Fs = CreateObject("Scripting.FileSystemObject")
Set f = Fs.GetFile(FileName)
St = f.Attributes
If St = 1 Or St = 33 Then
LectureSeule = True
Else
LectureSeule = False
End If
End Function
"
je réalise que peut importe l'option choisie au moment de l'ouverture,
au moment de passer cette fonction la variable "St" est toujours éguale
a 32.
donc au retour dans Private Sub Workbook_Open ()
la ligne "LectureSeul(ActiveWorkbook.FullName) " est toujours égale
"False"
Quelqu'un peut me dire pourquoi ?
Merci à l'avance
Mario
En complément :
* ces codes concernent les attributs d'un fichier écrit sur un disque et
non le statut du fichier à l'ouverture,
* Pour parer à d'autres éventualités, je te recommanderai de préférer un
st mod 2 = 1 à if st = ....
* t'occupes-tu du bon fichier ?
* Excel place-t-il l'attribut readonly lorsqu'il ouvre un fichier (pas
sûr)
* Enfin si ton st est pair, c'est que le fichier sur disque n'est pas en
lecture seule !
@+
FxM
Bonsoir,
None -> 0 -> Aucun attribut
ReadOnly -> 1 -> Fichier en lecture seule (RW)
Hidden -> 2 -> Fichier caché (RW)
System -> 4 -> Fichier système (RW)
Volume -> 8 -> Étiquette de volume de lecteur de disque (R)
Directory -> 16 -> Dossier ou répertoire (R)
Archive -> 32 -> fichier modifié depuis la dernière sauvegarde (RW)
Alias -> 64 -> Lien ou raccourci (R)
Compressed -> 128 -> Fichier compressé (R)
(R) -> lecture seule
(RW) -> lecture & écriture
@+
FxM
Bonjour a tous (office 2002)
Dans le but de valider le statu de l'ouverture de mon chiffrier excel
protégé (lecture seul, lecture-écriture), j'ai intégré cette fonction
puiser du site excelabo.net/xl/
"Function LectureSeule(FileName As String) As Boolean
Dim Fs As Object, St As Integer
Set Fs = CreateObject("Scripting.FileSystemObject")
Set f = Fs.GetFile(FileName)
St = f.Attributes
If St = 1 Or St = 33 Then
LectureSeule = True
Else
LectureSeule = False
End If
End Function
"
je réalise que peut importe l'option choisie au moment de l'ouverture,
au moment de passer cette fonction la variable "St" est toujours éguale
a 32.
donc au retour dans Private Sub Workbook_Open ()
la ligne "LectureSeul(ActiveWorkbook.FullName) " est toujours égale
"False"
Quelqu'un peut me dire pourquoi ?
Merci à l'avance
Mario
En complément :
* ces codes concernent les attributs d'un fichier écrit sur un disque et
non le statut du fichier à l'ouverture,
* Pour parer à d'autres éventualités, je te recommanderai de préférer un
st mod 2 = 1 à if st = ....
* t'occupes-tu du bon fichier ?
* Excel place-t-il l'attribut readonly lorsqu'il ouvre un fichier (pas
sûr)
* Enfin si ton st est pair, c'est que le fichier sur disque n'est pas en
lecture seule !
@+
FxMBonsoir,
None -> 0 -> Aucun attribut
ReadOnly -> 1 -> Fichier en lecture seule (RW)
Hidden -> 2 -> Fichier caché (RW)
System -> 4 -> Fichier système (RW)
Volume -> 8 -> Étiquette de volume de lecteur de disque (R)
Directory -> 16 -> Dossier ou répertoire (R)
Archive -> 32 -> fichier modifié depuis la dernière sauvegarde (RW)
Alias -> 64 -> Lien ou raccourci (R)
Compressed -> 128 -> Fichier compressé (R)
(R) -> lecture seule
(RW) -> lecture & écriture
@+
FxMBonjour a tous (office 2002)
Dans le but de valider le statu de l'ouverture de mon chiffrier excel
protégé (lecture seul, lecture-écriture), j'ai intégré cette fonction
puiser du site excelabo.net/xl/
"Function LectureSeule(FileName As String) As Boolean
Dim Fs As Object, St As Integer
Set Fs = CreateObject("Scripting.FileSystemObject")
Set f = Fs.GetFile(FileName)
St = f.Attributes
If St = 1 Or St = 33 Then
LectureSeule = True
Else
LectureSeule = False
End If
End Function
"
je réalise que peut importe l'option choisie au moment de l'ouverture,
au moment de passer cette fonction la variable "St" est toujours éguale
a 32.
donc au retour dans Private Sub Workbook_Open ()
la ligne "LectureSeul(ActiveWorkbook.FullName) " est toujours égale
"False"
Quelqu'un peut me dire pourquoi ?
Merci à l'avance
Mario
Bonjour a tous (office 2002)
Dans le but de valider le statu de l'ouverture de mon chiffrier excel
protégé (lecture seul, lecture-écriture), j'ai intégré cette fonction
puiser du site excelabo.net/xl/
"Function LectureSeule(FileName As String) As Boolean
Dim Fs As Object, St As Integer
Set Fs = CreateObject("Scripting.FileSystemObject")
Set f = Fs.GetFile(FileName)
St = f.Attributes
If St = 1 Or St = 33 Then
LectureSeule = True
Else
LectureSeule = False
End If
End Function
"
je réalise que peut importe l'option choisie au moment de l'ouverture, au
moment de passer cette fonction la variable "St" est toujours éguale a 32.
donc au retour dans Private Sub Workbook_Open ()
la ligne "LectureSeul(ActiveWorkbook.FullName) " est toujours égale
"False"
Quelqu'un peut me dire pourquoi ?
Merci à l'avance
Mario
Bonjour a tous (office 2002)
Dans le but de valider le statu de l'ouverture de mon chiffrier excel
protégé (lecture seul, lecture-écriture), j'ai intégré cette fonction
puiser du site excelabo.net/xl/
"Function LectureSeule(FileName As String) As Boolean
Dim Fs As Object, St As Integer
Set Fs = CreateObject("Scripting.FileSystemObject")
Set f = Fs.GetFile(FileName)
St = f.Attributes
If St = 1 Or St = 33 Then
LectureSeule = True
Else
LectureSeule = False
End If
End Function
"
je réalise que peut importe l'option choisie au moment de l'ouverture, au
moment de passer cette fonction la variable "St" est toujours éguale a 32.
donc au retour dans Private Sub Workbook_Open ()
la ligne "LectureSeul(ActiveWorkbook.FullName) " est toujours égale
"False"
Quelqu'un peut me dire pourquoi ?
Merci à l'avance
Mario
Bonjour a tous (office 2002)
Dans le but de valider le statu de l'ouverture de mon chiffrier excel
protégé (lecture seul, lecture-écriture), j'ai intégré cette fonction
puiser du site excelabo.net/xl/
"Function LectureSeule(FileName As String) As Boolean
Dim Fs As Object, St As Integer
Set Fs = CreateObject("Scripting.FileSystemObject")
Set f = Fs.GetFile(FileName)
St = f.Attributes
If St = 1 Or St = 33 Then
LectureSeule = True
Else
LectureSeule = False
End If
End Function
"
je réalise que peut importe l'option choisie au moment de l'ouverture, au
moment de passer cette fonction la variable "St" est toujours éguale a 32.
donc au retour dans Private Sub Workbook_Open ()
la ligne "LectureSeul(ActiveWorkbook.FullName) " est toujours égale
"False"
Quelqu'un peut me dire pourquoi ?
Merci à l'avance
Mario
Bonjour Mario;
Pourquoi pas simplement:
Function LectureSeule(ByVal FileName As String) As Boolean
LectureSeule = GetAttr(FileName) And vbReadOnly
End Function
MP
"Mario Limoges" a écrit dans le message de
news: HMXkg.37907$Bonjour a tous (office 2002)
Dans le but de valider le statu de l'ouverture de mon chiffrier excel
protégé (lecture seul, lecture-écriture), j'ai intégré cette fonction
puiser du site excelabo.net/xl/
"Function LectureSeule(FileName As String) As Boolean
Dim Fs As Object, St As Integer
Set Fs = CreateObject("Scripting.FileSystemObject")
Set f = Fs.GetFile(FileName)
St = f.Attributes
If St = 1 Or St = 33 Then
LectureSeule = True
Else
LectureSeule = False
End If
End Function
"
je réalise que peut importe l'option choisie au moment de l'ouverture, au
moment de passer cette fonction la variable "St" est toujours éguale a
32.
donc au retour dans Private Sub Workbook_Open ()
la ligne "LectureSeul(ActiveWorkbook.FullName) " est toujours égale
"False"
Quelqu'un peut me dire pourquoi ?
Merci à l'avance
Mario
Bonjour Mario;
Pourquoi pas simplement:
Function LectureSeule(ByVal FileName As String) As Boolean
LectureSeule = GetAttr(FileName) And vbReadOnly
End Function
MP
"Mario Limoges" <mario.limoges@videotron.ca> a écrit dans le message de
news: HMXkg.37907$Ra3.290945@weber.videotron.net...
Bonjour a tous (office 2002)
Dans le but de valider le statu de l'ouverture de mon chiffrier excel
protégé (lecture seul, lecture-écriture), j'ai intégré cette fonction
puiser du site excelabo.net/xl/
"Function LectureSeule(FileName As String) As Boolean
Dim Fs As Object, St As Integer
Set Fs = CreateObject("Scripting.FileSystemObject")
Set f = Fs.GetFile(FileName)
St = f.Attributes
If St = 1 Or St = 33 Then
LectureSeule = True
Else
LectureSeule = False
End If
End Function
"
je réalise que peut importe l'option choisie au moment de l'ouverture, au
moment de passer cette fonction la variable "St" est toujours éguale a
32.
donc au retour dans Private Sub Workbook_Open ()
la ligne "LectureSeul(ActiveWorkbook.FullName) " est toujours égale
"False"
Quelqu'un peut me dire pourquoi ?
Merci à l'avance
Mario
Bonjour Mario;
Pourquoi pas simplement:
Function LectureSeule(ByVal FileName As String) As Boolean
LectureSeule = GetAttr(FileName) And vbReadOnly
End Function
MP
"Mario Limoges" a écrit dans le message de
news: HMXkg.37907$Bonjour a tous (office 2002)
Dans le but de valider le statu de l'ouverture de mon chiffrier excel
protégé (lecture seul, lecture-écriture), j'ai intégré cette fonction
puiser du site excelabo.net/xl/
"Function LectureSeule(FileName As String) As Boolean
Dim Fs As Object, St As Integer
Set Fs = CreateObject("Scripting.FileSystemObject")
Set f = Fs.GetFile(FileName)
St = f.Attributes
If St = 1 Or St = 33 Then
LectureSeule = True
Else
LectureSeule = False
End If
End Function
"
je réalise que peut importe l'option choisie au moment de l'ouverture, au
moment de passer cette fonction la variable "St" est toujours éguale a
32.
donc au retour dans Private Sub Workbook_Open ()
la ligne "LectureSeul(ActiveWorkbook.FullName) " est toujours égale
"False"
Quelqu'un peut me dire pourquoi ?
Merci à l'avance
Mario
Bonjour Michel, merci pour la suggestion que je me suis vite empressé
d'essayer mais malheureusement même en choisissant "Ouvrir en Lecture
seul" au moment de l'ouverture une fois la feuille affiché (avec dans la
barre de titre la mention [Lecture seule]) je vais dans l'éditeur VBA et
je valide le résultat de ta fonction me retourne LectureSeule = Faux.
je me demande s'il serait possible de valider le titre de la barre de
titre ce serait peut être plus simple
Merci et Bonne fête des pères si ça s'applique
Mario
"Michel Pierron" a écrit dans le message de news:
%Bonjour Mario;
Pourquoi pas simplement:
Function LectureSeule(ByVal FileName As String) As Boolean
LectureSeule = GetAttr(FileName) And vbReadOnly
End Function
MP
"Mario Limoges" a écrit dans le message de
news: HMXkg.37907$Bonjour a tous (office 2002)
Dans le but de valider le statu de l'ouverture de mon chiffrier excel
protégé (lecture seul, lecture-écriture), j'ai intégré cette fonction
puiser du site excelabo.net/xl/
"Function LectureSeule(FileName As String) As Boolean
Dim Fs As Object, St As Integer
Set Fs = CreateObject("Scripting.FileSystemObject")
Set f = Fs.GetFile(FileName)
St = f.Attributes
If St = 1 Or St = 33 Then
LectureSeule = True
Else
LectureSeule = False
End If
End Function
"
je réalise que peut importe l'option choisie au moment de l'ouverture,
au moment de passer cette fonction la variable "St" est toujours éguale
a 32.
donc au retour dans Private Sub Workbook_Open ()
la ligne "LectureSeul(ActiveWorkbook.FullName) " est toujours égale
"False"
Quelqu'un peut me dire pourquoi ?
Merci à l'avance
Mario
Bonjour Michel, merci pour la suggestion que je me suis vite empressé
d'essayer mais malheureusement même en choisissant "Ouvrir en Lecture
seul" au moment de l'ouverture une fois la feuille affiché (avec dans la
barre de titre la mention [Lecture seule]) je vais dans l'éditeur VBA et
je valide le résultat de ta fonction me retourne LectureSeule = Faux.
je me demande s'il serait possible de valider le titre de la barre de
titre ce serait peut être plus simple
Merci et Bonne fête des pères si ça s'applique
Mario
"Michel Pierron" <michel.pierron@free.fr> a écrit dans le message de news:
%23TeeDqqkGHA.1276@TK2MSFTNGP03.phx.gbl...
Bonjour Mario;
Pourquoi pas simplement:
Function LectureSeule(ByVal FileName As String) As Boolean
LectureSeule = GetAttr(FileName) And vbReadOnly
End Function
MP
"Mario Limoges" <mario.limoges@videotron.ca> a écrit dans le message de
news: HMXkg.37907$Ra3.290945@weber.videotron.net...
Bonjour a tous (office 2002)
Dans le but de valider le statu de l'ouverture de mon chiffrier excel
protégé (lecture seul, lecture-écriture), j'ai intégré cette fonction
puiser du site excelabo.net/xl/
"Function LectureSeule(FileName As String) As Boolean
Dim Fs As Object, St As Integer
Set Fs = CreateObject("Scripting.FileSystemObject")
Set f = Fs.GetFile(FileName)
St = f.Attributes
If St = 1 Or St = 33 Then
LectureSeule = True
Else
LectureSeule = False
End If
End Function
"
je réalise que peut importe l'option choisie au moment de l'ouverture,
au moment de passer cette fonction la variable "St" est toujours éguale
a 32.
donc au retour dans Private Sub Workbook_Open ()
la ligne "LectureSeul(ActiveWorkbook.FullName) " est toujours égale
"False"
Quelqu'un peut me dire pourquoi ?
Merci à l'avance
Mario
Bonjour Michel, merci pour la suggestion que je me suis vite empressé
d'essayer mais malheureusement même en choisissant "Ouvrir en Lecture
seul" au moment de l'ouverture une fois la feuille affiché (avec dans la
barre de titre la mention [Lecture seule]) je vais dans l'éditeur VBA et
je valide le résultat de ta fonction me retourne LectureSeule = Faux.
je me demande s'il serait possible de valider le titre de la barre de
titre ce serait peut être plus simple
Merci et Bonne fête des pères si ça s'applique
Mario
"Michel Pierron" a écrit dans le message de news:
%Bonjour Mario;
Pourquoi pas simplement:
Function LectureSeule(ByVal FileName As String) As Boolean
LectureSeule = GetAttr(FileName) And vbReadOnly
End Function
MP
"Mario Limoges" a écrit dans le message de
news: HMXkg.37907$Bonjour a tous (office 2002)
Dans le but de valider le statu de l'ouverture de mon chiffrier excel
protégé (lecture seul, lecture-écriture), j'ai intégré cette fonction
puiser du site excelabo.net/xl/
"Function LectureSeule(FileName As String) As Boolean
Dim Fs As Object, St As Integer
Set Fs = CreateObject("Scripting.FileSystemObject")
Set f = Fs.GetFile(FileName)
St = f.Attributes
If St = 1 Or St = 33 Then
LectureSeule = True
Else
LectureSeule = False
End If
End Function
"
je réalise que peut importe l'option choisie au moment de l'ouverture,
au moment de passer cette fonction la variable "St" est toujours éguale
a 32.
donc au retour dans Private Sub Workbook_Open ()
la ligne "LectureSeul(ActiveWorkbook.FullName) " est toujours égale
"False"
Quelqu'un peut me dire pourquoi ?
Merci à l'avance
Mario
