Macro pour cacher des onglets

[Polobe36]

Bonjour à tous,

Je recherche (mais j'y connais pas grand chose) une macro qui me permettrait:

1- d'afficher un onglet bien défini à l'ouverture du fichier

2- de masquer certains onglets si l'on se trouve en [lecture seule] et affichage complet si mot de passe renseigné.

Merci de votre aide!!

 

[Pierrot93]

Re : Macro pour cacher des onglets

Bonjour,

regarde peut être ceci, à placer dans le module "thisworkbook" :

Option Explicit
Private Sub Workbook_Open()
Dim ws As Worksheet
Sheets("Feuil1").Activate
If Me.ReadOnly Then
    For Each ws In Sheets(Array("Feuil2", "Feuil3"))
        ws.Visible = xlSheetHidden
    Next ws
End If
End Sub

bon après midi
@+

 

[Polobe36]

Re : Macro pour cacher des onglets

Nickel,

Merci Pierrot93 !

Eventuellement si je voulais également restreindre l'affichage d'onglet selon un autre mot de passe que le mien?...

 

[Pierrot93]

Re : Macro pour cacher des onglets

Re,

regarde peut être du coté des "inputbox" ou "userforms".. A voir...

 

[Pierrot93]

Re : Macro pour cacher des onglets

Re,

exemple ci-dessous avec "inputbox" :

Option Explicit
Private Sub Workbook_Open()
Dim ws As Worksheet, mdp As String
Sheets("Feuil1").Activate
mdp = InputBox("Mot de passe pour afficher feuil2 et 3")
If mdp <> "123456" Then Exit Sub
For Each ws In Sheets(Array("Feuil2", "Feuil3"))
    ws.Visible = xlSheetVisible
Next ws
End Sub