Mot de passe

FREESURF

XLDnaute Occasionnel
Désolé... un gros coup de fatigue m'a fait publier une question dans le salon.Ce 'est évidement pas sa place...

La revoilà...
Le systeme de mot de passe publié par Thierry dans ce forum est une merveille.Débutant dans ce domaine, j'ai réussi à l'adaptewr à mes besoins et j'en remercie son auteur.
Toutefois, je souhaiterais que les feuilles accessibles par les niveaux 1 et 2 le soient en lecture seule.

Merci pour votre aide

A+
 

Marc_du_78

XLDnaute Accro
Bonjour FREESURF, le Forum

Cet exemple trouvé dans l'aide peut-il convenir ?
Person je débute seulement en vba et je cherche énormément,mais ne comprend pas beaucoup

Exemple
Cet exemple montre comment protéger la feuille de calcul active, puis comment déterminer si des colonnes peuvent être insérées dans la feuille de calcul protégée, avertissant l'utilisateur de cet état.

Sub CheckProtection()
ActiveSheet.Protect
' Check the ability to insert columns on a protected sheet.
' Notify the user of this status.
If ActiveSheet.Protection.AllowInsertingColumns = True Then
MsgBox 'The insertion of columns is allowed on this protected worksheet.'
Else
MsgBox 'The insertion of columns is not allowed on this protected worksheet.'
End If
End Sub

En te souhaitant une bonne journée
 

Discussions similaires

Réponses
2
Affichages
208
Réponses
5
Affichages
442
Compte Supprimé 979
C
Réponses
4
Affichages
651

Statistiques des forums

Discussions
312 392
Messages
2 087 999
Membres
103 691
dernier inscrit
christophe89