Questo è in pratica quello che devi realizzare:
Sheets("Foglio1").Protect "123"
Sheets("Foglio2").Protect "123"
Sheets("Foglio3").Protect "123"
e per semplificare puoi assegnare la password ad una variabile e gestire i 3 fogli con un For/Next.
pass = "123"
For x = 1 To 3
Sheets("Foglio" & x).Protect pass
Next x