|
|
|
ouvrir un fichier excel - pb lecture seule
| ||||||||
Nouvel astucien | Bonjour,
J'ai reçu sur disquette un fichier excel très important et confidentiel. Or lorsque je veux l'ouvrir im m'indique que le fichier est en lecture seule. Lorsque je veux avoir accès à propriétés (pour décocher lecture seule), la fenêtre ne s'ouvre pas...J'ai lancé scandisk approfondi depuis le lancement du fichier génère le message "format de fichier invalide". pourtant la taille du fichier est 816 K donc les données sont là !!!
Que dois-je faire pour récupérer ces informatinos cruciales (prud'hommes.
D'avance merci à tous
| |||||||
Publicité | ||||||||
|
| ||||||||
 Astucien | Bonsoir,
Cette macro fonctionne dans les 2 sens.
Mettre le fichier coriace dans le même répertoire de travail ou insérer un ChDir avant specfich...
Sub A_Test()
specfich = "MonFichierConfidentiel.xls"
Dim fs, f, r
Set fs = CreateObject("Scripting.FileSystemObject")
Set f = fs.GetFile(fs.GetFileName(specfich))
If f.Attributes And 1 Then
r = MsgBox("Fichier en Lecture Seule, voulez-vous l'Ecrire ?", vbYesNo, "Modifier propriété Lecture/Ecriture")
If r = vbYes Then
f.Attributes = f.Attributes - 1
MsgBox "Fichier en Lecture/Ecriture."
Else
MsgBox "Fichier en lecture seule."
End If
Else
r = MsgBox("Fichier en Lecture/Ecriture. Voulez-vous le définir Lecture Seule?", vbYesNo, "Modifier propriété Lecture/Ecriture")
If r = vbYes Then
f.Attributes = f.Attributes + 1
MsgBox "Fichier en lecture seule."
Else
MsgBox "Fichier en lecture/Ecriture."
End If
End If
End Sub
Le cas échéant ne pas oublier de reprotéger après usage...
Cordialement | |||||||
Petite astucienne | idem ; ou de faire un copier/coller dans un nouveau classeur. | |||||||
Nouvel astucien | Merci pour les soluces mais
il était impossible d'ouvrir de copier d'accéder aux propriétés... avant scan disk.
Après scan disk, j'aipu le copier sur mon DD mais je ne peux tjrs pas l'ouvrir non plus en raison d'1 pb de lecture seule mais à présent pour "format fichier non valide".
J'ai essayé PC file recovery comme sebclick le 23/08 mais je crois que je me débrouille mal.
Une autre idée?
cordialement | |||||||
| ||||||||
Les bons plans du moment PC Astuces | Tous les Bons Plans | ||||||||||||||||
| |||||||||||||||||
| Forum PC Astuces | © 1997-2022 Webastuces |  |
À LA UNE
PRATIQUE
LOGITHÈQUE
TABLETTE ET MOBILE
BONS PLANS
FONDS D'ÉCRAN
JEUX
FORUM
