[Visual basic] Excel macro - samodejno vpiši geslo

S spodnjim excelovim makrojem odklenem list zaščiten z geslom, izbrišem vrstico in zaklenem list.

Manjka pa mi funkcija, ki bi samodejno vpisala geslo, ker sicer zaklepanje lista nima smisla


' brisivrstico Makro
'
ActiveSheet.Protect UserInterfaceOnly:=True

Rem TUKAJ MANJKA funkcija ki samodejno vpiše geslo, da se ne prikaže okno za vpis gesla

If Sheets(3).Range("K38") = "Skupaj" Then
MsgBox ("Brisanje vrstic ni več mogoče.")
Else:
Rows("35:35").Select
Selection.Delete Shift:=xlDown
End If
ActiveSheet.Protect UserInterfaceOnly:=False

End Sub