Se pare că funcționează grozav, dar când închid și redeschid registrul de lucru, mă confrunt cu aceeași problemă - nu-mi pot extinde grupurile restrânse.

Mulțumesc mult, frate, asta funcționează foarte bine. Mulțumesc mult

Am aceeași problemă când închid registrul de lucru. Ceva idei pentru a o repara?

Private Sub Workbook_Open() Dim wsh As Variant for Each wsh In Worksheets(Array("TD_ phase_3", "RS_Phase_2")) wsh.EnableOutlining = True wsh.Protect Password:="260615", DrawingObjects:=False, _ continut: =True, _ Scenarios:=True, _ AllowFiltering:=True, _ AllowFormattingCells:=True, _ userinterfaceonly:=True Next wsh End Sub

Buna! Am folosit prima macrocomandă cu succes și apoi am avut aceeași problemă de a închide registrul de lucru și macro-ul nu mai funcționează. Văd soluția de mai sus, dar nu o fac deloc să funcționeze. Te superi să mă treci? Combin ambele coduri sau pur și simplu îl folosesc pe cel din urmă? Dacă parola mea este „câine”, înlocuiesc una dintre valorile din cod? Aplic doar la o singură foaie de lucru ("Sheet1"); il folosesc undeva? Multe mulțumiri in avans!!

Vă rog să mă ajutați, vreau să restrâng și să extind câteva role și coloane într-o foaie de calcul Excel care este protejată. Cum pot folosi macrocomenzi pentru a face acest lucru? Am încercat ce ați arătat, dar pur și simplu nu funcționează în foaia mea de calcul. Te rog ajuta-ma.

Bună ziua, vă rog să mă ajutați să extind și să restrâng rolele și coloanele în foaia de calcul Excel care este protejată. Am încercat să le folosesc pe cele pe care le-ați arătat mai sus, dar nu funcționează.

S-a întrebat/a răspuns? Unde în cod puteți specifica/modifica o parolă personală?

Cum pot schimba parola cu o altă valoare?

Când folosesc comanda, văd un mesaj de eroare așa cum se arată mai jos:
Private Sub Workbook_Open()
Dim wsh ca variantă
Pentru fiecare wsh din foile de lucru (Array("TD_ phase_3", "RS_Phase_2"))
wsh.EnableOutlining = Adevărat
wsh.Protect Password:="260615", DrawingObjects:=False, _
conținut:=Adevărat, _
Scenarii:=Adevărat, _
AllowFiltering:=Adevărat, _
AllowFormattingCells:=True, _
userinterfaceonly:=Adevărat
Următorul wsh
End Sub
Eroare de timp de rulare „9”:
Indice în afara intervalului

funcționează puțin, odată ce închizi și redeschizi, se oprește :(

Sub Workbook_Open()
„Actualizare 20140603
Dim xWs ca fișă de lucru
Set xWs = Application.ActiveSheet
Dim xPws ca șir
xPws = "rfc" ''Application.InputBox("Parola:", xTitleId, "", Type:=2)
xWs.Protect Password:=xPws, Userinterfaceonly:=True
xWs.EnableOutlining = Adevărat
End Sub

Am făcut ca acest cod să funcționeze. Dar când închid și redeschid trebuie să merg la fila dezvoltator, să selectez butonul macrocomenzi, să selectez rulare și să introduc parola.

Există o modalitate de a elimina parola din cod SAU un cod de rulare automată care va rula automat acest marco și va introduce parola?

Pentru a remedia problema că acest lucru nu funcționează în fișierul dvs. după ce l-ați închis și l-ați deschis din nou, trebuie să lipiți codul VBA în „ThisWorkbook” sub Microsoft Excel Objects în loc de un modul nou. Aceasta va rula automat macrocomanda de fiecare dată când fișierul este deschis.

Aveți elemente vizuale pentru Codul VBA discutat acum 6 zile pentru a curăța peachyclear despre ThisWorkbook sub Microsoft Objects în loc de un modul nou. Funcționalitatea se pierde când revin în registrul de lucru

Cineva ar putea avea nevoie de asta, cred că mi-am dat seama cum să fac asta să funcționeze.

În primul rând, codul trebuie să fie scris în „ThisWorkbook” sub Microsoft Excel Objects, așa cum sugerează @peachyclean.
În al doilea rând, luați codul pe care l-a scris @Sravanthi și inserați-l în locația menționată mai sus.

Sub Workbook_Open()
„Actualizare 20140603
Dim xWs ca fișă de lucru
Set xWs = Application.ActiveSheet
Dim xPws ca șir
xPws = "rfc" ''Application.InputBox("Parola:", xTitleId, "", Type:=2)
xWs.Protect Password:=xPws, Userinterfaceonly:=True
xWs.EnableOutlining = Adevărat
End Sub

Chestia este că trebuie să fiți pe foaia pe care doriți să o protejați, dar permițând utilizarea grupării și să salvați registrul de lucru și să închideți, fără a vă proteja. Acum, dacă îl deschideți, macro-ul pornește automat, va face foaia protejată cu parola „rfc”. Acum puteți folosi gruparea, foaia este protejată.

Pentru soluția mea, am modificat parola aplicată, astfel încât să puteți rescrie orice parolă AICI:
xPws = "WRITEANYPASSWORDHERE" ''Application.InputBox("Parola:", xTitleId, "", Type:=2)

În plus, nu am vrut ca foaia să fie protejată să fie activă la deschiderea fișierului, prin urmare am modificat această parte:
Setați xWs = Application.ActiveSheet ->
Set xWs = Application.Worksheets("WRITEANSHHEET'SNAMEHERE")

Acum funcționează ca un farmec, foaia numită „WRITEANYSHEET'SNAMEHERE” este protejată, dar gruparea este valabilă. Pe termen lung, cred că problema va fi că, dacă vreau să modific acest fișier și să păstrez soluția, trebuie să deprotejez această foaie pentru a o face să funcționeze la următoarea deschidere. Presupun că poți scrie o altă macrocomandă pentru a o deproteja automat la închidere :)


Sper că a ajutat.

formidabil

Cum se grupează și se degrupează rândurile și coloanele în foaia de lucru protejată?

La naiba, asta mi-a furat excelul mai târziu și mi-a schimbat parola în mod privat