Je vais graver un fichier excel sur cdrom, mais ce fichier
ne contient que des informations hautement
confidentielles. Il n y aura que 5 ou 6 copie de ce
fichiers, et je veux a tout prix eviter qu il se propage.
Est ce qu il y a un moyen pour que excel puisse connaitre
le numero de serie du cdrom sur lequel il est grave.
J ai trouve un truc pour recuperer le serial du disque
dur, mais je voudrais celui du cd.
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire
Veuillez sélectionner un problème
Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
Claude Mani
Bonjour,
La propriété serialNumber fera-t-elle l'affaire ?
Bonne journée.
Claude Mani
"Mangda" a écrit dans le message de news: a4d601c346ce$a3a988f0$
Bonjour,
Je vais graver un fichier excel sur cdrom, mais ce fichier ne contient que des informations hautement confidentielles. Il n y aura que 5 ou 6 copie de ce fichiers, et je veux a tout prix eviter qu il se propage. Est ce qu il y a un moyen pour que excel puisse connaitre le numero de serie du cdrom sur lequel il est grave. J ai trouve un truc pour recuperer le serial du disque dur, mais je voudrais celui du cd.
Merci
Bonjour,
La propriété serialNumber fera-t-elle l'affaire ?
Bonne journée.
Claude Mani
"Mangda" <mangda@host.sk> a écrit dans le message de news:
a4d601c346ce$a3a988f0$a401280a@phx.gbl...
Bonjour,
Je vais graver un fichier excel sur cdrom, mais ce fichier
ne contient que des informations hautement
confidentielles. Il n y aura que 5 ou 6 copie de ce
fichiers, et je veux a tout prix eviter qu il se propage.
Est ce qu il y a un moyen pour que excel puisse connaitre
le numero de serie du cdrom sur lequel il est grave.
J ai trouve un truc pour recuperer le serial du disque
dur, mais je voudrais celui du cd.
"Mangda" a écrit dans le message de news: a4d601c346ce$a3a988f0$
Bonjour,
Je vais graver un fichier excel sur cdrom, mais ce fichier ne contient que des informations hautement confidentielles. Il n y aura que 5 ou 6 copie de ce fichiers, et je veux a tout prix eviter qu il se propage. Est ce qu il y a un moyen pour que excel puisse connaitre le numero de serie du cdrom sur lequel il est grave. J ai trouve un truc pour recuperer le serial du disque dur, mais je voudrais celui du cd.
Merci
popi
Salut Mangda, ceci devrait t'aider, à mettre dans un module standard :
Declare Function GetVolumeInformation Lib "kernel32" Alias _ "GetVolumeInformationA" (ByVal lpRootPathName As String, _ ByVal lpVolumeNameBuffer As String, ByVal nVolumeNameSize As Long, _ lpVolumeSerialNumber As Long, lpMaximumComponentLength As Long, _ lpFileSystemFlags As Long, ByVal lpFileSystemNameBuffer As String, _ ByVal nFileSystemNameSize As Long) As Long
Sub nom_et_no_serie_cdrom() Dim Serial As Long, VName As String, FSName As String VName = String$(255, Chr$(0)) FSName = String$(255, Chr$(0)) lettre = InputBox("Entrez la lettre de votre lecteur") GetVolumeInformation lettre & ":", VName, 255, Serial, 0, 0, FSName, 255 VName = Left$(VName, InStr(1, VName, Chr$(0)) - 1) MsgBox "Le nom de volume de " & UCase(lettre) & " est " & VName & _ " et le numéro de série est " & Trim(Str$(Serial)) End Sub
@+ popi
"Mangda" a écrit dans le message de news: a4d601c346ce$a3a988f0$
Bonjour,
Je vais graver un fichier excel sur cdrom, mais ce fichier ne contient que des informations hautement confidentielles. Il n y aura que 5 ou 6 copie de ce fichiers, et je veux a tout prix eviter qu il se propage. Est ce qu il y a un moyen pour que excel puisse connaitre le numero de serie du cdrom sur lequel il est grave. J ai trouve un truc pour recuperer le serial du disque dur, mais je voudrais celui du cd.
Merci
Salut Mangda, ceci devrait t'aider, à mettre dans un module standard :
Declare Function GetVolumeInformation Lib "kernel32" Alias _
"GetVolumeInformationA" (ByVal lpRootPathName As String, _
ByVal lpVolumeNameBuffer As String, ByVal nVolumeNameSize As Long, _
lpVolumeSerialNumber As Long, lpMaximumComponentLength As Long, _
lpFileSystemFlags As Long, ByVal lpFileSystemNameBuffer As String, _
ByVal nFileSystemNameSize As Long) As Long
Sub nom_et_no_serie_cdrom()
Dim Serial As Long, VName As String, FSName As String
VName = String$(255, Chr$(0))
FSName = String$(255, Chr$(0))
lettre = InputBox("Entrez la lettre de votre lecteur")
GetVolumeInformation lettre & ":", VName, 255, Serial, 0, 0, FSName,
255
VName = Left$(VName, InStr(1, VName, Chr$(0)) - 1)
MsgBox "Le nom de volume de " & UCase(lettre) & " est " & VName & _
" et le numéro de série est " & Trim(Str$(Serial))
End Sub
@+ popi
"Mangda" <mangda@host.sk> a écrit dans le message de news:
a4d601c346ce$a3a988f0$a401280a@phx.gbl...
Bonjour,
Je vais graver un fichier excel sur cdrom, mais ce fichier
ne contient que des informations hautement
confidentielles. Il n y aura que 5 ou 6 copie de ce
fichiers, et je veux a tout prix eviter qu il se propage.
Est ce qu il y a un moyen pour que excel puisse connaitre
le numero de serie du cdrom sur lequel il est grave.
J ai trouve un truc pour recuperer le serial du disque
dur, mais je voudrais celui du cd.
Salut Mangda, ceci devrait t'aider, à mettre dans un module standard :
Declare Function GetVolumeInformation Lib "kernel32" Alias _ "GetVolumeInformationA" (ByVal lpRootPathName As String, _ ByVal lpVolumeNameBuffer As String, ByVal nVolumeNameSize As Long, _ lpVolumeSerialNumber As Long, lpMaximumComponentLength As Long, _ lpFileSystemFlags As Long, ByVal lpFileSystemNameBuffer As String, _ ByVal nFileSystemNameSize As Long) As Long
Sub nom_et_no_serie_cdrom() Dim Serial As Long, VName As String, FSName As String VName = String$(255, Chr$(0)) FSName = String$(255, Chr$(0)) lettre = InputBox("Entrez la lettre de votre lecteur") GetVolumeInformation lettre & ":", VName, 255, Serial, 0, 0, FSName, 255 VName = Left$(VName, InStr(1, VName, Chr$(0)) - 1) MsgBox "Le nom de volume de " & UCase(lettre) & " est " & VName & _ " et le numéro de série est " & Trim(Str$(Serial)) End Sub
@+ popi
"Mangda" a écrit dans le message de news: a4d601c346ce$a3a988f0$
Bonjour,
Je vais graver un fichier excel sur cdrom, mais ce fichier ne contient que des informations hautement confidentielles. Il n y aura que 5 ou 6 copie de ce fichiers, et je veux a tout prix eviter qu il se propage. Est ce qu il y a un moyen pour que excel puisse connaitre le numero de serie du cdrom sur lequel il est grave. J ai trouve un truc pour recuperer le serial du disque dur, mais je voudrais celui du cd.
