Home Macro Excel Memprotek Hurup di Excel dengan VBA Macro

Memprotek Hurup di Excel dengan VBA Macro

Pada artikel kali ini saya akan membahas tentang cara memprotek hurup atau tulisan yang ada dilembar kerja excel supaya tidak bisa dihapus. Dari hasil pengalaman selama ini, beberapa administrasi pembukuan yang saya tampilkan di web ini, di dalam lembar kerja excel tersebut saya menuliskan nama web saya, dan sayapun telah memberikan perhatian bahwa nama web saya yang ada di file excel tersebut dimohon untuk tidak diganti atau dihilangkan. Namun kenyataannya banyak sekali file saya ditampilkan diweb yang lain dan nama web saya diganti.
Ya... Mau tidak mau... itulah kenyataannya.
Nah untuk mengantisipasi hal tersebut saya mencoba mencari referensi-referensi dari beberapa sumber dan Alhamdulillah, bisa sedikit mengantisipasi hal tersebut.

Nah..., Bagi rekan-rekan juga yang mempunyai file excel yang tidak mau diganti nama kita, silahkan dicoba cara ini.

Memprotek Hurup di Excel dengan di VBA Excel

  • Masuk ke Microsoft Visual Basic for Applications window dengan menekan tombol Alt + F11 atau anda klik tab "Developer" lalu klik "Visual Basic". Apabila di Office anda belum tampil tab Developer, silahkan baca "Cara Menampilkan Ribbon Developer"
  • Klik Insert kemudian klik Module
  • Copy Paste kode berikut di bawah ini

    • Kode VBA Excel untuk Memprotek Hurup di Excel 
    'https://baladaka.blogspot.com
'============================

Sub Auto_Open()
    Sheets("Sheet1").Range("A1") = "copyright by :"
    Sheets("Sheet1").Range("A2") = "https://baladaka.blogspot.com"

If Sheets("Sheet1").Range("D1") <> "djamaludin" Then
MsgBox "Maaf....Anda telah menghapus / mengganti nama website saya, sehingga file ini akan langsung ditutup", vbInformation, "https://baladaka.blogspot.com"
    ThisWorkbook.Close
    Exit Sub
        
ElseIf Sheets("Sheet1").Range("F1") <> "https://baladaka.blogspot.com" Then
MsgBox "Maaf....Anda telah menghapus / mengganti nama website saya, sehingga file ini akan langsung ditutup", vbInformation, " https://baladaka.blogspot.com"
    ThisWorkbook.Close
    Exit Sub

ElseIf Sheets("Sheet2").Range("A1") <> "Jampang Manggung" Then
MsgBox "Maaf....Anda telah menghapus / mengganti nama website kami, sehingga file ini akan langsung ditutup", vbInformation, "https://baladaka.blogspot.com"
    ThisWorkbook.Close
    Exit Sub
    
End If

End Sub


    Catatan :

    • Kode Sub Auto_Open()
      merupakan kode perintah macro untuk mengotomatiskan kode macro berfungsi saat dibuka

    • Kode :
      Sheets("Sheet1").Range("A1") = "copyright by :"
      Kode tersebut pada saat file excel dibuka maka akan secara otomatis menulis huruf pada Sheet1 Range A1 dengan tulisan copyright by :

      Kode :
      Sheets("Sheet1").Range("A2") = "https://baladaka.blogspot.com"
      Kode tersebut pada saat file excel dibuka maka akan secara otomatis menulis huruf pada Sheet1 Range A2 dengan tulisan https://baladaka.blogspot.com

      Jadi pada Sheet1 Range A1 atau Range A2 dihapus maka pada saat file tersebut dibuka lagi maka tulisan tersebut akan dibuatkan lagi secara otomatis.
      Oh...ya pada Sheet dan cell tersebut khususnya di Cell A1 dan A2 saja tidak boleh diprotek ya... sebab akan eror.

    • Kode
      If Sheets("Sheet1").Range("D1") <> "djamaludin" Then
      MsgBox "Maaf....Anda telah menghapus / mengganti nama website saya, sehingga file ini akan langsung ditutup", vbInformation, "https://baladaka.blogspot.com"
      ThisWorkbook.Close
      Exit Sub

      Pada Sheet1 Range D1 tulisannya harus djamaludin
      Apabila perintah kode di Macro tidak sama dengan tulisan di Sheet, maka akan terjadi eror dan ada peringatan dan file excel akan langsung ditutup. Anda bisa menyesuikan sesuai kebutuhan

    • Kode
      ElseIf Sheets("Sheet1").Range("F1") <> " https://baladaka.blogspot.com" Then
      MsgBox "Maaf....Anda telah menghapus / mengganti nama website saya, sehingga file ini akan langsung ditutup", vbInformation, " https://baladaka.blogspot.com"
      ThisWorkbook.Close
      Exit Sub

      Pada Sheet1 Range F1 tulisannya harus https://baladaka.blogspot.com
      Apabila perintah kode di Macro tidak sama dengan tulisan di Sheet, maka akan terjadi eror dan ada peringatan dan file excel akan langsung ditutup. Anda bisa menyesuikan sesuai kebutuhan

      Apabila anda ingin menambah kode perintah, misalnya sheet yang akan diberi perintah masih banyak maka anda copy paste kode dari
      ElseIf Sheets

      hingga

      Exit Sub

      Adapun sheet, range dan tulisannya bisa disesuaikan dengan keinginan

    • Perintah untuk menutup file apabila tulisan di Sheet tidak sama dengan perintah macro adalah

      ThisWorkbook.Close
      Exit Sub

      Apabila anda ingin file tersebut langsung di hapus permanen apabila tulisan di sheet dirubah, anda bisa mengganti kode

      ThisWorkbook.Close
      Exit Sub

      Dengan Kode

      With ThisWorkbook
      .Saved = True
      .ChangeFileAccess xlReadOnly
      Kill .FullName
      .Close False
      End With


    Selamat Mencoba

    Contoh File Memprotek Hurup di Excel dengan VBA Macro
    Jika File tidak ter-download otomatis, silahkan klik Link Alternatif dan lihat hasil download di folder Downloads


Demikian Catatan Kecil tentang :
Terima kasih atas kunjungannya dan "Selamat Berkreasi Semoga Sukses"

Labels:
Selanjutnya 
« Prev Post
 Sebelumnya
Next Post »

Catatan Terkait
Powered by : Blogger
DMCA.com Protection Status
Memprotek Hurup di Excel dengan VBA Macro