Excel, dva pitanja u vezi macro-a

• 0Niko još nije pohvalio poruku.
  Registruj se da bi pohvalio/la poruku!

Pozdrav.
Ovo sto cu vas pitati vjerovatno nije nikakav problem (za vas), ali eto meni jeste. Naime, pravim jedan Excel file u kojeg treba izmedju ostalog da ubacim i nekoliko button-a pomocu kojih treba da se mogu zadati neke od komandi (kopiranje, stampanje i sl.). E sad, uz pomoc opcije Record New Macro uspio sam da vecini button-a dodijelim ono sto mi treba, ali sam zapeo kod dodijeljivanja sljedece dvije komande : Find (Ctrl+F) i Unprotect Sheet. Kod opcije Find je problem sto ne mogu (prilikom Record New Macro postupka) da je izaberem u Edit meniju, znaci nije data na izbor, za razliku od Cut, Copy, Paste i ostalih komandi koje su dostupne.
Kod Unprotect Sheet macro-a problem je slican. Da bih dobio Unprotect, moram prvo da idem na Protect, poslije cega ne mogu vise nista da biram. Znaci, sta mi treba (tj. koji VBA kôd) da bih dobio i ove macro-e?

Hvala.

• 0Niko još nije pohvalio poruku.
  Registruj se da bi pohvalio/la poruku!

sub lozinka ()

ActiveSheet.Unprotect Password:="tvoj password"

End sub

Sub Find2008()

Cells.Select
Cells.Find(What:="2008", After:=ActiveCell, LookIn:=xlValues, LookAt:= _
xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:=False _
, SearchFormat:=False).Activate

End Sub