Pak Sukarno,
Pak ada kesalahan saya dalam menuliskan syntaxnya:
Private Sub Worksheet_Change(ByVal Target As Range)
Sheet2.Unprotect Password:= "ano"
Range("H6:M10").Select
Selection.Sort Key1:=Range("M6"), Order1:=xlDescending,
Key2:=Range("K6") _
, Order2:=xlDescending, Header:=xlGuess, OrderCustom:=1, MatchCase:=
_
False, Orientation:=xlTopToBottom, DataOption1:=xlSortNormal,
DataOption2 _
:=xlSortNormal
Range("H14:M18").Select
Selection.Sort Key1:=Range("M14"), Order1:=xlDescending, Key2:=Range( _
"K14"), Order2:=xlDescending, Header:=xlGuess, OrderCustom:=1,
MatchCase _
:=False, Orientation:=xlTopToBottom, DataOption1:=xlSortNormal, _
DataOption2:=xlSortNormal
Range("d6").Select
Sheet2.Protect Password:= "ano"
End Sub
Coba lagi Pak.
Salam,
2008/7/14 sukarno <[EMAIL PROTECTED]>:
> Pak Halim,
>
> sudah dicoba, tapi hasilnya sama.
>
> sukarno
>
> Dr.-Ing. Alexander Halim wrote:
> > m
> >> Dear All,
> >>
> >> Mohon bantuan,
> >>
> >> Saya memodifikasi file UEROTOOL, yang digunakan untuk pertandingan di
> >> kantor.
> >> masalahnya timbul ketika saya memprotect sheet tersebut. Makro tidak
> >> bisa berjalan. (Runtime error : "1004")
> >> Mohon penjelasan.
> >>
> >> Atau ada cara lain?
> >>
> >> password:ano
> >>
> >> Terima kasih
> >> sukarno
> >>
> >> ------------------------------------
> >>
> >> ExcelWeb <http://opi.110mb.com/>Yahoo! Groups Links
> >>
> >>
> >>
> >>
> >>
> >
> >
> >
>
> ------------------------------------
>
> ExcelWeb <http://opi.110mb.com/>Yahoo! Groups Links
>
>
>
>
--
Dr.-Ing. Alexander Halim
mobile : +62 816 996996 or +62 8179 996996
