mohon dibantu : batas maksimal buka file

  1. 3 tahun lalu

    kakak semua dan para suhu dan senior
    Mohon bantuannya
    saya mempunyai file, bagaimana caranya supaya file excel dibatasi banyaknya file ketika dibuka

    misal hanya dapat di buka maksimal 10 kali saja
    jadi ketika file di open yang ke 11 dan seterusnya maka wajib butuh password " Damar21"

    atas kebaikan kakak semua dan para suhu dan senior di ucapkan terimakasih

  2. Caton

    11 Agu 2021 Terverifikasi Indonesia + 20.101 Poin

    Mas @damarsaputra ...

    Berikut contohnya. Proteksi yang saya contohkan berikut masih sederhana, namun cukup untuk sekedar membatasi penggunaan berkas. Di sini, saya contohkan dengan menggunakan hidden Named Range untuk menyimpan nilai penghitung berapa telah berapa kali berkas dibuka.

    Untuk membuka VBA Project-nya, gunakan kata kunci 123. Semoga bermanfaat.

    Demikian.

  3. tahun lalu

    mas @Caton kata kunci utk membuka file apa ya mas, trims

  4. Caton

    29 Nov 2022 Terverifikasi Indonesia + 20.101 Poin

    @Aupe ...

    ... kata kunci utk membuka file apa ya ...

    Sudah dibaca baik-baik diskusi di atas mas? Coba dengan salah satu password dari diskusi di atas.

    Demikian.

  5. Kata kunci ini maksudnya mas

  6. Caton

    29 Nov 2022 Terverifikasi Indonesia + 20.101 Poin

    @Aupe ...

    Mas sudah baca baik-baik pertanyaan ini? Diskusi paling atas (pertama) mas!

    Demikian.

  7. Waduh, ampun mas @Caton kok gg terbaca ya Damar21, maaf mas klo mau ganti password Damar21 dimana ya mas, hidden Named Range tidak ada

  8. Caton

    30 Nov 2022 Terverifikasi Indonesia + 20.101 Poin

    @Aupe ...

    Gunakan perintah VBA :

    ThisWorkbook.Names(NamedRange).Value = Value

    Ganti parameter NamedRange dengan Named Range yang akan diproses. Contoh :

    ThisWorkbook.Names("namaRange").Value = "Nilainya"

    Untuk menampilkan/menyembunyikan itemnya di Name Manager, gunakan :

    '+-- Untuk menampilkan :
    ThisWorkbook.Names(NamedRange).Visible = True
    
    '+-- Untuk menyembunyikan :
    ThisWorkbook.Names(NamedRange).Visible = False

    Contoh :

    ThisWorkbook.Names("NamaRangenya").Visible = True

    Demikian.

  9. Siap mas @Caton di coba, terima kasih mas

 

atau Mendaftar untuk ikut berdiskusi!