Protection d'un classeur

Sub protection()
For n = 1 To Sheets.Count
 Sheets(n).Protect "ABCDE"
 Next
End Sub

Sub deprotection()
mdp = InputBox("Mot de e ?")
If mdp <> "ABCDE" Then
Exit Sub
Else
For n = 1 To Sheets.Count
 Sheets(n).Unprotect "ABCDE"
 Next
 End If
End Sub

 1) Aller dans https://www.ct.com/ 
 2) Cliquer sur [Parcourir] pour sélectionner le fichier (15 Mo maxi)
 3) Défiler vers le bas pour cliquer sur le bouton bleu [Créer le lien Ct] 
 4) Au bout de quelques secondes la deuxième page s'affiche, avec le lien en gras ; faire un clic-droit dessus et choisir "Copier le lien"
 5) Revenir dans la discussion sur CCM, et dans votre message faire "Coller".
=>Voir la fiche https://commentcamarche.sitesdebloques.org/faq/29493-utiliser-ct-pour-heberger-des-fichiers 
Il existe aussi https://www.transfernow.net/

• Si les destinataires de ton fichier doivent seulement le consulter sans rien pouvoir modifier, c'est facile : ton original n'a pas besoin de protection ; tu ne protèges que la copie qui sera diffusée.
• S'ils sont autorisés à modifier les 25 feuilles, tu ne mets pas de protection de feuille, mais tu protèges le classeur pour éviter la suppression accidentelle d'une feuille

 Extraits de l'Aide en ligne d'Excel : Protection et la sécurité dans Excel
◾Vous ne devez pas supposer que le fait de protéger un classeur ou une feuille de calcul avec un mot de e qui est sécurisé suffit- vous devez toujours penser à deux fois avant de distribuer des classeurs Excel qui peuvent contenir des informations personnelles sensibles telles que des numéros de cartes bancaires, réseaux sociaux Numéro de sécurité, identification de l’employé, etc..
◾La protection au niveau de feuille de calcul n’est pas destinée comme une fonctionnalité de sécurité. Il empêche simplement les utilisateurs de modifier les cellules verrouillées au sein de la feuille de calcul.
◾Niveau classeur: Vous pouvez verrouiller la structure de votre classeur en spécifiant un mot de e. Verrouillage la structure du classeur empêche les autres utilisateurs de l’ajout, déplacer, supprimer, masquer et renommer des feuilles de calcul. Pour plus d’informations sur la protection des classeurs, voir Protéger un classeur.

• Sinon il y a les macros ... mais tu devras te mettre à l'étude de la programmation en VBA !

Sub protection()
' récupère le mot de e mis en cellule AX3 de la 1ere feuille du classeur
mdp = Sheets(1).Range("AX3")
' Protection de la 1ere feuille du classeur avec le mot de e et en autorisant sélection cellules verrouillées et déverrouillées, le formatage de cellule et la mise en forme des colonnes
Sheets(1).Protect DrawingObjects:=True, Contents:=True, Scenarios:=True, AllowFormattingCells:=True, AllowFormattingColumns:=True, :=mdp
    ActiveSheet.EnableSelection = xlNoRestrictions
  'Boucle sur les feuilles du classeur de la 2eme à la dernière
For n = 2 To Sheets.Count
' protège simplement chaque feuille avec le mot de se
 Sheets(n).Protect mdp
 Next
End Sub

Sub deprotection()
' demande d'entrer un mot de e
mdp = InputBox("Mot de e ?", "Confirmation de déprotection")
'si ce mdp ne correspond pas à celui de la cellule AX3 de la 1ere feuille
If mdp <> Sheets(1).Range("AX3") Then
' alors on affiche ce message
MsgBox "Mot de se invalide !"
Else
' sinon on boucle sur toutes les feuilles de la 1ère à la dernière et on les déprotège
For n = 1 To Sheets.Count
 Sheets(n).Unprotect mdp
 Next
 End If
End Sub

Private Sub Workbook_BeforeClose(Cancel As Boolean)
'lance la macro protection
protection
End Sub

mdp = InputBox("Mot de e ?", "Confirmation de déprotection")

If IsNumeric(mdp) Then mdp = Val(mdp)

 Sub protection()
mdp = "dodo"
For n = 1 To Sheets.Count
 Sheets(n).Protect mdp
 Next
End Sub

 Sub deprotection()
mdp = InputBox("Mot de e ?", "Confirmation de déprotection")
If mdp <> "dodo" Then
MsgBox "Mot de se invalide !"
Else
For n = 1 To Sheets.Count
 Sheets(n).Unprotect mdp
 Next
 End If
End Sub