pour déclencher l'ouverture d'un Userform, tu passe certainement par un bouton ???
qu'est ce qui t'empèche de mettre un imputbox avec un if avant userform1.show
un truc du genre
sub bouton1_click()
MdP = imputbox
if MdP = "le mot de passe" then
userform1.show
end if
end sub
Bonjour Lisa et Macpoy ,
Petite correction sur la proposition de Macpoy : lire inputbox et non imputbox
Maintenant, ta question portait sur les feuilles aussi. Voici une procédure pour afficher toutes les feuilles que tu peux lier au lancement de ton USF :
Code:
Sub AfficherTout()
Dim WS As Worksheet
For Each WS In ThisWorkbook.Worksheets
WS.Visible = xlSheetVisible
Next
End Sub
Pour les cacher, il te suffit de faire un test sur les feuilles que tu veux conserver :
Code:
Sub CacherFeuilles()
Dim WS As Worksheet
For Each WS In ThisWorkbook.Worksheets
If WS.Name <> "Feuille1" And WS.Name <> "Feuille2" .... Then
WS.Visible = xlSheetVeryHidden
End If
Next
End Sub
Chacune pouvant être protégée par un InputBox, comme le suggérait MacPoy.
Enfin, pour éviter que les gens puissent tripatouiller, tu fait un clic droit sur ton VBAProject dans l'éditeur, et dans les propriétés, tu choisis l'onglet Protection et tu colles aussi un mot de passe.
A te lire