Bonjour,
Voulant exécuter toutes les macros mais en mode protégé, j'ai choisi d'utiliser userinterfaceonly mais elle ne marche pas avec cette macro :
Private Sub Workbook_SheetActivate(ByVal Sh As Object)
Dim choix
Dim f As Worksheet
choix = ""
For Each f In Worksheets
If f.Name <> "Template" Then choix = choix & f.Name & ","
Next
With ActiveSheet.Range("B9").Validation
.Delete
.Add xlValidateList, Formula1:=choix
End With
End Sub
L'erreur surligné en jaune : .Add xlValidateList, Formula1:=choix
Mon code complet dans ThisWorkBook :
Private Sub Workbook_SheetActivate(ByVal Sh As Object)
Dim choix
Dim f As Worksheet
choix = ""
For Each f In Worksheets
If f.Name <> "Template" Then choix = choix & f.Name & ","
Next
With ActiveSheet.Range("B9").Validation
.Delete
.Add xlValidateList, Formula1:=choix
End With
End Sub
Private Sub Workbook_Open()
Dim Ws As Worksheet
For Each Ws In ThisWorkbook.Worksheets
Ws.Protect "mdp", UserInterfaceOnly:=True
Next Ws
End Sub
Quelqu'un aurait-il une solution ?