Note: The other languages of the website are Google-translated. Back to English

Conas sraitheanna a ghrúpáil agus a dhíghrúpáil i mbileog oibre faoi chosaint?

Mar is eol dúinn uile, i mbileog oibre faoi chosaint, tá go leor teorainneacha ann dúinn roinnt oibríochtaí a chur i bhfeidhm. Mar shampla, ní féidir linn scoránaigh idir sonraí grúpáilte agus neamhghrúpaí. An bhfuil bealach ann sraitheanna a ghrúpáil nó a ghrúpáil i mbileog oibre faoi chosaint?

Sraitheanna grúpa agus grúpa i mbileog oibre faoi chosaint le cód VBA

Cluaisín Oifige Cumasaigh Eagarthóireacht agus Brabhsáil Tabbed in Oifig, agus Déan Do Obair i bhfad Níos Éasca ...
Réitíonn Kutools for Excel an chuid is mó de do chuid Fadhbanna, agus Méadaíonn sé do Tháirgiúlacht 80%
  • Athúsáid Rud ar bith: Cuir na foirmlí, na cairteacha agus aon rud eile is úsáidí nó is casta le do rogha Favorites, agus athúsáid go tapa iad sa todhchaí.
  • Níos mó ná 20 gné téacs: Uimhir Sliocht as Teaghrán Téacs; Sliocht nó Bain Cuid de Théacsanna; Tiontaigh Uimhreacha agus Airgeadraí go Focail Bhéarla.
  • Cumaisc Uirlisí: Illeabhair Oibre agus Bileoga ina hAon; Cumaisc Ilchealla / Sraitheanna / Colúin Gan Sonraí a Chailleadh; Cumaisc Sraithe Dúblacha agus Suim.
  • Uirlisí Scoilt: Roinn Sonraí i Ilbhileoga Bunaithe ar Luach; Leabhar Oibre amháin le Ilchomhaid Excel, PDF nó CSV; Colún amháin go Colúin Iolracha.
  • Greamaigh gan bacadh Sraitheanna Hidden / Scagtha; Líon agus Suim de réir Dath Cúlra; Seol Ríomhphoist Phearsantaithe chuig Il-Faighteoirí i mBulc.
  • Scagaire Sármhaith: Ardscéimeanna scagaire a chruthú agus a chur i bhfeidhm ar aon bhileoga; Sórtáil de réir seachtaine, lae, minicíochta agus níos mó; scagairí le cló trom, foirmlí, trácht ...
  • Níos mó ná 300 gné chumhachtach; Oibríonn sé le hOifig 2007-2021 agus 365; Tacaíonn sé le gach teanga; Imscaradh éasca i d'fhiontar nó d'eagraíocht.

mboilgeog cheart gorm saighead Sraitheanna grúpa agus grúpa i mbileog oibre faoi chosaint le cód VBA

B’fhéidir, níl aon bhealach maith eile ann chun an fhadhb seo a réiteach ach trí chód VBA a úsáid, déan mar a leanas le do thoil:

1. Gníomhachtaigh do bhileog oibre a theastaíonn uait a úsáid, déan cinnte le do thoil nach bhfuil an bhileog oibre cosanta fós.

2. Ansin coinnigh síos an ALT + F11 eochracha, agus osclaíonn sé an Fuinneog Microsoft Visual Basic for Applications.

3. Cliceáil Ionsáigh > Modúil, agus greamaigh an cód seo a leanas sa Fuinneog an Mhodúil.

Cód VBA: Sraitheanna grúpa agus grúpa i mbileog oibre faoi chosaint

Sub EnableOutlining()
'Update 20140603
Dim xWs As Worksheet
Set xWs = Application.ActiveSheet
Dim xPws As String
xPws = Application.InputBox("Password:", xTitleId, "", Type:=2)
xWs.Protect Password:=xPws, Userinterfaceonly:=True
xWs.EnableOutlining = True
End Sub

4. Ansin brúigh F5 eochair chun an cód seo a rith, agus tiocfaidh bosca pras amach le meabhrú duit an focal faire a iontráil chun an bhileog oibre reatha a chosaint. Féach an pictiúr:

bileog doc-ghrúpa-faoi chosaint -1

5. Ansin cliceáil OK, tá do bhileog oibre cosanta, ach is féidir leat na siombailí imlíne sa bhileog oibre chosanta seo a leathnú agus a chonradh, féach an scáileán:

bileog doc-ghrúpa-faoi chosaint -1

nótaí: Má tá do bhileog oibre cosanta cheana féin, ní oibreoidh an cód seo.


Na hUirlisí Táirgiúlachta Oifige is Fearr

Réitíonn Kutools for Excel an chuid is mó de do chuid Fadhbanna, agus Méadaíonn sé do Tháirgiúlacht 80%

  • Athúsáid: Cuir isteach go tapa foirmlí casta, cairteacha agus aon rud a d'úsáid tú roimhe seo; Cealla a Chriptiú le pasfhocal; Cruthaigh Liosta Ríomhphoist agus seol ríomhphoist ...
  • Barra Foirmle Super (cuir línte iolracha téacs agus foirmle in eagar go héasca); Leagan Amach Léitheoireachta (líon mór cealla a léamh agus a chur in eagar go héasca); Greamaigh go dtí an Raon Scagtha...
  • Cumaisc Cealla / Sraitheanna / Colúin gan Sonraí a chailleadh; Ábhar Cealla Scoilt; Comhcheangail Sraitheanna / Colúin Dúblacha... Cill Dúblach a Chosc; Déan comparáid idir Ranganna...
  • Roghnaigh Dúblach nó Uathúil Sraitheanna; Roghnaigh Blank Rows (tá na cealla uile folamh); Aimsigh Super agus Fuzzy Aimsigh i go leor Leabhar Oibre; Roghnaigh go randamach ...
  • Cóip Díreach Cealla Il gan tagairt fhoirmle a athrú; Tagairtí Cruthaigh Auto chuig Bileoga Il; Cuir Urchair isteach, Boscaí Seiceála agus go leor eile ...
  • Sliocht Téacs, Cuir Téacs leis, Bain de réir Poist, Bain Spás; Subtotals Paging a chruthú agus a phriontáil; Tiontaigh Idir Ábhar Cealla agus Tráchtanna...
  • Scagaire Super (scéimeanna scagaire a shábháil agus a chur i bhfeidhm ar bhileoga eile); Ard-Sórtáil de réir míosa / seachtaine / lae, minicíocht agus níos mó; Scagaire Speisialta le cló trom, iodálach ...
  • Comhcheangail Leabhair Oibre agus Bileoga Oibre; Cumaisc Táblaí bunaithe ar eochaircholúin; Roinn Sonraí i Ilbhileoga; Baisc Tiontaigh xls, xlsx agus PDF...
  • Níos mó ná 300 gné chumhachtach. Tacaíonn Office / Excel 2007-2021 agus 365. Tacaíonn sé le gach teanga. Imscaradh éasca i d'fhiontar nó d'eagraíocht. Gnéithe iomlána triail saor in aisce 30-lá. Ráthaíocht airgid ar ais 60-lá.
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á!
bun officetab
Sórtáil tuairimí de réir
Comments (32)
Níl rátálacha ar bith fós. Bí ar an gcéad duine a rátáil!
Rinne an modhnóir ar an láithreán an trácht seo a íoslaghdú
Dealraíonn sé go n-oibríonn sé seo go hiontach, ach nuair a dhúnann mé agus nuair a athosclaítear an leabhar oibre, ritheann mé isteach san fhadhb chéanna - ní féidir liom na grúpaí atá imithe i léig a leathnú.
Rinne an modhnóir ar an láithreán an trácht seo a íoslaghdú
Tá an fhadhb chéanna agam, an bhfuil a fhios ag éinne conas é a shárú. Go raibh míle maith agat
Rinne an modhnóir ar an láithreán an trácht seo a íoslaghdú
Teastaíonn VBA uait le haghaidh seo, agus beidh ar an úsáideoir deiridh macraí a cheadú chun go n-oibreoidh sé seo.

Brúigh Alt+F11 chun an tEagarthóir Visual Basic a ghníomhachtú.

Cliceáil faoi dhó ar ThisWorkbook, faoi Microsoft Excel Objects sa taiscéalaí tionscadail ar thaobh na láimhe clé.

Cóipeáil an cód seo a leanas isteach sa mhodúl atá le feiceáil:



Foleabhar Oibre Príobháideach_Oscail()
Le Bileoga Oibre ("Achoimre Emp")
.EnableOutlining = Fíor
.Protect UserInterfaceOnly:=Fíor
Deireadh Le
Fo Deireadh



Déanfar an cód seo a fhorghníomhú go huathoibríoch gach uair a osclaítear an leabhar oibre.
Rinne an modhnóir ar an láithreán an trácht seo a íoslaghdú
[ceanglófar] Dealraíonn sé go n-oibríonn sé seo go hiontach, ach nuair a dhúnann mé agus nuair a athosclaítear an leabhar oibre, ritheann mé isteach san fhadhb chéanna - ní féidir liom mo ghrúpaí titim a leathnú.De réir mayich[/ceanglófar] Réitítear an t-ábhar sin mar thíos Príobháideach Foleabhar Oibre_Open() Dim wsh Mar mhalairt ar gach wsh i mBileoga Oibre(Eagar ("Bileog1", "Bileog2")) wsh.EnableOutlining = Fíor wsh.Protect Password:="260615" , DrawingObjects:=Bréagach, _ inneachar:=Fíor, _ Cásanna:=Fíor, _ AllowFiltering:=Fíor, _ AllowFormattingCells:=Fíor, _ userinterfaceonly:=Fíor Ar Aghaidh wsh Deiridh Fo
Rinne an modhnóir ar an láithreán an trácht seo a íoslaghdú
Fuair ​​mé an fhadhb chéanna, chomh luath agus a dhúnann mé agus a chuirim an leathán isteach arís, ní oibríonn sé... tabhair céim ar chéim le do thoil maidir le cén áit agus conas é a úsáid Réitítear an t-ábhar sin mar bellow Foleabhar Oibre Príobháideach_Open() Dim wsh As Athrú Do Gach wsh I mBileoga Oibre(Arra y("Bileog1", "Bileog2") wsh.EnableOutli ning = Fíor wsh.Protect Pasfhocal:="2606 15", DrawingObjects: =Bréagach, _ inneachar:=Fíor, _ Cásanna: =Fíor, _ AllowFiltering:=Fíor, _ AllowFormattingCells:=Fíor, _ userinterfaceonly:=Fíor Ar Aghaidh wsh Deiridh Fo
Rinne an modhnóir ar an láithreán an trácht seo a íoslaghdú
Go raibh míle maith agat a dheartháir oibríonn sé seo i ndáiríre deas.Thanks go leor
Rinne an modhnóir ar an láithreán an trácht seo a íoslaghdú
Conas a fuair tú é seo ag obair? Tá iarracht déanta agam é a chur leis an VBA thuas agus modúl difriúil a dhéanamh ach ní oibríonn sé fós. An gá dom aon cheann de na cóid a athrú? cosúil le mo phasfhocal atá á úsáid agam nó an gá dom ainmneacha na mbileog a athrú?
Rinne an modhnóir ar an láithreán an trácht seo a íoslaghdú
Bíonn an fhadhb chéanna agam nuair a dhúnann mé an leabhar oibre. Aon smaointe chun é a dheisiú?
Rinne an modhnóir ar an láithreán an trácht seo a íoslaghdú
Foleabhar Oibre Príobháideach_Open() Dim wsh Mar Athróg Do Gach wsh I mBileoga Oibre(Array("TD_ phase_3", "RS_Phase_2")) wsh.EnableOutlining = Fíor wsh.Protect Password:="260615", DrawingObjects:=Bréagach, _ inneachar: =Fíor, _ Cásanna:=Fíor, _ AllowFiltering:=Fíor, _ AllowFormattingCells:=Fíor, _ Userinterfaceonly:=Fíor Ar Aghaidh wsh Deiridh Fo
Rinne an modhnóir ar an láithreán an trácht seo a íoslaghdú
Fós ní cinnte conas a oibríonn sé seo. An ndéanfaidh mé modúl nua nó an gceanglaím leis an gceann thuas?
Rinne an modhnóir ar an láithreán an trácht seo a íoslaghdú
An féidir leat siúl céim ar chéim a dhéanamh tríd an áit ar cheart é seo a chur mar a rinne siad sna treoracha bunaidh. Go raibh maith agat.
Rinne an modhnóir ar an láithreán an trácht seo a íoslaghdú
Dia dhuit! D'úsáid mé an chéad mhacra go rathúil agus ansin bhí an cheist chéanna agam maidir leis an leabhar oibre a dhúnadh agus an macra nach bhfuil ag obair a thuilleadh. Feicim an réiteach thuas ach ní féidir liom é sin a oibriú ar chor ar bith. Ar mhiste leat céim a chur orm? An gcuirim an dá chód le chéile nó an úsáidim an ceann deireanach? Más "madra" mo phasfhocal, an gcuirim ceann de na luachanna sa chód in áit? Nílim ach ag cur isteach ar bhileog oibre amháin ("Bileog1"); an úsáidim é sin áit ar bith? Míle buíochas roimh ré!!
Rinne an modhnóir ar an láithreán an trácht seo a íoslaghdú
Cabhraigh liom le do thoil, ba mhaith liom roinnt rollaí agus colúin a laghdú agus a leathnú i scarbhileog excel atá faoi chosaint. Conas is féidir liom macraí a úsáid chun é seo a dhéanamh? Bhain mé triail as an méid a léirigh tú ach ní oibríonn siad ar mo scarbhileog. Cabhrú le do thoil.
Rinne an modhnóir ar an láithreán an trácht seo a íoslaghdú
Dia duit, cuidigh liom rollaí agus colúin a leathnú agus a laghdú i scarbhileog excel atá faoi chosaint. Bhain mé triail as na cinn a léirigh tú thuas a úsáid ach ní oibríonn siad.
Rinne an modhnóir ar an láithreán an trácht seo a íoslaghdú
Ar fiafraíodh / freagraíodh é? Cá háit sa chód ar féidir leat pasfhocal pearsanta a shonrú / a athrú?
Rinne an modhnóir ar an láithreán an trácht seo a íoslaghdú
Conas is féidir liom an pasfhocal a athrú go luach eile?
Rinne an modhnóir ar an láithreán an trácht seo a íoslaghdú
Nuair a úsáidim an t-ordú, feicim teachtaireacht earráide mar a thaispeántar thíos:
Foleabhar Oibre Príobháideach_Oscail()
Dim wsh As Variant
Do Gach wsh I mBileoga Oibre (Eagar ("TD_ phase_3", "RS_Phase_2"))
wsh.EnableOutlining = Fíor
wsh.Protect Password:="260615", DrawingObjects:=Bréagach, _
inneachar:=Fíor, _
Cásanna:=Fíor, _
AllowFiltering:=Fíor, _
AllowFormattingCells:=Fíor, _
userinterfaceonly:=Fíor
Ar Aghaidh wsh
Fo Deireadh
Earráid ama rite '9':
Síntiús as raon
Rinne an modhnóir ar an láithreán an trácht seo a íoslaghdú
oibríonn sé seo le beagán, nuair a dhúnann tú agus nuair a athosclaíonn tú, stopann sé :(
Rinne an modhnóir ar an láithreán an trácht seo a íoslaghdú
Fiú domsa, An bhfuil aon réiteach eile?
Rinne an modhnóir ar an láithreán an trácht seo a íoslaghdú
Foleabhar Oibre_Oscail()
Nuashonrú 20140603
Dim xWs Mar Bhileog Oibre
Socraigh xWs = Application.ActiveSheet
Dim xPws Mar Teaghrán
xPws = "rfc" ''Application.InputBox("Pasfhocal:", xTitleId, "", Cineál:=2)
xWs.Protect Pasfhocal:=xPws, Userinterfaceonly:=Fíor
xWs.EnableOutlining = Fíor
Fo Deireadh
Rinne an modhnóir ar an láithreán an trácht seo a íoslaghdú
Fuair ​​​​mé an cód seo a bheith ag obair. Ach nuair a dhúnann mé agus a athosclaíonn mé ní mór dom dul chuig an táb forbróra, roghnaigh an cnaipe macraí, roghnaigh reáchtáil agus cuir isteach an focal faire.

An bhfuil bealach ann chun an focal faire a bhaint den chód NÓ cód rith uathoibríoch a reáchtálfaidh an marco seo go huathoibríoch agus a chuirfidh an focal faire isteach?
Rinne an modhnóir ar an láithreán an trácht seo a íoslaghdú
Chun an cheist nach bhfuil ag obair i do chomhad a réiteach tar éis duit é a dhúnadh agus é a oscailt arís, caithfidh tú an cód VBA a ghreamú i "ThisWorkbook" faoi Microsoft Excel Objects in ionad modúl nua. Rithfidh sé seo an macra go huathoibríoch gach uair a osclaítear an comhad.
Rinne an modhnóir ar an láithreán an trácht seo a íoslaghdú
an bhfuil visuals agat don Chód VBA a pléadh 6 days ago go peachyclean faoi ThisWorkbook faoi Microsoft Objects in ionad modúl nua. Cailltear an fheidhmiúlacht nuair a théim ar ais isteach i mo leabhar oibre
Rinne an modhnóir ar an láithreán an trácht seo a íoslaghdú
B'fhéidir go mbeadh sé seo ag teastáil ó dhuine éigin, is dóigh liom go ndearna mé amach conas é seo a dhéanamh.

Ar dtús, ní mór do chód a scríobh i "ThisWorkbook" faoi Microsoft Excel Objects, mar a thugann @peachyclean le tuiscint.
Ar an dara dul síos, tóg an cód a scríobh @Sravanthi, agus greamaigh chuig an suíomh thuasluaite.

Foleabhar Oibre_Oscail()
Nuashonrú 20140603
Dim xWs Mar Bhileog Oibre
Socraigh xWs = Application.ActiveSheet
Dim xPws Mar Teaghrán
xPws = "rfc" ''Application.InputBox("Pasfhocal:", xTitleId, "", Cineál:=2)
xWs.Protect Pasfhocal:=xPws, Userinterfaceonly:=Fíor
xWs.EnableOutlining = Fíor
Fo Deireadh

Is é an rud go gcaithfidh tú a bheith ar an mbileog is mian leat a chosaint ach ag ceadú úsáid a bhaint as grúpáil, agus an leabhar oibre a shábháil agus a dhúnadh, gan chosaint. Anois má osclaíonn tú é, tosaíonn an macra go huathoibríoch, déanfaidh sé an leathán a chosaint leis an bhfocal faire "rfc". Anois is féidir leat an grúpáil a úsáid, tá an leathán cosanta.

Ar mhaithe le mo réiteach, d'athraigh mé an pasfhocal a cuireadh i bhfeidhm, ionas gur féidir leat aon phasfhocal a athscríobh ANSEO:
xPws = "POST SCRÍOBHACH ANSEO" ''Application.InputBox("Focal Faire:", xTitleId, "", Cineál:=2)

Ina theannta sin, níor theastaigh uaim go mbeadh an leathán cosanta gníomhach agus an comhad á oscailt, mar sin d'athraigh mé an chuid seo:
Socraigh xWs = Application.ActiveSheet ->
Socraigh xWs = Feidhmchlár.Bileoga Oibre ("SCRÍOBHÁNACH'SNAMEHERE")

Anois oibríonn sé cosúil le charm, tá bileog darb ainm 'WRITEANYSHET'SNAMEHERE' cosanta ach tá an ghrúpáil infheidhme. San fhadtréimhse, is dóigh liom gurb é an fhadhb a bheidh ann ná má theastaíonn uaim an comhad seo a mhodhnú agus an réiteach a choinneáil, ní mór dom an bhileog seo a dhíchosaint chun go n-oibreoidh sé ar an gcéad oscailt eile. Is dóigh liom gur féidir leat macra eile a scríobh chun díchosaint go huathoibríoch nuair a dhúnann tú :)


Tá súil agam gur chabhraigh sé.
Rinne an modhnóir ar an láithreán an trácht seo a íoslaghdú
Hii.. d'oibrigh sé seo iontais. Is é an t-aon áit a bhfuil mé ag dul i bhfostú anois ná go gcaithfidh mé é seo a dhéanamh le haghaidh bileoga iolracha sa leabhar oibre. an féidir leat pls cabhrú leis sin.
Rinne an modhnóir ar an láithreán an trácht seo a íoslaghdú
D'fhéach an teaghrán seo le bheith díreach mar a theastaigh uaim, mar níl a fhios agam aon rud faoi VBA. Bhí mé in ann é seo a chur ag obair ar dtús ach mar a dúradh, a luaithe a dhúnann tú an scarbhileog agus a athosclaíonn tú í, ní oibríonn sé a thuilleadh. Rinne mé iarracht an cód a scríobh i "ThisWorkbook" mar a luadh ach ní féidir liom a dhéanamh amach conas é sin a dhéanamh. Is féidir liom "ThisWorkbook" a fheiceáil ach níl a fhios agam conas scríobh ann. Gach bealach a fheiceann mé chun modúl a chruthú, cruthaíonn sé modúl nua i bhfillteán na "Modúil" ar leith, taobh amuigh den fhillteán "Microsoft Excel Objects". Aon mholtaí maidir le conas an cód seo a chur i "This Workbook" ?
Rinne an modhnóir ar an láithreán an trácht seo a íoslaghdú
iontach
Rinne an modhnóir ar an láithreán an trácht seo a íoslaghdú
Conas Rónna agus Colúin a Ghrúpáil agus a Dhíghrúpáil i mBileog Oibre Cosanta?
Rinne an modhnóir ar an láithreán an trácht seo a íoslaghdú
f*ck, ghoid sé seo mo excel níos déanaí agus d'athraigh pasfhocal go príobháideach
Rinne an modhnóir ar an láithreán an trácht seo a íoslaghdú
An bhfuil bealach ann chun é seo a chur ag obair ar leabhar oibre comhroinnte? - Is gá dom na hathruithe rian, Go raibh maith agat
Níl aon tráchtanna curtha suas anseo go fóill
Luchtaigh More
Fág do chuid tuairimí
Ag postáil mar Aoi
×
Ráta an post seo:
0   Carachtair
Suímh Molta

Lean orainn

Cóipcheart © 2009 - www.extendoffice.com. | Gach ceart ar cosaint. Cumhachtaithe ag ExtendOffice. | léarscáil an tSuímh
Is trádmharcanna nó trádmharcanna cláraithe de chuid Microsoft Corporation sna Stáit Aontaithe agus / nó i dtíortha eile iad lógó Office agus Office.
Cosanta ag Sectigo SSL