Problème dans mon fichier Excel-Coté sécurité

devloukili Messages postés 7 Date d'inscription dimanche 15 octobre 2006 Statut Membre Dernière intervention 20 novembre 2006 - 20 nov. 2006 à 22:49
mortalino Messages postés 6786 Date d'inscription vendredi 16 décembre 2005 Statut Membre Dernière intervention 21 décembre 2011 - 22 nov. 2006 à 00:58
Je voudrais savoir s'il y a un moyen d'empêcher quiconque ouvre mon fichier Excel de renommer unede mes feuilles et si c'est possible toutes les feuiles d'un classeur...biensur en VBA
merci...je salut en passant un certain mortalino !

4 réponses

drikce06 Messages postés 2236 Date d'inscription lundi 29 mai 2006 Statut Membre Dernière intervention 29 mai 2008 10
21 nov. 2006 à 08:23
expression.Protect(Password, DrawingObjects, Contents, Scenarios, UserInterfaceOnly, AllowFormattingCells, AllowFormattingColumns, AllowFormattingRows, AllowInsertingColumns, AllowInsertingRows, AllowInsertingHyperlinks, AllowDeletingColumns, AllowDeletingRows, AllowSorting, AllowFiltering, AllowUsingPivotTables)



expression      Obligatoire. Expression qui renvoie un objet Worksheet.




Password
     Argument de type Variant facultatif.  Chaîne correspondant à un mot de passe qui respecte la casse pour la feuille de calcul ou le classeur. Si vous ne spécifiez pas cet argument, vous pouvez annuler la protection de la feuille de calcul ou du classeur sans utiliser de mot de passe. Dans le cas contraire, vous devez spécifier le mot de passe pour annuler la protection de la feuille de calcul ou du classeur. Si vous oubliez le mot de passe, vous ne pouvez pas annuler la protection de la feuille de calcul ni du classeur. Pensez à conserver en lieu sûr une liste de vos mots de passe et les noms des documents correspondants.




DrawingObjects
     Argument de type Variant facultatif. Cet argument a la valeur True pour protéger les formes. La valeur par défaut est False.




Contents
     Argument de type Variant facultatif. Cet argument a la valeur True pour protéger le contenu. Dans le cas d'un graphique, la totalité du graphique est protégée. Dans le cas d'une feuille de calcul, les cellules verrouillées sont protégées. Valeur par défaut : True.




Scenarios
     Argument de type Variant facultatif. Cet argument a la valeur True pour protéger les scénarios. Il n'est valable que pour les feuilles de calcul. Valeur par défaut : True.




UserInterfaceOnly
     Argument de type Variant facultatif. Cet argument a la valeur True pour protéger l'interface utilisateur, mais pas les macros. Si cet argument n'est pas spécifié, la protection s'applique à la fois aux macros et à l'interface utilisateur.




AllowFormattingCells
     Argument de type Variant facultatif. La valeur True permet à l'utilisateur de mettre en forme n'importe quelle cellule dans une feuille de calcul protégée. La valeur par défaut est False.




AllowFormattingColumns
     Argument de type Variant facultatif. La valeur True permet à l'utilisateur de mettre en forme n'importe quelle colonne dans une feuille de calcul protégée. La valeur par défaut est False.




AllowFormattingRows
     Argument de type Variant facultatif. La valeur True permet à l'utilisateur de mettre en forme n'importe quelle ligne dans une feuille de calcul protégée. La valeur par défaut est False.




AllowInsertingColumns
     Argument de type Variant facultatif. La valeur True permet à l'utilisateur d'insérer des colonnes dans une feuille de calcul protégée. La valeur par défaut est False.




AllowInsertingRows
     Argument de type Variant facultatif. La valeur True permet à l'utilisateur d'insérer des lignes dans une feuille de calcul protégée. La valeur par défaut est False.




AllowInsertingHyperlinks
     Argument de type Variant facultatif. La valeur True permet à l'utilisateur d'insérer des liens hypertexte dans une feuille de calcul. La valeur par défaut est False.




AllowDeletingColumns
     Argument de type Variant facultatif. La valeur True permet à l'utilisateur de supprimer des colonnes dans une feuille de calcul protégée, dans lesquelles les cellules à supprimer sont déverrouillées. La valeur par défaut est False.




AllowDeletingRows
     Argument de type Variant facultatif. La valeur True permet à l'utilisateur de supprimer des lignes dans une feuille de calcul protégée, dans lesquelles les cellules à supprimer sont déverrouillées. La valeur par défaut est False.




AllowSorting
     Argument de type Variant facultatif. La valeur True permet à l'utilisateur d'effectuer un tri dans une feuille de calcul protégée. Toutes les cellules de la plage à trier doivent être déverrouillées ou non protégées. La valeur par défaut est False.




AllowFiltering
     Argument de type Variant facultatif. La valeur True permet à l'utilisateur de définir des filtres dans la feuille de calcul protégée. Les utilisateurs peuvent changer des critères de filtre mais ne peuvent ni activer, ni désactiver un filtre automatique. Les utilisateurs peuvent définir des filtres dans un filtre automatique existant. La valeur par défaut est False.




AllowUsingPivotTables
     Argument de type Variant facultatif.  La valeur True permet à l'utilisateur d'utiliser des rapports de tableaux croisés dynamiques dans la feuille de calcul protégée. La valeur par défaut est False.


Notes

Si vous appliquez la méthode Protect et que l'argument UserInterfaceOnly a la valeur True dans une feuille de calcul et que vous enregistrez le classeur, l'intégralité de la feuille de calcul (et pas uniquement l'interface) sera protégée lors de la réouverture du classeur. Pour réactiver la protection de l'interface utilisateur après l'ouverture du classeur, vous devez de nouveau appliquer la méthode Protect avec la valeur True affectée à l'argument UserInterfaceOnly.


Si vous souhaitez effectuer des modifications dans une feuille de calcul protégée, il est possible d'utiliser la méthode Protect dans une feuille de calcul protégée si le mot de passe est fourni. Vous pouvez également annuler la protection de la feuille de calcul, effectuer les modifications nécessaires, puis protéger de nouveau la feuille de calcul.



Remarque  'Non protégée' signifie que la cellule peut être verrouillée (boîte de dialogue Format de cellule) mais qu'elle fait partie d'une plage définie dans la boîte de dialogue Permettre aux utilisateurs de modifier les plages et que l'utilisateur a annulé la protection de la plage avec un mot de passe ou a été validé via des permissions NT.



[mk:@MSITStore:C:\Program%20Files\Microsoft%20Office\OFFICE11\1036\vbaxl10.chm::/html/xlmthProtect1.htm#
Méthode Protect telle qu'elle s'applique à l'objet Workbook.]




Cette méthode protège un classeur de sorte qu'il ne puisse pas être modifié.



expression.Protect(Password, Structure, Windows)



expression      Obligatoire. Expression qui renvoie un objet Workbook.




Password
     Argument de type Variant facultatif.  Chaîne correspondant à un mot de passe qui respecte la casse pour la feuille de calcul ou le classeur. Si vous ne spécifiez pas cet argument, vous pouvez annuler la protection de la feuille de calcul ou du classeur sans utiliser de mot de passe. Dans le cas contraire, vous devez spécifier le mot de passe pour annuler la protection de la feuille de calcul ou du classeur. Si vous oubliez le mot de passe, vous ne pouvez pas annuler la protection de la feuille de calcul ni du classeur. Pensez à conserver en lieu sûr une liste de vos mots de passe et les noms des documents correspondants.




Structure
     Argument de type Variant facultatif. Cet argument a la valeur True pour protéger la structure du classeur (position relative des feuilles). La valeur par défaut est False.




Windows
     Argument de type Variant facultatif. Cet argument a la valeur True pour protéger les fenêtres du classeur. Si cet argument n'est pas spécifié, les fenêtres ne sont pas protégées.





[mk:@MSITStore:C:\Program%20Files\Microsoft%20Office\OFFICE11\1036\vbaxl10.chm::/html/xlmthProtect1.htm# Telle qu'elle s'applique aux objets Chart et Worksheet.]






Cet exemple montre comment protéger la feuille de calcul active. Vous pouvez vérifier que la feuille de calcul est protégée en tentant d'entrer une valeur dans n'importe quelle cellule de la feuille de calcul active.



Sub ProtectSheet()

    ActiveSheet.Protect Scenarios:= True, UserInterfaceOnly:=True

End Sub



Cet exemple montre comment protéger le graphique actif. Vous pouvez vérifier que le graphique est protégé en tentant d'entrer une valeur dans n'importe quelle cellule de la feuille de calcul active. Cet exemple suppose qu'il existe un graphique dans l'application.



Sub ProtectChart()

    ActiveChart. Protect  Scenarios: =True, UserInterfaceOnly:=True

End Sub















 Drikce 06
0
drikce06 Messages postés 2236 Date d'inscription lundi 29 mai 2006 Statut Membre Dernière intervention 29 mai 2008 10
21 nov. 2006 à 08:23
expression.Protect(Password, Structure, Windows)



expression      Obligatoire. Expression qui renvoie un objet Workbook.




Password
     Argument de type Variant facultatif.  Chaîne correspondant à un mot de passe qui respecte la casse pour la feuille de calcul ou le classeur. Si vous ne spécifiez pas cet argument, vous pouvez annuler la protection de la feuille de calcul ou du classeur sans utiliser de mot de passe. Dans le cas contraire, vous devez spécifier le mot de passe pour annuler la protection de la feuille de calcul ou du classeur. Si vous oubliez le mot de passe, vous ne pouvez pas annuler la protection de la feuille de calcul ni du classeur. Pensez à conserver en lieu sûr une liste de vos mots de passe et les noms des documents correspondants.




Structure
     Argument de type Variant facultatif. Cet argument a la valeur True pour protéger la structure du classeur (position relative des feuilles). La valeur par défaut est False.




Windows
     Argument de type Variant facultatif. Cet argument a la valeur True pour protéger les fenêtres du classeur. Si cet argument n'est pas spécifié, les fenêtres ne sont pas protégées.

 Drikce 06
0
drikce06 Messages postés 2236 Date d'inscription lundi 29 mai 2006 Statut Membre Dernière intervention 29 mai 2008 10
21 nov. 2006 à 08:24
Et dans le sens inverse Unprotect




 Drikce 06
0
mortalino Messages postés 6786 Date d'inscription vendredi 16 décembre 2005 Statut Membre Dernière intervention 21 décembre 2011 18
22 nov. 2006 à 00:58
Salut devloukili,


je te salut à mon tour est te propose un bout de code :








' *** Insère un Module et place ceci :


Public 
sNameSheet() 
As String


<hr />
' *** Dans le Module "ThisWorkBook", insère ce code :


Private Sub 
Workbook_BeforeClose(Cancel 
As Boolean
)

    Dim wSheet As Worksheet
    Dim i As Byte: i =  1

    ReDim Preserve sNameSheet(1 To ThisWorkbook.Sheets.Count)
For Each wSheet In ThisWorkbook.Sheets
    wSheet.Name = sNameSheet(i)
    i = i + 1
Next wSheet
Erase sNameSheet
End Sub

Private Sub Workbook_Open()
    Dim wSheet As Worksheet
    Dim i As Byte: i = 1

    ReDim Preserve sNameSheet(1 To ThisWorkbook.Sheets.Count)
For Each wSheet In ThisWorkbook.Sheets
    sNameSheet(i) = wSheet.Name
    i = i + 1
Next wSheet

' nom de la sheet à activer (Sheets("nom feuille").Select)

End Sub


~<small> Mortalino </small>~

En gros, ça stocke à l'ouverture les noms de tes feuilles, et les renommes à la fermeture.

@++





<hr width ="100%" size="2" />

  --Mortalino--
Le mystérieux chevalier, "Provençal, le Gaulois"
/DIV>
0
Rejoignez-nous