Bonjour à tous, je suis débutant en VBA donc je comprends pas vite
Tout d'abord j'ai bien regardé partout et je n'ai pas trouvé de post solutionnant mon problème...ou en tout cas tout à fait car celui ci est à tiroir bcp de sous problèmes lol
Je vais tenter d'expliquer clairement ce que j'essaye de faire :
Je souhaite protéger mon classeur ( outil de travail utilisé par des collègues soit nuls,maladroits ou mal intentionnés ) avec une macro pour tout protéger et déprotéger en une fois. Jusque là çà va mais la ou ca se complique c'est qu'il me faudrait une msg box qui demande le code (idéalement protégé avec des ***), qui se verrouille quand on ferme le classeur (donc verrouillé à l'ouverture) avec une cellule sur la première page qui indique si le classeur est verrouillé ou pas.
avec les infos glanées dans les méandres de la toile j'arrive à ceci qui ne marche évidement pas lol
Sub Déprotection()
password = InputBox("Veuillez entrer le mot de passe", "Enlever la protection des feuilles", "")
If (password = "essai") Then
For i = 1 To Sheets.Count
Sheets(i).Unprotect password
Range("D14").Value = "la feuille est déprotégée"
Next i
Else: MsgBox ("Mauvais mot de passe.")
End If
End Sub
Soyez indulgent c'est mon premier essai de VBA je débute
Merci à qui saurait m'aider ou m'aiguiller
Tout d'abord j'ai bien regardé partout et je n'ai pas trouvé de post solutionnant mon problème...ou en tout cas tout à fait car celui ci est à tiroir bcp de sous problèmes lol
Je vais tenter d'expliquer clairement ce que j'essaye de faire :
Je souhaite protéger mon classeur ( outil de travail utilisé par des collègues soit nuls,maladroits ou mal intentionnés ) avec une macro pour tout protéger et déprotéger en une fois. Jusque là çà va mais la ou ca se complique c'est qu'il me faudrait une msg box qui demande le code (idéalement protégé avec des ***), qui se verrouille quand on ferme le classeur (donc verrouillé à l'ouverture) avec une cellule sur la première page qui indique si le classeur est verrouillé ou pas.
avec les infos glanées dans les méandres de la toile j'arrive à ceci qui ne marche évidement pas lol
Sub Déprotection()
password = InputBox("Veuillez entrer le mot de passe", "Enlever la protection des feuilles", "")
If (password = "essai") Then
For i = 1 To Sheets.Count
Sheets(i).Unprotect password
Range("D14").Value = "la feuille est déprotégée"
Next i
Else: MsgBox ("Mauvais mot de passe.")
End If
End Sub
Soyez indulgent c'est mon premier essai de VBA je débute
Merci à qui saurait m'aider ou m'aiguiller