Skjul flere faner samtidig med kode

Hej
Er det muligt at sætte en kode på skjulte faner, forstået på den måde, at man skal taste en kode for at se fanen igen.
Jeg kan skjule flere faner på en gang med denne, men om de er skjult med kode tvivler jeg på, for jeg kan åbne dem uden at taste en kode.
Sub SkjulFlere()
Sheets(Array("Budget", "Jan", "Feb", "Mar", "Apr", "Maj", "Jun", "Jul", "Aug", "Sep", "Okt", "Nov", "Dec")).Visible = False
ActiveWorkbook.Protect Password:="1234", Structure:=True, Windows:=False
End Sub