< návrat zpět
MS Excel
Téma: zamceni/odemceni 
Zaslal/a weragen 15.4.2011 11:16
Pratele opet prichazim s prosbou o pomoc. Jak by melo vypadat makro, ktere by mi v pripade ze v bunce A1 bude 1 resp. 0 odemklo a dovolilo editaci resp. zamklo bunku A2 a napsalo do ni hodnotu 5? Samozrejme vse v pripade zamceneho sesitu. Diky vsem ochotnym za pripadnou pomoc.
Poki(15.4.2011 11:55)#004674
treba takto?
Sub ZamekBunkdy()
Dim Heslo As String
Heslo = "heslo"
If List1.Range("a1") = 1 Then
List1.Unprotect Heslo
List1.Range("a2").Locked = False
List1.Protect Heslo
End If
If List1.Range("a1") = 0 Then
List1.Unprotect Heslo
List1.Range("a2").Value = 5
List1.Range("a2").Locked = True
List1.Protect Heslo
End If
End Subcitovatweragen(15.4.2011 13:52)#004678 
Tak jsem se to pokusil napodobit ale asi delam neco blbe. Jde o to ze kdyz to ve VBA spustim tak to i probehne a v pripade jine hodnoty v A2 tak se tam i ta 5 doplni ale pokud se to pokusim ridit zmenou hodnoty 0 prip. 1 v te bunce A1 tak se A2 ani neodemkne ani neprepise. V podstate jde o to ze na zaklade tohoto makra chci vytvorit formular kde si uzivatel bude checkboxem zpristupnovat bunky pro jejich prepis a v pripade jejich spatneho vyplneni se tim odskrtnutim checkboxu bude moci kdykoliv vratit na puvodni hodnotu.
citovatweragen(15.4.2011 14:09)#004679 Tak uz to funguje. Pote co jsem hodnotu 0/1 v bunce A1 zacal ridit tim zaskrtavacim polickem tak to nejspis vynuti probehnuti toho makra za to kdyz jsem tu hodnotu menil rucne tak se nedeje nic. Nejspis pro zkusene mistry naprosto zrejma vec ale me to nejdriv trochu zmatlo. Kazdopadne diky moc Pokimu za cas a ochotu..
citovatweragen(18.4.2011 8:56)#004720 Dobre rano. Mel bych jeste jednu prosbu. Jak jsem psal v patek vse diky Pokimu slape jak hodinky. Ovsem diky jinemu makru na skryvani radku ve stejnem souboru jsem narazil na jiny problem. Jde o to ze standartne jsem do teto doby mel sesit zamceny ale bylo povoleno formatovani radku. Ovsem toto nove makro mi zamkne kompletni sesit a formatovani radek uz nepovoli. Slo by tedy prosim v tomto odemykacim/zamykacim makru povolit formatovani radku?
citovat Poki(18.4.2011 9:02)#004721 ahoj,
odpovidajici radky staci nahradit takto:
List1.Protect Password:= "heslo", AllowFormattingRows:=Truecitovatweragen(18.4.2011 9:43)#004722 Poki, opet mi nezbyva nez podekovat za perfektne fungujici a rychle poskytnutou pomoc. Diky a hezky den
citovat
RSS nejnovější články