protection sauf pour l'administrateur

Le
freedo
Bonjour à Toutes et à Tous,
comment protéger une feuille ou un classeur en laissant tous les
droits à l'administrateur (ou l'auteur) sans devoir retaper le mot de
passe.
Merci de suivre,
Freedo
Vidéos High-Tech et Jeu Vidéo
Téléchargements
Vos réponses
Gagnez chaque mois un abonnement Premium avec GNT : Inscrivez-vous !
Trier par : date / pertinence
JB
Le #5026761
Bonjour,

Scénario1: on enlève la protection des feuilles pour l'admin

Private Sub Workbook_Open()
If Environ("username") = "Boisgontier" Then
For Each s In ActiveWorkbook.Sheets
s.Unprotect Password:=""
Next
End If
End Sub

Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As
Boolean)
For s = 1 To Sheets.Count ' on protège les feuilles
Sheets(s).Protect Password:=""
Next s
End Sub

Scénario2: on affiche les feuilles pour l'admin

Private Sub Workbook_Open()
If Environ("username") = "Boisgontier" Then
For Each s In ActiveWorkbook.Sheets
s.Visible = True
Next
End If
End Sub

Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As
Boolean)
For s = 2 To Sheets.Count ' on masque les feuilles
Sheets(s).Visible = xlVeryHidden
Next s
End Sub

JB

On 9 nov, 09:52, freedo
Bonjour à Toutes et à Tous,
comment protéger une feuille ou un classeur en laissant tous les
droits à l'administrateur (ou l'auteur) sans devoir retaper le mot de
passe.
Merci de suivre,
Freedo


Publicité
Poster une réponse
Anonyme