Protection excel

J'ai trouvé mon probleme, je créai mon fichier avec ca:

FileOpen(1,"C:\Documents and Settings\Christophe\Bureau\essai.xls", OpenMode.input)
FileClose(1)

Et cela ne me créer pas en fichier .xls mais en fichier "text" donc je ne pouvais pas sauvegarder correctement.

Maintenant je créer mon fichier comme ca:

wbExcel = appExcel.Workbooks.Add
appexcel.ActiveWorkbook.SaveAs (FileName:="C:\Documents and Settings\Christophe\Bureau\essai.xls")

donc j'ai un vrai fichier excel, et je peux l'enregistrer normalement, donc la protection s'enregistre aussi.

Oui, mais je ne peux pas^^.

En faite je me sert de excel pour faire une sauvegarde de mon fichier.

J'enregistre des valeur a l'interieur.

Mais je ne veux pas que ces valeur puissent etre modifier donc je voudrai bloquer l'accès.

Donc il faut que tout soit fais automatiquement sans que l'utilisateur ai quelque chose a faire.

Normal, puisque lors de l'enregistrement, si tu clique sur Oui, il modifiera ton fichier, et fera sauter la protectin. Fais les meme modification manuellement et reengistre le ;)

Je peux quand même modifier mon fichier après.

En faite si j'essaye de faire l'enregistrement manuellement cela me dis que:

essai.xls peut contenir des informations non compatible avec Texte
(séparateur: tabulation) (*.txt) Voulez-vous conserver le
format du classeur ?
Cliquer sur Oui pour conserver le format, les
fonctionnalités non compatibles seront perdues"

Cliquer sur non pour conserver ces caractéristiques...

Si je clique sur oui, la protection saute

Si je clique sur non, et que je ré-enregistre après la protection reste.

Si si, la protection est enregistré sur ta feuille. Je n'utilise que celle la, et elle marche parfaitement ^^

En utilisant la solution de Ctesias, cela me demande de rentrer le mot de passe, pour enlever la protection de la feuille.

En faisant des essai, je me suis rendu compte que la protection se mettai bien en place.

Mais en sauvegardant le fichier, la protection n'est pas enregistrer.

J'ai créer un nouveau projet pour tester voici mon code.

FileOpen(1,"C:\Documents and Settings\Christophe\Bureau\essai.xls", OpenMode.Output)
			FileClose(1)
		
		'Déclaration des variables
		Dim appExcel As Excel.Application 'Application Excel
		Dim wbExcel As Excel.Workbook 'Classeur Excel
		Dim wsExcel As Excel.Worksheet 'Feuille Excel
		
		
		'Ouverture de l'application
		appExcel = CreateObject("Excel.Application")
		'Ouverture d'un fichier Excel
		wbExcel = appExcel.Workbooks.Open("C:\Documents and Settings\Christophe\Bureau\essai.xls")
		'wsExcel correspond à la première feuille du fichier
		wsExcel = wbExcel.Worksheets(1)
		wsexcel = appExcel.ActiveWorkbook.ActiveSheet
		
	
		wsexcel.Range("A1").Value="bonjour"	'j'ecris "bonjour" dans la cellule A1
			
			
		wsexcel.Protect("toto")	
		
		
			wbExcel.Save
		
		Appexcel.DisplayAlerts = False
		
		
		wbExcel.Close 'Fermeture du classeur Excel
		appExcel.Quit'Fermeture de l'application Excel
		
		
		'Désallocation mémoire
		wsExcel = Nothing
		wbExcel = Nothing
		appExcel = Nothing

Si j'enlève la procédure d'enregistrement et de fermeture, la protection se fais bien mais si je les remet la protection est ôter.

Merci pour vos réponses

ActiveSheet.protect "mdp"
ActiveSheet.Protect userinterfaceonly:=True

Essai ca. La premiere ligne verouille avec un mot de passe, la deuxieme autorise l'activation des macros

J'ai reussi a le faire en vba mais pas a le transposer en vb net dans mon application.

Je n'arrive pas a savoir pourquoi cela ne marche pas.

Bonjour.

Sous VBA, vous avez ces instructions qui servent à protéger ou déprotéger les feuilles.

Sheets("calculs").Select
ActiveSheet.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True

Sheets("calculs").Select
ActiveSheet.Unprotect

Reste à protéger le classeur.

Bonne journée.