Private Sub Workbook_Open()
With Worksheets("Feuil1")
.EnableAutoFilter = True
.EnableOutlining = True
.Protect Contents:=True, Password:="Toto", UserInterfaceOnly:=True
End With
End Sub
et si t'as plusieurs feuille dans ton classeur .. un truc du genre
Code:
Private Sub Workbook_Open()
Dim WS_Count As Integer
Dim I As Integer
WS_Count = ActiveWorkbook.Worksheets.Count
For I = 1 To WS_Count
With ActiveWorkbook.Worksheets(I)
.EnableAutoFilter = True
.EnableOutlining = True
.Protect Contents:=True, UserInterfaceOnly:=True
End With
Next I
End Sub
a mettre dans le 'thisWorkBook' dans l'arborescence de ton interface VBA
Private Sub Workbook_Open()
With Worksheets("Feuil1")
.EnableAutoFilter = True
.EnableOutlining = True
.Protect Contents:=True, Password:="Toto", UserInterfaceOnly:=True
End With
End Sub
Merci pour ta réponse mais ça ne fonctionne pas ( j'ai remplacé "Feuil1" par "le nom de ma feuille"
puis entré mon mot de passe a la place de Toto mais toujours le message " vous ne pouvez pas ...."
J'ai ressorti cela de ma "banque" d'astuce .. c'était passé sur un autre forum (mais cela date).
La structure de sécurité des fichiers a du changer entre temps ... Mince
Et là je dois y aller ... si quelqu'un autre peux l'aider ... je vais être "out" 5 jours.
Désolé ...
Le code donné par notre ami Deadpool fonctionne comme il se doit (enfin sous XL2010 mais plus également je pense). Le code doit être placé dans ThisWorkBook et ne sera activé qu'à la prochaine ouverture du classeur.
VB:
Private Sub Workbook_Open()
With Worksheets("HIVERS")
.EnableOutlining = True
.Protect Contents:=True, Password:="Toto", UserInterfaceOnly:=True
End With
End Sub
Le code donné par notre ami Deadpool fonctionne comme il se doit (enfin sous XL2010 mais plus également je pense). Le code doit être placé dans ThisWorkBook et ne sera activé qu'à la prochaine ouverture du classeur.
VB:
Private Sub Workbook_Open()
With Worksheets("HIVERS")
.EnableOutlining = True
.Protect Contents:=True, Password:="Toto", UserInterfaceOnly:=True
End With
End Sub
Le code donné par notre ami Deadpool fonctionne comme il se doit (enfin sous XL2010 mais plus également je pense). Le code doit être placé dans ThisWorkBook et ne sera activé qu'à la prochaine ouverture du classeur.
VB:
Private Sub Workbook_Open()
With Worksheets("HIVERS")
.EnableOutlining = True
.Protect Contents:=True, Password:="Toto", UserInterfaceOnly:=True
End With
End Sub
Sub verrou()
Dim s As Worksheet
For Each s In Worksheets
p s
Next
End Sub
Private Sub p(ws As Worksheet)
ws.EnableOutlining = -1
ws.Protect , Contents:=True, AllowFiltering:=-1, UserInterfaceOnly:=-1
End Sub
Worksheets("Hivers").Outline.ShowLevels RowLevels:=2 ', ColumnLevels:=2 'Developpe le plan pour une action
'**** Ton action
Worksheets("Hivers").Outline.ShowLevels RowLevels:=1 ', ColumnLevels:=1 'Replie le plan apres l'action (pour remettre comme avant)
RowLevels: ==> Pour les lignes
ColumnLevels ==> Pöur les colonnes
Le code donné par notre ami Deadpool fonctionne comme il se doit (enfin sous XL2010 mais plus également je pense). Le code doit être placé dans ThisWorkBook et ne sera activé qu'à la prochaine ouverture du classeur.
VB:
Private Sub Workbook_Open()
With Worksheets("HIVERS")
.EnableOutlining = True
.Protect Contents:=True, Password:="Toto", UserInterfaceOnly:=True
End With
End Sub
Bien sûr, cela t'a été donné au post #3. Modifié :
VB:
Private Sub Workbook_Open()
Dim WS_Count As Integer
Dim I As Integer
WS_Count = ActiveWorkbook.Worksheets.Count
For I = 1 To WS_Count
With ActiveWorkbook.Worksheets(I)
.EnableOutlining = True
.Protect Contents:=True, Password:="Toto", UserInterfaceOnly:=True
End With
Next I
End Sub
Ce code remplace le code placé dans ThisWorkBook.
Bonne soirée
@+ Eric c
Bien sûr, cela t'a été donné au post #3. Modifié :
VB:
Private Sub Workbook_Open()
Dim WS_Count As Integer
Dim I As Integer
WS_Count = ActiveWorkbook.Worksheets.Count
For I = 1 To WS_Count
With ActiveWorkbook.Worksheets(I)
.EnableOutlining = True
.Protect Contents:=True, Password:="Toto", UserInterfaceOnly:=True
End With
Next I
End Sub
Ce code remplace le code placé dans ThisWorkBook.
Bonne soirée
@+ Eric c