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

  1. 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 + 12.569 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 + 12.569 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 + 12.569 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... ;)

 

atau Mendaftar untuk ikut berdiskusi!