Sub boutonP()
'bouton protection
Dim mdp$
mdp = InputBox("Saisir ici le mot de passe requis", "SECURITE- PROTECTION")
Select Case mdp
Case Is = "6319"
Call protection
Case Else
Exit Sub
End Select
End SubSub boutonDP()
'bouton déprotection
Dim mdp$
mdp = InputBox("Saisir ici le mot de passe requis", "SECURITE-DEPROTECTION")
Select Case mdp
Case Is = "6319"
Call deprotection
Case Else
Exit Sub
End Select
End SubSub deprotection()
verrou "ouvert"
End SubSub protection()
verrou "fermé"
End SubSub verrou(etat As String)
Dim ws As Worksheet
For Each ws In Worksheets
Select Case etat
Case Is = "ouvert"
ws.Unprotect
Case Is = "fermé"
ws.Protect
End Select
Next ws
End Sub
Option Explicit
Private Sub TB1_Click()
Dim Feuil As Worksheet
With Application
.ScreenUpdating = 0
.Calculation = xlCalculationManual
End With
For Each Feuil In Worksheets
If TB1 = False Then
TB1.Caption = "Déprotéger les feuilles"
TB1.BackColor = &HC0E0FF
Feuil.Protect "6319"
End If
If TB1 = True Then
TB1.Caption = "Protéger les feuilles"
TB1.BackColor = &HC0FFC0
Feuil.Unprotect "6319"
End If
Next Feuil
With Application
.ScreenUpdating = 1
.Calculation = xlCalculationAutomatic
End With
End SubPrivate Sub TB1_Click()
Dim Feuil As Worksheet
With Application
.ScreenUpdating = 0
.Calculation = xlCalculationManual
End With
For Each Feuil In Worksheets
TB1.Caption = IIf(TB1, "Déprotéger", "Protéger") & " les feuilles."
TB1.BackColor = IIf(TB1, &HC0FFC0, &HC0E0FF)
Feuil.Activate
Application.Run IIf(TB1, "MP", "MDP")
Next Feuil
With Application
.ScreenUpdating = 1
.Calculation = xlCalculationAutomatic
End With
Me.Activate
End SubSub MP()
ActiveSheet.Protect
End SubSub MDP()
ActiveSheet.Unprotect
End Sub
).
