Bonjour =E0 Toutes et =E0 Tous,
comment prot=E9ger une feuille ou un classeur en laissant tous les
droits =E0 l'administrateur (ou l'auteur) sans devoir retaper le mot de
passe.
Merci de suivre,
Freedo
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire
Veuillez sélectionner un problème
Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
JB
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 wrote:
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
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 <aff...@belgacom.net> wrote:
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
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 wrote:
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