Excel-ийн ажлын дэвтэрээ зөөх эсвэл хуулбарлахаас хэрхэн урьдчилан сэргийлэх вэ

Excel дээр янз бүрийн цэс, хулганы товчийг идэвхгүй болгосноор өгөгдлийн хулгайг багасгах боломжтой. VBA ашиглан үүнийг хэрхэн хийх талаар бид доор ярилцъя.

Уншигч нь Excel Developer туузыг харуулсан бөгөөд VBA редакторыг сайн мэддэг гэж үздэг.

Хэрэглэгчийн интерфэйс

Хоёр товчлуур, бага зэрэг өгөгдөл бүхий ажлын хуудсыг бүтээх. 

Энэ хуудсан дээр туузыг харуулах бөгөөд Excel-ийн өгдөг бүх right_click функцийг харуулах болно.

Хуудсыг авах боломжтой энд.

VBA код

Идэвхгүй болгох боломжтой олон төрлийн тушаалын удирдлагууд байдаг. Та эдгээр хяналтын ID дугаарыг Google-ээс хайх хэрэгтэй болно. Бид энэхүү дасгалыг хийхэд 19, 21 дугаартай үнэмлэхийг ашиглах болно.

Sub Auto_Open()    ‘Auto_open runs automatically when the workbook is opened
    Dim Control As Office.CommandBarControl

    Application.CommandBars("ply").Enabled = False     'disables right-Click on sheet tab

    For Each Control In Application.CommandBars.FindControls(ID:=21)    'disables CUT
        Control.Enabled = False
    Next Control

    For Each Control In Application.CommandBars.FindControls(ID:=19)     'disables COPY
        Control.Enabled = False
    Next Control
    Application.CellDragAndDrop = False
 
    Application.ExecuteExcel4Macro "Show.ToolBar(""Ribbon"", False)"     'Hides ribbon
End Sub

Sub Restore()
    Application.CommandBars("ply").Enabled = True     'enables right-click on sheet tab

    Dim Control As Office.CommandBarControl

    For Each Control In Application.CommandBars.FindControls(ID:=21)     'enables CUT
        Control.Enabled = True
    Next Control

    For Each Control In Application.CommandBars.FindControls(ID:=19)     'enables COPY
        Control.Enabled = True
    Next Control
    Application.CellDragAndDrop = True

    Application.ExecuteExcel4Macro "Show.ToolBar(""Ribbon"", True)"     'shows ribbon
End Sub

Sub Auto_close()    
    Call Restore    ‘Ensure other workbooks work properly
End Sub

Restore товчлуурыг Restore дэд хэсэгт, Disable товчлуурыг Auto_open болгон хуваарилна уу.

Auto_open кодыг ажиллуулна уу; хулганы баруун товчийг дарж цэснээс хасах, хуулахыг идэвхжүүлээгүй бөгөөд тууз алга болсныг та тэмдэглэх болно. Та хуудсыг хуудасны табаас өөр ажлын дэвтэрт шилжүүлэх боломжгүй болно.

Эдгээр урьдчилан сэргийлэх арга хэмжээнүүд үргэлж байх болно, гэхдээ зорилго нь ноцтой хакеруудаас бусад бүх хүнд хэцүү болгох явдал юм. хүснэгтийг хамгаалах нь урьдчилан сэргийлэх арга хэмжээ бөгөөд дэд хавтаснаас шууд хуулж авах боломжгүй болно.

Эцэст нь кодыг харах, өөрчлөхөөс хамгаалаарай.  Хэрэгсэл> Properties> Protection.

Excel файлын авлига

“Би файлын хуулбарыг хассан; одоо би үл ойлгогдох шалтгаангүйгээр Excel-ийн алдаа гарлаа. Гэсэн хэдий ч өнөөдөр дуусах байх гэж бодож байна. ”

Энэ нь аз жаргалтай төгсгөлтэй байх эсэх нь хэрэглэгчийн ашиглах боломжтой үр дүнтэй хэрэгсэл байгаа эсэхээс хамаарна Excel-ийг засах. Энэ тохиолдолд хүснэгтэд 90,000 гаруй мөр байсан.

Зохиогчийн танилцуулга:

Феликс Хүүкер бол мэдээлэл сэргээх мэргэжилтэн юм DataNumen, Үүнд мэдээлэл сэргээх технологиор дэлхийд тэргүүлэгч, Inc. засвар rar болон sql сэргээх програм хангамжийн бүтээгдэхүүнүүд. Дэлгэрэнгүй мэдээллийг авна уу WWW.datanumen.com