Excel Proteger

Manau81 Messages postés 23 Date d'inscription jeudi 24 mai 2007 Statut Membre Dernière intervention 17 janvier 2010 - 23 août 2009 à 15:07
Manau81 Messages postés 23 Date d'inscription jeudi 24 mai 2007 Statut Membre Dernière intervention 17 janvier 2010 - 24 août 2009 à 01:48
Voila mon code

Dim sheet As Object
Dim exldoc As Object
Dim exlapp As Object
Set exlapp = CreateObject("excel.application")
Set exldoc = exlapp.Workbooks.Open(Path_xls)
Set sheet = exlapp.ActiveWorkbook.Sheets("KW34)

sheet.Cells(3, 2).Value = "Toto" 

exldoc.Save
exldoc.Close
exlapp.Quit


Le probléme c'est que cette feuille (KW24) est protégé par un mp que je conné.
Comment peut on ôter la protection de la feuille momentanément pour pouvoir y ecrir des données et remetre la protection.

2 réponses

Profil bloqué
24 août 2009 à 00:10
http://www.codyx.org/snippet_proteger-deproteger-feuille-excel_276.aspx


La théorie, c'est quand on sait tout et que rien ne fonctionne. La pratique, c'est quand tout fonctionne et que personne ne sait pourquoi.

GRENIER Alain
0
Manau81 Messages postés 23 Date d'inscription jeudi 24 mai 2007 Statut Membre Dernière intervention 17 janvier 2010
24 août 2009 à 01:48
Merci et Mil merci mon ami, cest exactement ce que je cherche
0
Rejoignez-nous