MS Excel

Dobrý den,

rád bych Vás poprosil o radu v makrech. Mám soubor, ve kterém prostřednictvím ActiveX prvku (Checkbox) skrývám a odkrývám řádky. Potřeboval bych ale zároveň zamknout list tak, aby se mi v zamčeném listu po kliknutí na checkbox řádky odkryly. (v nezamčeném listu mi to funguje, ale když ho uzamknu tak mi to píše chybu, že není možné nastavit vlastnost Hidden třídy Range)

Makro mám zapsané takto:

Private Sub CheckBox1_Click()

'Skrýt řádky

If CheckBox1.Value = True Then

CheckBox1.Caption = "Zobrazit"

Rows("3:25").EntireRow.Hidden = True

End

End If

'Zobrazit řádky

If CheckBox1.Value = False Then

CheckBox1.Caption = "Skrýt"

Rows("3:25").EntireRow.Hidden = False

End

End If

End Sub

Díky mnohokrát za odpověď

Zaslat odpověď >

eLCHa(17.1.2014 10:54)#017324

Private Sub CheckBox1_Click()
ActiveSheet.Unprotect
If CheckBox1.Value Then
CheckBox1.Caption = "Zobrazit"
Else
CheckBox1.Caption = "Skrýt"
End If
Rows("3:25").EntireRow.Hidden = CheckBox1.Value
ActiveSheet.Protect
End Sub

Ve VBA nepoužívejte End. Tady jednak máte zbytečně a pokud potřebujete předčasně ukončit proceduru, používejte Exit Sub.citovat

lubo(17.1.2014 10:59)#017325

Někde na začátku vlož něco takového:

ActiveSheet.Protect Password:="heslo", UserInterFaceOnly:=True

Pro makro bude list odemčený, pro uživatele zamčený.citovat

eLCHa(17.1.2014 11:10)#017326

@lubo
díky za tip ;)

Ještě jsem nepoužil. Má to nějaká úskalí?
Funguje to na projekt nebo pro každou proceduru.
Samozřejmě si můžu najít, ale pokud používáte...citovat

malyv(17.1.2014 13:23)#017336

Mně to funguje úplně bez chyby, takže moc děkuju!! Jediná drobnost, musím zamknout celý sešit a ne list, když zamknu list, tak to není aktivní..

A díky za rady s end, je to moje první makro v životě, takže google a pokus omyl :)citovat

lubo(20.1.2014 15:39)#017364

@leLCHa

Používám občas (snažímse vystačit bez maker). Stačí zavolat jednou po každém otevření. Otevřením/uložením? se vlastnost resetuje - tj. chování je logické.

Problémů jsem si zatím nevšiml.citovat

Lukyn(21.8.2017 15:06)#037349

lubo napsal/a:

Někde na začátku vlož něco takového:

ActiveSheet.Protect Password:="heslo", UserInterFaceOnly:=True

Pro makro bude list odemčený, pro uživatele zamčený.

Nebyla by možnost ukázky? Stále mi to hází že není možné nastavit vlastnost Hidden třídy Range :(citovat

Lukyn(22.8.2017 9:09)#037352

lubo napsal/a:

@leLCHa

Používám občas (snažímse vystačit bez maker). Stačí zavolat jednou po každém otevření. Otevřením/uložením? se vlastnost resetuje - tj. chování je logické.

Problémů jsem si zatím nevšiml.

Při využití této funkce mi nefungují akce povolené všem uživatelům při uzamčení - např. automatický filtrcitovat

eLCHa(23.8.2017 10:46)#037365

Zkusil jste toto?ActiveSheet.Protect Password:="heslo", AllowFiltering:=True, UserInterFaceOnly:=Truecitovat

Téma: Makra a uzamčené listy

Uživatelské menu

Menu

Formulář Faktura

Formulář Faktura IV

Helios iNuvio

On-line nástroje