protection sauf pour l'administrateur

Le
freedo
Bonjour Toutes et Tous,
comment protger 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
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