EXCEL - MAKRO vs ZAMCENA BUNKA

Od: Datum: 05.09.13 15:32 odpovědí: 2 změna: 06.09.13 09:22

Dobrý den,

prosím o radu.

Lze v Excelu nějak zařídit, aby makro fungovalo i na zamčené buňce?

Děkuji, PP


Seznam odpovědí:
 
moment čekejte prosím, probíhá přenos dat...
Zobrazení struktury odpovědí v otázce
Skrytí struktury odpovědí v otázce
Zobrazení struktury odpovědí v otázce

 

Odpovědi na otázku:
Od: ales38*
Datum: 05.09.13 19:40

Jde o to, co spouští makro, Pokud potřebujete dostat kurzor na zamčenou buňku, a pak spustit makro, tak to nepůjde, ale mělo by jit, pokud spouštíte nějakou procudůru, která si sama dojde na adresu bez nutnosti aktivace buňky a zjistí si obsah. Nevím a zatím jsem nezkoušel, jestli by uměla změnit obsah zamknuté buňky. Přes makra zkuste kontaktovat lidi z webu vytvorime-vase-stranky.cz. Vím že je programují

Ohodnoceno: 0x
 
Datum: 06.09.13 09:22
avatar

ActiveSheet.Protect userinterfaceonly:=True

List nesmí být zamčený na heslo. Jestli ho zamknete a zaheslujete, pak nastanou trable.

To podivné slovo co vidíte uprostřed směrem napravo, je spojení tří slov user interface only

Přihodil jsem vám ještě jedno užitečné makro, které používá funkce, které už znáte. Makro vytvoří nový workbook s jedním listem, ve kterém jsou všechny vzorečky nahrazené výsledky. Ale jak vidíte, trochu jsem si ulehčil práci, protože funkce funguje pouze pro sloupce od A po DH.

Application.ScreenUpdating = False je nastavení, které vypíná aktualizaci obrazovky, aby vám nezablikala. Ono se vám to blikání obrazu zpočátku možná bude zdát efektní a zajímavé, ale časem vám poleze na nervy.

*

Sub Macro6()
On Error Resume Next
ActiveSheet.Protect userinterfaceonly:=True
If ActiveCell.Column = 2 Then
With ActiveCell.Offset(-1, 1)
.Value = Date
.NumberFormat = "[$-409]d-mmm-yyyy;@"
End With
End If
End Sub

*

Private Sub KopirovatSheet()
On Error Resume Next
Application.ScreenUpdating = False
ActiveSheet.Protect userinterfaceonly:=True
ActiveSheet.Copy
Columns("A:DH").Copy
Columns("A:DH").PasteSpecial Paste:=xlPasteValues
Application.CutCopyMode = False
Range("U29").Select
ActiveSheet.Protect
End Sub

doplněno 06.09.13 09:24:

to jsou ale fóry.

Admine, sprav si ten svůj vercajk.

Ohodnoceno: 0x
 

 

 

Přihlásit se k odběru odpovědí z této otázky:

Neneseme odpovědnost za správnost informací a za škodu vzniklou jejich využitím. Jednotlivé odpovědi vyjadřují názory jejich autorů a nemusí se shodovat s názorem provozovatele poradny Poradte.cz

 
Copyright © 2004-2016 Poradna Poradte.cz. Všechna práva na poradně Poradte.cz vyhrazena.