1.Kode script pivot table (protect sheet) 2.format bln dan tahun

  1. 7 tahun lalu

    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.. ^_^

  2. Caton

    17 Jul 2017 Terverifikasi Indonesia + 20.101 Poin

    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... ;)

  3. Mantappp..
    Terima kasih mas caton ^_^

  4. Caton

    18 Jul 2017 Terverifikasi Indonesia + 20.101 Poin

    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

  5. Caton

    18 Jul 2017 Terverifikasi Indonesia + 20.101 Poin

    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... ;)

  6. 4 tahun lalu
    Di sunting 4 tahun lalu oleh Aupe

    Maaf ikutan, klo tanpa tombol refresh gimna caranya mas @Caton, otomatis langsung gitu, tanpa pencet tombol refresh, terima kasih

  7. Di sunting 4 tahun lalu oleh manweljs_

    @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

  8. Run mas @manweljs_ terima kasih mas,, terima kasih, terus memberikan bantuan, heee

 

atau Mendaftar untuk ikut berdiskusi!