Ako zakázať Odstrániť listu vo VBA

Zákaz odstránenie možnosti vo vás aplikácie Microsoft Office Excel pomocou jazyka Visual Basic for Applications alebo VBA , môže ochrániť dáta v listoch , ktoré by nemali byť zmenené . Použite " Workbook_SheetBeforeRightClick " akciu zakázať možnosť " Delete " z menu . Vo VBA , môžete tiež zamknúť list tým , že umožňuje užívateľovi odstrániť akýkoľvek obsah , pomocou tlačidla " Delete " na svojej klávesnici . Pokyny dovolená 1

Spustite program Microsoft Office Excel , a zadajte " 1 " na " A1 " , " 2 " v " A2 " , " 3 " na " A3 " , " 4 " v " A4 " a " 5 " v " A5 " . Kliknite na kartu " Vývojár " , a kliknite na tlačidlo " Visual Basic " pre spustenie editora jazyka Visual Basic .
2

Double - kliknite na " ThisWorkbook " z panela Project Explorer na otvorenie modulu kódu.

Sims 3

skopírujte a vložte nasledujúci kód zakázať " Delete " na liste :

Private Sub Workbook_SheetBeforeRightClick ( byVal Sh As Object , byval cieľ ako rozsah , Cancel As Boolean )

Dim cmdBCntrl ako CommandBarControl

Dim pozíciu ako Integer

On Error Resume Next

Sh.Protect UserInterfaceOnly : = TRUE

s aplikáciou . ... CommandBars ( " Cell " )

pos = Ovládacie prvky ( " Zmazať ... " ) Index

Set cmdBCntrl = Controls.Add ( Skôr: = Pos , Temporary : = TRUE )

. Ovládacie prvky ( " Zmazať ... " ) . Zmazať

End With

On Error GoTo 0

End Sub
4

Prepnite späť do aplikácie Microsoft Excel , a skúste pravým tlačidlom myši na ľubovoľnú bunku . Ponuka nebude obsahovať " Delete " možnosť voľby . Stlačte tlačidlo " Delete " na klávesnici a dostanete správu o tom , že bunka je chránený .

• Predchádzajúca strana: Ako používať GetSetting vo VB6 
• Ďalšia strana: Ako vyplňovanie poľa vo VB prístupe