DISABLE CUT (control x)

  1. 3 bulan yang lalu

    Selamat siang para Master @BE-Org yg saya hormati, saya minta tolong bagaimana script untuk mendisable cut / (Control x), tapi copy paste masih bisa digunakan, terima kasih sebelumnya.

  2. coba letakan skrip berikut di module workbook

    Private Sub Workbook_SheetSelectionChange(ByVal Sh As Object, ByVal Target As Excel.Range)
    
    Select Case Application.CutCopyMode
    Case Is = xlCut
        Application.CutCopyMode = False
    End Select
    
    End Sub

  3. ya allah master, terima kasih banyak sangat membantu, sekali lagi terima kasih banyak. tapi kalo scripnya saya tarus di worksheet bukan di workbook, yg dirubah apanya ya master
    ( Private Sub Workbook_SheetSelectionChange(ByVal Sh As Object, ByVal Target As Excel.Range).

    sebelum dan sesudahnya saya ucapkan banyak terima kasih master, jazakallah khoironkashiro, semoga menjadi amal ibadah, aamiin!!!

  4. @bejo

    jadinya seperti ini :

    Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    
    Select Case Application.CutCopyMode
    Case Is = xlCut
        Application.CutCopyMode = False
    End Select
    End Sub
    

    tapi itu hanya berlaku untuk sheet yang bersangkutan, untuk sheet lain masih bisa di-cut.

    ...terima kasih banyak sangat membantu...

    sama2 :)

  5. sekali lagi terima kasih banyak @manweljs_ , terima kasih, terima kasih!!!

 

atau Mendaftar untuk ikut berdiskusi!