Pak Sukarno, saya ingin mencoba untuk menjawabnya. Selipkan 2 baris command
ini (warna merah). Seharusnya macro akan run, setelah ada perubahan pada
sheet2.
Silahkan dicoba Pak.
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
Salam,
Alexander Halim
2008/7/11 sukarno <[EMAIL PROTECTED]>:
> 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
>
>
>
>
--
Dr.-Ing. Alexander Halim
mobile : +62 816 996996 or +62 8179 996996
