Fórum pro uživatele kancelářského balíku OpenOffice | LibreOffice
 

#1 23. 5. 2013 15:46:57

Angelzoo
Člen
Registrace: 23. 5. 2013
Příspěvků: 5

zamknuti listu - VYŘEŠENO

Jde nějak, aby když mam zamčený list, abych mohl vkládat řádky? Vím že v excelu se dá nastavit co se zamkne a co ne. Nejde to i v calcu?

Editoval Angelzoo (24. 5. 2013 10:49:26)

Offline

#2 24. 5. 2013 10:44:20

neutr
Člen
Registrace: 8. 3. 2007
Příspěvků: 2,678

Re: zamknuti listu - VYŘEŠENO

Pokud tedy chcete zamykat list a pro úpravy jej odemykáte, poslouží Vám následující makro, přidal jsem i makro z Vašeho předchozího příspěvku, protože spolu evidentně souvisí.

Sub OdemkniUdelejZamkni
dim oSpreadSheet As object
dim oDoc As object
oDoc = ThisComponent
oSpreadsheet = oDoc.Sheets.getByName ("List1")
oSpreadsheet.Unprotect ("")
' Nyní je odemčen list a můžeme cokoliv udělat
KopirujPredchoziRadek 'Volá se makro s tímto jménem
' Když je hotovo tak uzamkneme znovu list
oSpreadsheet.Protect ("")
End Sub

Sub KopirujPredchoziRadek 
Dim oCell As Object 
Dim Doc as Object 
oCell = ThisComponent.CurrentController.getSelection() 
With oCell.RangeAddress 
SH = .Sheet 
SR = .StartRow
End With 
Sheet = ThisComponent.Sheets(SH) 
Doc = ThisComponent
Sheet = Doc.Sheets.getByIndex(SH) 'get the first sheet from the left
Sheet = Doc.Sheets(SH) 
Rows = Sheet.getRows() 
Rows.insertByIndex(SR,1)
zkopiruj = doc.Sheets(SH).getCellRangeByPosition(0,SR-1,1023,SR-1)
doc.CurrentController.select(zkopiruj)
obsah = doc.CurrentController.getTransferable()
vloz = doc.Sheets(SH).getCellRangeByPosition(0,SR,1023,SR)
doc.CurrentController.select(vloz)
doc.CurrentController.insertTransferable(obsah)
End Sub

PS: Makro OdemkniUdelejZamkni chodí jen v "List1". Makro KopirujPredchoziRadek chodí v každém listě. Lze je složit například do jednoho makra, které bude chodit buď ve všech listech, nebo jen v listu, který zadklarujete. Je také například možné upravit jen deklaraci makra OdemkniUdelejZamkni tak aby i toto makro chodilo ve všech listech. Pokud tedy uložíte makro do knihovny (Moje Makra s dialogy "standard" - tj. pro všechny sešity), budete mít po spuštění v kterémkoliv sešitě tento sešit zamčený i když před tím nebyl. Takže doporučuji makro se zamykáním kopírovat jen do určitého sešitu.

Editoval neutr (24. 5. 2013 10:58:21)


Pokud je Váš problém vyřešen, označte prosím svůj příspěvek za "VYŘEŠENÝ"
Zlepšíte tak orientaci na fóru při vyhledávání řešení problémů
JAK OZNAČIT TÉMA ZA VYŘEŠENÉ

Offline

#3 24. 5. 2013 10:49:19

Angelzoo
Člen
Registrace: 23. 5. 2013
Příspěvků: 5

Re: zamknuti listu - VYŘEŠENO

Prkfektní. Díky smile

Offline

Zápatí