Macro pour suprimer la lecture seule sous condition

[havopti]

Salut

pour le partage et la sécurité d'un classeur excel j'ai du créer une macro de sécurité qui supprime les onglets et enregistre automatiquement cette suppression si un fichier caché n'est pas présent sur le disque du pc ou le commun, sauf que pour qu'on ne puisse pas modifier le classeur sur le disque commun ( et faire de fausse manip ) il est en lecture seule.

Du coup je cherche une solution qui serait du genre, si mon fichier caché n'est pas détecté sur le disque dur du pc ou sur le disque commun alors la lecture seule est enlevée et les onglets sont supprimés puis le fichier sauvegardé.

Il me faut juste la solution pour faire sauter la lecture seule et je n'ai pas trouvé de solution via les macros excel

merci a tous et bonne journée

 

[Yaloo]

Re : Macro pour suprimer la lecture seule sous condition

Bonsoir havopti,

Avec cette macro, peut-être :

Sub Lecture()
If ActiveWorkbook.ReadOnly Then SetAttr ActiveWorkbook.FullName, vbNormal
End Sub

A+

Martial

 

[havopti]

Re : Macro pour suprimer la lecture seule sous condition

merci de ton aide mais ça ne marche pas tout a fait

Sub Lecture()
If ActiveWorkbook.ReadOnly Then SetAttr ActiveWorkbook.FullName, vbNormal
ActiveWorkbook.Save
Workbooks("Test 3").Close False
End Sub

j'ai donc rajouter la sauvegarde et la fermeture pour tester, hors en faisant pas à pas avec F8 ça bloque au moment d'enregistrer ça me propose de sauvegarder et que je mette oui ou non j'ai une erreur d’exécution 1004.

cependant si je relance après mon classeur et la macro de sauvegarde ca a l'air de marcher donc il faudrait inclure automatiquement la réouverture se classeur et une sauvegarde mais je ne trouve pas le code adapté

 

[havopti]

Re : Macro pour suprimer la lecture seule sous condition

du coup si quelqu'un a une solution pour lancer automatiquement la réouverture du fichier après sa fermeture ça règle mon problème

 

[MJ13]

Re : Macro pour suprimer la lecture seule sous condition

Bonjoru havpti, yaloo

du coup si quelqu'un a une solution pour lancer automatiquement la [U]réouverture[/U] du fichier après sa fermeture ça règle mon problème

Il faudrait essayer de faire avec un timer (de type Ontime, toute les minutes par exemple) et tester si le fichier est en lecture seule (pas le temps de m'y atteler en ce moment ).

A gagner: Un like de ma part .

 

[Yaloo]

Re : Macro pour suprimer la lecture seule sous condition

Bonjour havopti, MJ13,

Je ne vois pas trop comment faire même avec un timer, il faudrait que la macro soit dans un autre classeur. Enfin, je pense .

A+

 

[MJ13]

Re : Macro pour suprimer la lecture seule sous condition

Re Yaloo

Je ne vois pas trop comment faire même avec un timer, il faudrait que la macro soit dans un autre classeur. Enfin, je pense .

En effet, cela me semble un peu trop complexe (enfin pour moi) .

 

[havopti]

Re : Macro pour suprimer la lecture seule sous condition

ou alors si vous avez une solution pour transformer mon ficher lecture seule en fichier normale une fois le test effectué car le problème initial viens de la et la solution de yaloo n'a pas l'air de marcher

 

[Yaloo]

Re : Macro pour suprimer la lecture seule sous condition

Re,

En effet il me semble que cette solution ne fonctionne que pour un autre classeur et il me semble qu'il faut qu'il soit fermer pour que cela fonctionne.

A+

 

[havopti]

Re : Macro pour suprimer la lecture seule sous condition

ah ok c'est ca le problème du coup il me faut la solution pour se classeur et quand celui ci est ouvert

ou alors au lieu de supprimer les onglets je cherche simplement une macro qui serait capable de supprimer le fichier en lecteur seule sachant qu'elle s'activera sur le fichier qu'il faut supprimer ( je sais pas si ca peut gêner )

 

[havopti]

Re : Macro pour suprimer la lecture seule sous condition

personne n'a donc de macro pour faire sauter une lecture seule afin de pouvoir enregistrer automatiquement?