Re : Protection
Bonsoir,
Merci, pour tes conseils job75.
J'ai utilisé cette macro de ROGER2327
A partir d' User
Public Sub CommandButton1_Click() Je lance ces deux macros
Call E
Call Déprotéger
End Sub
Sub Protéger()
' Protection automatique de toutes les feuilles d'un classeur
Dim nombre As Integer, i As Integer
nombre = ActiveWorkbook.Sheets.Count
Application.ScreenUpdating = False
For i = 1 To nombre
Worksheets(i).Protect Password:="protege"
Next i
End Sub
Sub Déprotéger()
' Déprotection automatique de toutes les feuilles d'un classeur
Dim nombre As Integer, i As Integer
nombre = ActiveWorkbook.Sheets.Count
Application.ScreenUpdating = False
For i = 1 To nombre
Worksheets(i).Unprotect Password:="protege"
Next i
End Sub
Puis User
Private Sub CommandButton1 Click()
Unload Userform
Call o
Call Protéger
End Sub
Il m'indique toujours "erreur 1004" lié toujours à la protection
Avez vous une idée
A+