XL 2016 Excel Acces onglet par utilisateur sauf admin

  • Initiateur de la discussion Initiateur de la discussion LD-HCF
  • Date de début Date de début

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

LD-HCF

XLDnaute Nouveau
Bonjour,

J'ai trouvé sur ce site le code ci-dessous qui fonctionne très bien, je voudrais ajouter une exception.
A savoir que 2 des utilisateurs puissent voir tous les onglets et pas seulement le leur.

Merci pour votre aide

Private Sub Workbook_BeforeSave(ByVal SaveAsUi As Boolean, Cancel As Boolean)
Dim n As Byte
Application.ScreenUpdating = False
Sheets(1).Visible = True 'affiche la 1ère feuille ("Accueil")
For n = 2 To Sheets.Count
Sheets(n).Visible = xlVeryHidden 'masque les autres feuilles
Next
Application.EnableEvents = False
ThisWorkbook.Save
Application.EnableEvents = True
If Workbooks.Count = 1 Then Application.Quit Else ThisWorkbook.Close
End Sub[/CODE]
Next
Application.EnableEvents = False
ThisWorkbook.Save
Application.EnableEvents = True
If Workbooks.Count = 1 Then Application.Quit Else ThisWorkbook.Close
End Sub
 
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD

Discussions similaires

  • Question Question
Microsoft 365 worksheet_change
Réponses
29
Affichages
479
  • Question Question
Microsoft 365 Probléme VBA
Réponses
8
Affichages
317
Réponses
4
Affichages
461
  • Question Question
Microsoft 365 Excel VBA
Réponses
5
Affichages
426
Réponses
3
Affichages
508
Retour