mhon bantuan scrib menonaktifkn tombol pda close..

  1. tahun lalu

    master2 mhon bantuan x..gmn cara x spya tombol close pada sheet mnjdi tidak berfungsi..mhon bntuan x

  2. Caton

    17 Nov 2017 Terverifikasi Indonesia + 12.602 Poin

    Kalau mau men-disable close button jendela Workbook, saya tidak tahu. Yang pernah saya coba adalah dengan memproteksi Workbook menggunakan baris kode berikut:

    Private Sub Workbook_Open()
        ThisWorkbook.Unprotect
        Application.WindowState = xlMaximized
        ThisWorkbook.Protect Windows:=True
    End Sub

    Kalau mau menggunakan password, tinggal isi parameter Password-nya:

    Private Sub Workbook_Open()
        On Error Resume Next
        ThisWorkbook.Unprotect "passwordku"
        Application.WindowState = xlMaximized
        ThisWorkbook.Protect Password:="passwordku", Windows:=True
    End Sub

    Men-disable close button dari jendela Workbook akan butuh kode program yang lumayan ribet. Karena selain harus berurusan dengan Windows API, sepertinya kita juga harus berurusan dengan objek Ribbon (ketika keadaan jendela Workbook di-maximize, handle proses System Menu dari Workbook ditangani oleh objek Ribbon)... ^_^;

    So far, hanya itu yang saya tahu. Mungkin mas @Rudy Tirawan bisa mencoba mencari-cari informasi tambahan di internet... ;)

  3. ok pak..trima ksih info x

  4. Coba masukkan kode ini di userform

    Private Sub UserForm_QueryClose(Cancel As Integer, CloseMode As Integer)
        If CloseMode = 0 Then
            Cancel = True
        End If
    End Sub

 

atau Mendaftar untuk ikut berdiskusi!