Problème de protection

[SPEA]

J'ai un probleme avec le code VBA destiné à proteger mon fichier, le classeur comporte des feuilles de calculs et des feuilles de graphiques.

J'ai mis le code suivant:

Private Sub Workbook_Open()
If Application.UserName = "SPEA" Then
For i = 1 To Worksheets.Count
Worksheets("i").Unprotect Password:="1234"
Next i
End If
Sheets("Menu").Visible = xlSheetVisible
Sheets("Menu").Select
End Sub

ainsi que:

Private Sub Workbook_BeforeClose(Cancel As Boolean)
For i = 1 To Worksheets.Count
Worksheets("i").Protect Password:="1234"
Next i
End Sub

j'abouti à une erreur. L'idee est de proteger le classeur si ce n'est pas moi qui l'ouvre, avec accés uniquement aux cellules non protegees.

 

[Pierrot93]

Re : Problème de protection

Bonjour Spea

modifies :

Worksheets("i")

par :

Worksheets(i)

bonne journée
@+

 

[SPEA]

Re : Problème de protection

OK Merci Pierrot.

J'ai modifié le code comme suit:

Private Sub Workbook_BeforeClose(Cancel As Boolean)

Dim nombre As Integer
nombre = ActiveWorkbook.Sheets.Count
Application.ScreenUpdating = False
For i = 1 To nombre
Sheets(i).Protect Password:="1973"
Next i

End Sub

Private Sub Workbook_Open()

Dim nombre As Integer
nombre = ActiveWorkbook.Sheets.Count
Application.ScreenUpdating = False
If Application.UserName = "SPEA" Then
For i = 1 To nombre
Sheets(i).Protect Password:="1973"
Next i
End If
Sheets("Menu").Visible = xlSheetVisible
Sheets("Menu").Select

End Sub

Le pb est que quand j'ouvre le classeur la macro me demande le code, je voudrais que le classeur soit déprotégé automatiquement quand c'est mon username.

Par ailleurs je voudrais autoriser uniquement les cellules non verrouillées si c'est un autre utilisateur qui ouvre le fichier:
Sheets(i).EnableSelection = xlUnlockedCells
Sheets(i).Protect Contents:=True, UserInterfaceOnly:=True

Merci

 

[Pierrot93]

Re : Problème de protection

Re

essaye comme ceci :

Private Sub Workbook_Open()
Dim nombre As Integer
nombre = ActiveWorkbook.Sheets.Count
Application.ScreenUpdating = False
If Application.UserName = "SPEA" Then
For i = 1 To nombre
Sheets(i).UnProtect Password:="1973"
Next i
End If
Sheets("Menu").Visible = xlSheetVisible
Sheets("Menu").Select
End Sub

@+

 

[SPEA]

Re : Problème de protection

Re

ok pour la premiere partie, comment puis-je integrer la protection du classeur si ce n'est pas mon username qui est utilisé ?

Je pensais mettre EnableSelection = xlUnlockedCells et Protect Contents:=True, UserInterfaceOnly:=True mais je sais pas comment les integrer dans workbook open.

 

[Pierrot93]

Re : Problème de protection

Re

Private Sub Workbook_Open()
Dim nombre As Integer
Application.ScreenUpdating = False
nombre = ActiveWorkbook.Sheets.Count
For i = 1 To nombre
If Application.UserName = "SPEA" Then
Sheets(i).Unprotect Password:="1973"
Else
Sheets(i).Protect Password:="1973", userinterfaceonly:=True
End If
Next i
Sheets("Menu").Visible = xlSheetVisible
Sheets("Menu").Select
Application.ScreenUpdating = True
End Sub

 

[SPEA]

Re : Problème de protection

Re:

je n'arrive pas à comprendre pourquoi j'ai une erreur avec le code suivant:

Private Sub Workbook_Open()

Dim nombre As Integer
Application.ScreenUpdating = False
nombre = ActiveWorkbook.Sheets.Count
For i = 1 To nombre
If Application.UserName = "SPEA" Then
Sheets(i).Unprotect Password:="1973"
Else
Sheets(i).Protect Password:="1973", userinterfaceonly:=True
Sheets(i).EnableSelection = xlUnlockedCells
End If
Next i
Sheets("Menu").Visible = xlSheetVisible
Sheets("Menu").Select

Je veux empecher les utilisateurs de selectionner les cellules non protegees, si je protege le classeur j'ai une fenetre qui s'ouvre chaque fois que l'on essaie de modifier des cellules verouillées.

 

[Pierrot93]

Re : Problème de protection

Re

comprends pas, chez moi cela fonctionne comme il se doit...

 

[SPEA]

Re : Problème de protection

Re

J'ai une erreur 438, methode non geree par l'objet sur cette ligne:

Sheets(i).EnableSelection = xlUnlockedCells

Cela peut il etre causé par les feuilles de graph ?

 

[Pierrot93]

Re : Problème de protection

Re

oui, la propriété "EnableSelection" s'applique uniquement aux feuilles de calcul et non au feuilles graphiques. Il me semble que tu possèdes déjà un code pour les distinguer suite à un précédent post.

bonne journée
@+

 

[SPEA]

Re : Problème de protection

C'est bien ça je confirme.

Merci pour ton aide, bonne journée.

 

[Pierrot93]

Re : Problème de protection

Re

tu peux remplacer la ligne en question, par celle ci :

If Sheets(i).Type = -4167 Then Sheets(i).EnableSelection = xlUnlockedCells

@+

 

[SPEA]

Re : Problème de protection

Re

Sheets(i).Type = -4167 désigne une worksheet ?

@+

 

[Pierrot93]

Re : Problème de protection

Bonsoir Spea

ca désigne un type de feuille en l'occurence une feuille de calcul, ci dessous les differents types (cf aide vba :

xlChart -4109
xlDialogSheet -4116
xlExcel4IntlMacroSheet 4
xlExcel4MacroSheet 3
xlWorksheet -4167

bonne soirée
@+