Nejste přihlášen/a.
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
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í
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
to jsou ale fóry.
Admine, sprav si ten svůj vercajk.
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.
Používáním poradny vyjadřujete souhlas s personifikovanou reklamou, která pomáhá financovat tento server, děkujeme.