Pues si quieres que empezando se inicie la "ocultacion" de las hojas puedes ponerlo en Auto_Open/Auto_Close, son rutinas que ejecutan los comandos al abrir/cerrar el archivo.
Puede ser algo como
Sub Auto_Open()
dim i as Integer
for i=1 to Sheets.countIf i<> 16 Then Sheets(i).Visible = False
Next i
End Sub
Tambien para evitar lo que dice
David el Grande, teniendo tú activado los macros, aunque tambien seria bueno tener activado la contraseña del archivo, te recomiendo la lectura de este post
Como hacer inviolable una hoja de Excel?
Sub Auto_Close()
dim i as Integer
for i=1 to Sheets.countIf i<> 16 Then Sheets(i).Visible = False
Next i
End Sub
Saludos