1.Mohon bantuan mas caton,mas didit,mas fuji ma master2 lain..
Kode script untk refresh pivot table yg kondisi sheet nya diprotect gimna ya?
2.kode.script utk buat format cell menjadi bulan dan tahun (cth: mar-19)
Mohon bantuan lg ya..
Thx.. ^_^
1.Mohon bantuan mas caton,mas didit,mas fuji ma master2 lain..
Kode script untk refresh pivot table yg kondisi sheet nya diprotect gimna ya?
2.kode.script utk buat format cell menjadi bulan dan tahun (cth: mar-19)
Mohon bantuan lg ya..
Thx.. ^_^
Untuk me-refresh Pivot Table, yang saya tau, meskipun worksheet-nya dalam keadaan terproteksi bisa di-refresh menggunakan fungsi RefreshTable, misalnya:
Sheet1.PivotTables("PivotTable1").RefreshTable
Namun jika menggunakan fungsi PivotCache.Refresh, maka proteksi worksheet-nya harus dibuka dahulu baru direfresh. Misalnya
Sheet1.Unprotect "123" Sheet1.PivotTables("PivotTable1").PivotCache.Refresh Sheet1.Protect "123"
Untuk format sel, bisa menggunakan properti NumberFormat. Misal:
Sheet1.Range("A1").NumberFormat = "mmm-yyyy"
Biar aman, coba dipelajari dari file terlampir... ;)
Mantappp..
Terima kasih mas caton ^_^
Koreksi sedikit mas @David Leo, jika ada masalah pada contoh, coba modifikasi baris perintah pada prosedur Worksheet_Activate, dari:
Private Sub Worksheet_Activate() Me.Protect Password:=CONTOH_PASSWORD, AllowUsingPivotTables:=True End Sub
menjadi:
Private Sub Worksheet_Activate() Me.Protect Password:=CONTOH_PASSWORD, AllowUsingPivotTables:=True, UserInterfaceOnly:=True End Sub
Maaf ya sebelumnya... hehe... :D
Dan jangan lupa ubah juga prosedur cmdRefresh_Click menjadi
Private Sub cmdRefresh_Click() On Error Resume Next Me.PivotTables("PivotTable1").RefreshTable If Err.Number Then Call Worksheet_Activate Err.Clear End If On Error GoTo 0 End Sub
Maaf, sebelumnya karena buru-buru ada pekerjaan, jadi lupa... hehe... ;)
@Aupe ...klo tanpa tombol refresh gimna caranya...
mungkin mas @Caton lagi sibuk, jadi sy bantu jawab aja ya :)
pindahkan saja baris Me.PivotTables("PivotTable1").RefreshTable
yang ada di cmdRefresh_Click
ke worksheet event Worksheet_Activate
Private Sub Worksheet_Activate() Me.Protect Password:=CONTOH_PASSWORD, AllowUsingPivotTables:=True, UserInterfaceOnly:=True Me.PivotTables("PivotTable1").RefreshTable End Sub
Run mas @manweljs_ terima kasih mas,, terima kasih, terus memberikan bantuan, heee