Sut i atal dileu rhesi neu golofnau mewn llyfr gwaith heb ddiogelwch a rennir?
Pan fyddwch chi'n rhannu llyfr gwaith i eraill, sut allwch chi atal eraill rhag dileu colofnau neu resi eich llyfr gwaith a rennir heb ddiogelu'r llyfr gwaith? Yma rwy'n dod o hyd i god VBA a all atal eraill rhag dileu'r colofnau a'r rhesi mewn llyfr gwaith a rennir.
Atal dileu rhesi neu golofnau mewn llyfr gwaith a rennir gyda VBA
Atal dileu rhesi neu golofnau mewn llyfr gwaith a rennir gyda VBA
1. Gwasgwch Alt + F11 i agor a Microsoft Visual Basic ar gyfer Cymhwyso ffenestr.
2. Cliciwch Mewnosod > Modiwlau i agor ffenestr Modiwl, yna copïwch y VBA canlynol i'r ffenestr.
VBA: Atal dileu rhesi neu golofnau.
Sub StopDeleteRowCols()
'Updateby20221221
Dim xBarControl As CommandBarControl
Application.OnKey "^{-}", ""
For Each xBarControl In Application.CommandBars.FindControls(ID:=293)
xBarControl.Enabled = False
Next
For Each xBarControl In Application.CommandBars.FindControls(ID:=294)
xBarControl.Enabled = False
Next
End Sub
3. Cliciwch Run botwm neu F5 allwedd ar y bysellfwrdd i redeg y cod hwn.
Yna pan fydd eraill yn clicio ar y dde i ddileu colofnau neu resi dethol, ni ellir defnyddio'r opsiwn Dileu yn y ddewislen cyd-destun. Gweler y screenshot:
Hefyd, mae'n atal defnyddwyr i ddefnyddio llwybr byr Ctrl + - allweddi i ddileu rhesi neu golofnau.
Nodyn:
(1) Os ydych wedi rhannu eich llyfr gwaith â adolygiad > Llyfr Gwaith Rhannu, ni allwch ychwanegu unrhyw macros VBA mwyach. Felly, byddai'n well ichi ychwanegu'r VBA cyn rhannu'r llyfr gwaith.
(2) Bydd y VBA hwn yn anablu'r Dileu yn y ddewislen cyd-destun ym mhob llyfr gwaith pan gliciwch ar dde colofnau neu resi dethol.
(3) I adfer y Dileu yn y ddewislen cyd-destun, disodli'r ddau Anghywir gyda Cywir yn y VBA uchod, a rhedeg y VBA eto.
Offer Cynhyrchiant Swyddfa Gorau
Supercharge Eich Sgiliau Excel gyda Kutools ar gyfer Excel, a Phrofiad Effeithlonrwydd Fel Erioed Erioed. Kutools ar gyfer Excel Yn Cynnig Dros 300 o Nodweddion Uwch i Hybu Cynhyrchiant ac Arbed Amser. Cliciwch Yma i Gael Y Nodwedd Sydd Ei Angen Y Mwyaf...
Mae Office Tab yn dod â rhyngwyneb Tabbed i Office, ac yn Gwneud Eich Gwaith yn Haws o lawer
- Galluogi golygu a darllen tabbed yn Word, Excel, PowerPoint, Cyhoeddwr, Mynediad, Visio a Phrosiect.
- Agor a chreu dogfennau lluosog mewn tabiau newydd o'r un ffenestr, yn hytrach nag mewn ffenestri newydd.
- Yn cynyddu eich cynhyrchiant 50%, ac yn lleihau cannoedd o gliciau llygoden i chi bob dydd!