Skip to main content

Conas rudaí in eagar a chur ar bhileog oibre faoi chosaint in Excel?

De réir réamhshocraithe, ní féidir na rudaí a cuireadh isteach mar chruthanna, boscaí téacs a chur in eagar tar éis an bhileog oibre a chosaint. Más gá duit rudaí a chur in eagar i mbileog oibre faoi chosaint, bain triail as na modhanna san alt seo le do thoil.

Lig rudaí in eagar sa bhileog oibre faoi chosaint tríd an rogha Edit Object a sheiceáil
Lig rudaí in eagar sa bhileog oibre faoi chosaint le cód VBA


Lig rudaí in eagar sa bhileog oibre faoi chosaint tríd an rogha Edit Object a sheiceáil

Seiceáil le do thoil an rogha Edit Object chun rudaí eagarthóireachta a cheadú sula ndéantar an bhileog oibre a chosaint. Déan mar a leanas le do thoil.

1. cliceáil Athbhreithniú > Bileog Cosanta.

2. Sa Bileog Cosanta bosca dialóige, sonraigh pasfhocal sa Pasfhocal chuig an mbileog gan chosaint bosca, agus seiceáil an Cuir rudaí in eagar bosca sa bhosca Lig do gach úsáideoir an bhileog oibre seo bosca a dhéanamh, ansin cliceáil ar an OK cnaipe. Deimhnigh do phasfhocal sa Deimhnigh do Phasfhocal bosca dialóige. Féach an pictiúr:

Anois tá an bhileog oibre cosanta agus tá gach réad sa bhileog oibre chosanta seo inite.


Lig rudaí in eagar sa bhileog oibre faoi chosaint le cód VBA

Má tá an bhileog oibre cosanta cheana féin, is féidir leat triail a bhaint as an script VBA thíos chun rudaí in eagar a cheadú. Déan mar a leanas le do thoil.

1. Brúigh an Eile + F11 eochracha ag an am céanna chun an Microsoft Visual Basic d’Fheidhmchláir fhuinneog.

2. Sa Microsoft Visual Basic d’Fheidhmchláir fuinneog, cliceáil dúbailte An Leabhar Oibre seo ar chlé tionscadal pána. Ansin cóipeáil agus greamaigh an cód VBA thíos sa An Leabhar Oibre seo (Cód) fhuinneog.

Cód VBA: Lig rudaí in eagar sa bhileog oibre faoi chosaint

Private Sub Workbook_Open()
    Application.ScreenUpdating = False
    On Error Resume Next
    With Worksheets("Sheet3")
        .EnableOutlining = True
        .EnableAutoFilter = True
        .Protect Password:="123", _
        Contents:=True, DrawingObjects:=False, UserInterfaceOnly:=True, _
        AllowFormattingCells:=True
    End With
    Application.ScreenUpdating = True
End Sub

nótaí: Sa chód, is é Bileog3 an bhileog oibre chosanta ina bhfuil na rudaí a chaithfidh tú a chur in eagar. Agus is í uimhir “123” pasfhocal an bhileog chosanta. Athraigh iad de réir mar is gá duit.

3. Brúigh an F5 eochracha chun an cód a rith, agus tá gach réad sa bhileog oibre chosanta seo in eagar láithreach.


Earraí gaolmhara:

Uirlisí Táirgiúlachta Oifige is Fearr

Gnéithe Coitianta: Faigh, Aibhsigh nó Aithnigh Dúblaigh   |  Scrios Sraitheanna Bána   |  Comhcheangail Colúin nó Cealla gan Sonraí a Chailleadh   |   Babhta gan Foirmle ...
Cuardaigh Super: Ilchritéir VLookup    VLookup Illuachanna  |   VLookup Trasna Ilbhileoga   |   Amharc doiléir ....
Liosta anuas Casta: Go tapa Cruthaigh Liosta Anuas   |  Liosta anuas Cleithiúnach   |  Liosta Buail Isteach Ilroghnacha ....
Bainisteoir Colún: Cuir Líon Sonrach Colún leis  |  Colúin Bog  |  Scoránaigh Stádas Infheictheachta na gColún Ceilte  |  Déan comparáid idir Raonta & Colúin ...
Gnéithe Réadmhaoin: Fócas Eangaí   |  Amharc Dearaidh   |   Barra Mór na Foirmle    Leabhar Oibre & Bainisteoir Bileog   |  Leabharlann Acmhainní (Uaththéacs)   |  Piocálaí Dáta   |  Comhcheangail Bileoga Oibre   |  Criptigh/Díchriptigh Cealla    Seol Ríomhphost trí Liosta   |  Scagaire Super   |   Scagaire Speisialta (scagaire trom/iodálach/stailc tríd...) ...
Barr 15 Uirlisí12 Téacs uirlisí (Cuir Téacs, Bain Carachtair,...)   |   50 + Cairt cineálacha (Cairt Gantt,...)   |   40+ Praiticiúil Foirmlí (Ríomh aois bunaithe ar lá breithe,...)   |   19 Insertion uirlisí (Cuir isteach Cód QR, Ionsáigh Pictiúr ón gCosán,...)   |   12 Tiontú uirlisí (Uimhreacha le Focail, Comhshó Airgeadra,...)   |   7 Cumaisc & Scoilt uirlisí (Sraitheanna Comhcheangail Casta, Cealla Scoilt,...)   |   ... agus eile

Supercharge Do Scileanna Excel le Kutools le haghaidh Excel, agus Éifeachtúlacht Taithí Cosúil Ná Roimhe. Kutools le haghaidh Excel Tairiscintí Níos mó ná 300 Ardghnéithe chun Táirgiúlacht a Treisiú agus Sábháil Am.  Cliceáil anseo chun an ghné is mó a theastaíonn uait a fháil ...

cluaisín kte 201905


Tugann Tab Oifige comhéadan Tabbed chuig Office, agus Déan Do Obair i bhfad Níos Éasca

  • Cumasaigh eagarthóireacht agus léamh tabbed i Word, Excel, PowerPoint, Foilsitheoir, Rochtain, Visio agus Tionscadal.
  • Oscail agus cruthaigh cáipéisí iolracha i gcluaisíní nua den fhuinneog chéanna, seachas i bhfuinneoga nua.
  • Méadaíonn do tháirgiúlacht 50%, agus laghdaíonn sé na céadta cad a tharlaíonn nuair luch duit gach lá!
Comments (1)
No ratings yet. Be the first to rate!
This comment was minimized by the moderator on the site
Hi,
thanks for the helpful article. I tried the VBA Code method but it doesn't quite work for me.


My Code (sorry for formatting, couldn't copy&past it):


Sub Workbook_Open ()

Dim ws As Worksheet

For Each ws In Worksheets

ws.Protect UserInterfaceOnly:=True, Password:="123"

ws.Enable AutoFilter = True

ws.EnableOutlining = True

If ActiveSheet.Protection.AllowFormattingColumns = False Then

ActiveSheet.Protect AllowFormattingColumns:=True

End If

With Worksheets ("Sheet1")

.EnableOutlining = True

.EnableAutoFilter = True

.Protect Password:="123", _

Contents:=True, DrawingObjects:=False, UserInterfaceOnly:=True

End With

Next ws

End Sub


It works just fine but as soon as I'm saving, closing and reopening the file, I am either

- requested to insert the Password (like 5 times) immediately or

- able to remove the protection without any Password for one of the worksheets (usually "Sheet1" as in the Code)


Is somebody getting the same error as me? Or can somebody help me?


Thank you in advance.


BR

Vanessa
There are no comments posted here yet
Please leave your comments in English
Posting as Guest
×
Rate this post:
0   Characters
Suggested Locations