Page 1 sur 1
Proteger une feuille Excel
Posté : dim. 11 juin 2017 00:41
par Yle
Bonsoir,
Voici un petit programme lorsque je crée un fichier Excel :
Code : Tout sélectionner
[code_au3]#include <Array.au3>
#include <EditConstants.au3>
#include <ExcelCOM_UDF.au3>
#include <File.au3>
#include <WindowsConstants.au3>
$oXl=ObjCreate("excel.Application") ; EXCEL
$oXL.ScreenUpdating = true
$oXL.Visible = False
$oXL.workbooks.add
$oXl.ActiveSheet.PageSetup.Orientation = $xlLandscape
$oXl.ActiveSheet.PageSetup.PaperSize = $xlPaperA4
_ExcelWriteCell($oXL, " BONJOUR ", 1, 1)
with $oXL.ActiveSheet
.Protect = ("TESTTEST")
.DrawingObjects=True
.Contents=True
.Scenarios=True
EndWith
_ExcelBookSaveAs($oXL, @ScriptDir & "\TEST_Protect.xls", 0, 1)
_ExcelBookClose($oXL) ; And finally we close out
$oXL.quit
[/code_au3]
Je veux donc protéger ma feuille, la protection apparemment se fait car quand je clique sur une cellule, j'ai le message "Oter la protection..."
Je clique sur Révision/ôter la protection de la feuille mais mon mot de passe n'est pas demandé ?
QQ a une idée ?
Re: Proteger une feuille Excel
Posté : dim. 11 juin 2017 01:40
par walkson
Bonjour,
Difficile de vous répondre avec #include <ExcelCOM_UDF.au3> (2006)
A notre époque, nous avons: #include <Excel.au3>
$oXL.ActiveSheet.Protect("AAA") semble fonctionner
$oXL.ActiveSheet.Protect("AAA",False,True,False,True,True,True,True,True,True,True,True,True,True,True,True) pour tout protéger et
$oXl.ActiveSheet.Unprotect ("AAA") l'inverse
Re: Proteger une feuille Excel
Posté : dim. 11 juin 2017 21:40
par Yle
Bonsoir,
Je me suis mis au goût du jour et mis l'include : Excel3
Visiblement j'ai une erreur avec votre syntaxe sur le protect
La solution serait ceci :
#include <Excel.au3>$oXl=ObjCreate("excel.Application") ; EXCEL$oXL.ScreenUpdating = true$oXL.Visible = False;$oXL.workbooks.add;~ $oXl.ActiveSheet.PageSetup.Orientation = $xlLandscape;~ $oXl.ActiveSheet.PageSetup.PaperSize = $xlPaperA4$oXL.ActiveSheet.Protect = "AAA";$oXL.DisplayAlerts = False ; evite la question -fichier existe dejà ?_Excel_BookSaveAs ($oXl,@ScriptDir & "\Test_Protect.xlsx")_Excel_Close($oXL)$oXL.Quit
Avec ce code, pas d'erreur de syntaxe mais je ne retrouve pas mon fichier Test_Protect.xlsx sur mon répertoire courant ?
Re: Proteger une feuille Excel
Posté : lun. 12 juin 2017 01:32
par walkson
J'ai fait le test sous office 2013 et ça marche (pour moi)
J'ai déverrouillé A1 , verrouillé la Feuil active puis écrit dans A1
je ne retrouve pas mon fichier Test_Protect.xlsx sur mon répertoire courant ?
il faut _Excel_BookSaveAs($oXX ,@ScriptDir & "\Test_Protect.xlsx") et la variante est $oXX et non de $oXL de ObjCreate("excel.Application")
Le fichier Excel a du aboutir dans "mes documents" style "Classeur1.xlsx"
Re: Proteger une feuille Excel
Posté : lun. 12 juin 2017 09:15
par Yle
Suis en Excel 2016 et çà fonctionne aussi.
Merci surtout pour ma grosse erreur entre $oXL et $oXX mais c'est dommage que l'interpréteur ne voit pas cette bourde !