XL 2019 Dans une macro de démarrage de fichier masquer le code par des Astérix ou point

[berru76]

Bonjour
D'abord je remercie son auteur "sylvanu" pour son travail sur cette macro

Dans mon fichier d'origine j'ai une centaine de feuilles masquées
Je vais a celle que j'ai besoin par macro depuis la feuille inscription

Je sais que rien n'est pas craquable mais les personnes qui auront accès a ces fichiers sont encore pire que moi en VBA
en suivant quelques vieux post j'ai trouvé une macro de "sylvanu" de 2021 qui fais ce que j'aurai besoin soit mettre un code de démarrage d'un fichier par macro
Je n'arrive pas a modifier la macro de sylvanu je ne suis pas fort en VBA
Le code d'accès est Pierrot

Principalement si cela est possible :

Que le code soit cachée par des points ou Astérix
Si après 3 erreurs de code on pouvais supprimer une macro / genre module Toi macro M14A (macro qui affiche toutes les pages)

Merci de votre aide

Formule :

Public Nb%
Private Sub Workbook_Open()
Dim R As String
R = "": Nb = 1: N = 1
Sheets("A").Visible = True
While R <> "Pierrot"
R = InputBox("Entrez le mot de passe" & Chr(10) & "( Tentative : " & Nb & "/3 )", "Protection")
Nb = Nb + 1
If Nb = 4 Then ActiveWorkbook.Close Savechanges:=False
Wend
For Each F In Worksheets
If F.Name <> "A" Then
If Sheets("A").Cells(N, "B") <> 0 Then
Sheets(F.Name).Visible = True
End If
N = N + 1
End If
Next
Sheets("A").Visible = False
ActiveWindow.DisplayWorkbookTabs = True
ActiveWindow.DisplayHorizontalScrollBar = True
ActiveWindow.DisplayVerticalScrollBar = True
End Sub
Private Sub Workbook_BeforeClose(Cancel As Boolean)
Sheets("Accueil").Visible = True
Sheets("Accueil").Select
[A1].Select: N = 1
Sheets("A").Visible = True
For Each F In Worksheets
If F.Name <> "A" Then
Sheets("A").Cells(N, "A") = F.Name
If Sheets(F.Name).Visible = True Then
Sheets("A").Cells(N, "B") = 1
Else
Sheets("A").Cells(N, "B") = 0
End If
Sheets(F.Name).Visible = xlSheetVeryHidden
N = N + 1
End If
Next
ActiveWindow.DisplayWorkbookTabs = False ' Masque le nom des onglets
ActiveWindow.DisplayHorizontalScrollBar = False ' Masque les scrollbars
ActiveWindow.DisplayVerticalScrollBar = False
ActiveWorkbook.Save
End Sub

 

[sylvanu]

Bonsoir,

Que le code soit cachée par des points ou Astérix
Si après 3 erreurs de code on pouvais supprimer une macro / genre module Toi macro M14A (macro qui affiche toutes les pages)

Voir PJ.
Au bout de 3 tentatives infructueuses on ferme le fichier.

NB: Astérisques et non Astérix. 😅

 

[berru76]

Bonsoir,

Voir PJ.
Au bout de 3 tentatives infructueuses on ferme le fichier.

NB: Astérisques et non Astérix. 😅

Bonjour
Excusez moi pour l'erreur d'écriture
Le travail est parfait exactement ce que j'avais besoin
Un grand MERCI

 

[sylvanu]

Bonsoir,
Supprimez ce vert, il est utilisé pour faire remonter la solution juste après votre demande pour aider le futur lecteur.

Discussion 'Préfixe "Résolu" et "Marquer comme solution"'

25 Mars 2019

Voici la nouvelle façon de faire suite à la mise à jour du 22/12/2020 :

Avez vous vu...? - Forums aux questions

Fils "Questions" Suite à la mise à jour de ce 22/12/2020, le forum "Excel" et le forum "Autres Applications" deviennent des forums dédiés aux questions. Cela apporte des nouvelles fonctionnalités bien pratiques que je vais vous faire découvrir ici : Bien que cela ne soit pas visible au...

www.excel-downloads.com

(obsolète suite à la mise à jour du 22/12/2020)
Bonjour,

Les personnes posant des questions dans le forum souhaitent souvent pouvoir indiquer que les fils qu'ils ont initiés ont trouvé une réponse qui leur convient.
Cela leur permet de faire savoir qu'ils sont satisfait, qu'ils ne reviendront pas forcément lire les futurs messages et que les répondeurs n'auront donc pas à s'en offusquer.

L'idée n'est pas de demander aux...

• David Aubert
• Réponses: 42
• Forum: Utilisation du forum

• 

Sinon ça donne ça :