altinea
XLDnaute Accro
Bonjour, ayant mis en place dans un classeur une feuille permettant de protéger l'ensemble des feuilles du classeur, sans avoir à le faire une par une, je rencontre une difficulté.
La première feuille donne accès à la protection ou de-protection des 12 feuilles du classeur, cela permets de protéger en une seule manip
En protégeant globalement les feuilles, je ne peux pas ajouter de commentaire sur les cellules laissées en libre accès sur les feuilles du classeur.
Lorsque je le fait manuellement et que je coche modifier les objets et les scénarios, cela fonctionne, mais dès lors que je reprotège par la feuille de protection globale et bien ces choix disparaissent et je ne peux a nouveau plus ajouter de commentaires.
Ma question est comment faire en sorte de rajouter dans le module de protection la possibilité de modifier les objets et les scénario
MERCI DE VOTRE AIDE
ci après les codes de la page concernée
Private Sub CommandButton1_Click()
'protège
For Each sh In Worksheets
If sh.ProtectContents = False Then sh.Protect TextBox1
Next
Unload UserForm1
Unload UserForm2
Sheets("Janvier").Activate
End Sub
Private Sub CommandButton2_Click()
'déprotège
On Error Resume Next
For Each sh In Worksheets
sh.Unprotect TextBox1
If Err > 0 Then MsgBox "Incorrect " & sh.Name: Err.Clear
Next
Unload UserForm1
Unload UserForm2
Sheets("Janvier").Activate
End Sub
Private Sub CommandButton3_Click()
For k = 0 To ListBox1.ListCount - 1
If ListBox1.Selected(k) Then
If Sheets(k + 1).ProtectContents = False Then Sheets(k + 1).Protect TextBox1
Else
On Error Resume Next
Sheets(k + 1).Unprotect TextBox1
If Err > 0 Then MsgBox "Incorrect" & sh.Name: Err.Clear
End If
Next
Unload UserForm1
Unload UserForm2
Sheets("Janvier").Activate
End Sub
Private Sub CommandButton5_Click()
Unload UserForm1
Unload UserForm2
Sheets("Janvier").Activate
End Sub
Private Sub ListBox1_Click()
End Sub
Private Sub TextBox1_Change()
If TextBox1 = "simon" Then
Me.CommandButton1.Enabled = True
Me.CommandButton2.Enabled = True
Me.CommandButton3.Enabled = True
Else
Me.CommandButton1.Enabled = False
Me.CommandButton2.Enabled = False
Me.CommandButton3.Enabled = False
End If
End Sub
Private Sub UserForm_Initialize()
For Each sh In Worksheets
ListBox1.AddItem sh.Name
If sh.ProtectContents = True Then ListBox1.Selected(ListBox1.ListCount - 1) = True
Next
Me.CommandButton1.Enabled = False
Me.CommandButton2.Enabled = False
Me.CommandButton3.Enabled = False
End Sub
La première feuille donne accès à la protection ou de-protection des 12 feuilles du classeur, cela permets de protéger en une seule manip
En protégeant globalement les feuilles, je ne peux pas ajouter de commentaire sur les cellules laissées en libre accès sur les feuilles du classeur.
Lorsque je le fait manuellement et que je coche modifier les objets et les scénarios, cela fonctionne, mais dès lors que je reprotège par la feuille de protection globale et bien ces choix disparaissent et je ne peux a nouveau plus ajouter de commentaires.
Ma question est comment faire en sorte de rajouter dans le module de protection la possibilité de modifier les objets et les scénario
MERCI DE VOTRE AIDE
ci après les codes de la page concernée
Private Sub CommandButton1_Click()
'protège
For Each sh In Worksheets
If sh.ProtectContents = False Then sh.Protect TextBox1
Next
Unload UserForm1
Unload UserForm2
Sheets("Janvier").Activate
End Sub
Private Sub CommandButton2_Click()
'déprotège
On Error Resume Next
For Each sh In Worksheets
sh.Unprotect TextBox1
If Err > 0 Then MsgBox "Incorrect " & sh.Name: Err.Clear
Next
Unload UserForm1
Unload UserForm2
Sheets("Janvier").Activate
End Sub
Private Sub CommandButton3_Click()
For k = 0 To ListBox1.ListCount - 1
If ListBox1.Selected(k) Then
If Sheets(k + 1).ProtectContents = False Then Sheets(k + 1).Protect TextBox1
Else
On Error Resume Next
Sheets(k + 1).Unprotect TextBox1
If Err > 0 Then MsgBox "Incorrect" & sh.Name: Err.Clear
End If
Next
Unload UserForm1
Unload UserForm2
Sheets("Janvier").Activate
End Sub
Private Sub CommandButton5_Click()
Unload UserForm1
Unload UserForm2
Sheets("Janvier").Activate
End Sub
Private Sub ListBox1_Click()
End Sub
Private Sub TextBox1_Change()
If TextBox1 = "simon" Then
Me.CommandButton1.Enabled = True
Me.CommandButton2.Enabled = True
Me.CommandButton3.Enabled = True
Else
Me.CommandButton1.Enabled = False
Me.CommandButton2.Enabled = False
Me.CommandButton3.Enabled = False
End If
End Sub
Private Sub UserForm_Initialize()
For Each sh In Worksheets
ListBox1.AddItem sh.Name
If sh.ProtectContents = True Then ListBox1.Selected(ListBox1.ListCount - 1) = True
Next
Me.CommandButton1.Enabled = False
Me.CommandButton2.Enabled = False
Me.CommandButton3.Enabled = False
End Sub