Yahoo Answers akan ditutup pada 4 Mei 2021 dan situs web Yahoo Answers sekarang tersedia dalam mode baca saja. Tidak akan ada perubahan pada properti atau layanan Yahoo lainnya, atau akun Yahoo Anda. Anda dapat memperoleh informasi lebih lanjut tentang penutupan Yahoo Answers dan cara mengunduh data Anda di halaman bantuan ini.

Ana Dewi ditanyakan dalam Komputer & InternetPemrograman & Desain · 7 tahun yang lalu

Perintah VBA untuk Membatasi Open File Excel?

Mohon bantuannya master VBA, saya punya file excel dengan lebih dari 5 sheets, saya ingin agar file excel tersebut hanya dapat dibuka sebanyak 3x, bagaimana perintah VBA yang bisa digunakan disini?

***** buat yang bantu coding, hehe...thanks a ton!

1 Jawaban

Peringkat
  • Brams
    Lv 4
    7 tahun yang lalu
    Jawaban Favorit

    Silahkan dicoba sob;

    Untuk kode VBnya adalah sbb:

    Private Sub Workbook_Open()

    If Sheets("Sheet1").Range("A2").Value = "3" Then

    MsgBox "Maaf Anda sudah membuka Workbook ini sebanyak 3x"

    ThisWorkbook.Save

    ThisWorkbook.Close

    Exit Sub

    Else

    MsgBox "Selamat datang"

    End If

    Sheets("Sheet1").Range("A2").Value = Sheets("Sheet1").Range("A2").Value + 1

    ThisWorkbook.Save

    End Sub

    Pada Cell/Range A2 di Sheet1 tuliskan angka 0, angka ini nanti akan bertambah jika Workbook dibuka.

Masih ada pertanyaan? Dapatkan jawaban Anda dengan bertanya sekarang.