Bonjour et bienvenue sur le forum,
En plaçant ce code dans le thisworkbook, au démarrage du fichier, toutes les feuilles du classeur seront protégées.
La macro pourra ainsi écrire n'importe où dans les feuilles mais l'utilisateur non. Tu peux supprimer la partie qui masque les onglets si tu le souhaites.
Entre les guillemets, tu peux mettre un mot de passe si tu le souhaites.
Cordialement
Dim i As Byte
Sub ProtegeFeuilles()
'On peut ajouter après Protect le mot de passe si requis
'Si on protège les feuilles de cette façon, on peut mmodifier
'le contenu de la feuille PAR MACRO SEULEMENT sans se soucier
'que la feuille est protégée.
Application.ScreenUpdating = False 'désactive l'écran
Application.EnableEvents = False ' désactive les macros évenementielles
For i = 1 To Sheets.Count
Sheets(i).Protect Password:="", DrawingObjects:=True, Contents:=True, UserInterfaceOnly:=True
' Masque les onglets
With ActiveWindow
.DisplayHeadings = False
.DisplayWorkbookTabs = False
End With
Next i
Application.EnableEvents = True 'réactive les macros évenementielles
Application.ScreenUpdating = True 'active l'écran