< návrat zpět

MS Excel


Téma: zamčení,odemčení rss

Zaslal/a 30.4.2010 13:24

ahoj, potřebovala bych poradit s tímto ůkolem, nějak si s ním nevím rady 2 předem děkuju

vytvořte makro, které projde všechny listy v aktivním sešitu a pro každý z nich v message boxu podá informaci, jestli je daný list zamčený nebo odemčený, a dotáže se, jestli máme daný list odemknout nebo zamknout. Uživatel odpoví kliknutím na tlačítko „Ano“ nebo „Ne“ na message boxu a makro toto přání splní.

stop Uzamčeno - nelze přidávat nové příspěvky.

icon #001573
Poki
Tohle vypada jako domaci ukol, takze cele reseni neprijde, jen naznak, ktery bude potreba doplnit.
Sub zamceny()

For i = 1 To Worksheets.Count

If Worksheets(i).ProtectContents = True Then
MsgBox "List '" & Worksheets(i).Name & "' je zamčený..."
'další kod
Else
MsgBox "List '" & Worksheets(i).Name & "' je odemčený..."
'další kod
End If
Next
End Sub
citovat
#001574
Jeza.m
Než jsem to napsal tak už to má Poki :-)

Tady je to i s tím dotazem, nicméně to neřeší heslo:
Public Sub overeni()
Dim dotaz As String
For i = 1 To ActiveWorkbook.Sheets.Count
If Sheets(i).ProtectContents = True Then
dotaz = MsgBox("List " & Chr(34) & Sheets(i).Name & Chr(34) & " je zamčený, přejete si odemknout?", vbYesNo + vbQuestion, "Odemknout")
If dotaz = vbYes Then Sheets(i).Unprotect
Else
dotaz = MsgBox("List " & Chr(34) & Sheets(i).Name & Chr(34) & " není zamčený, přejete si zamknout?", vbYesNo + vbQuestion, "Odemknout")
If dotaz = vbYes Then Sheets(i).Protect
End If
dotaz = none
Next
End Sub


Ještě by teda před každým sheets mohlo být activeworkbook, ale asi to není tak důležité.
M@citovat
#001576
avatar
dík moc 2 a ukol to neni jen je jedna z uloh k procviceni k testu...citovat

Uživatelské menu

Nejste přihlášen(a)
avatar\n

Menu

On-line nástroje

Formulář Faktura

Formulář Faktura IV

Oblíbený formulář Faktura byl vylepšen a rozšířen.
Více se dočtete zde.

Aktivní diskuse

Oddělovač polí

Milan-158 • 1.3. 16:01

Oddělovač polí

Whooocak • 1.3. 15:14

Vkládání dat z formuláře na zamknutém listu.

Milan-158 • 1.3. 15:12

Vlastne planovanie zmien

Anonym • 1.3. 7:56

Vkládání dat z formuláře na zamknutém listu.

Začátečník • 28.2. 19:34

Vkládání dat z formuláře na zamknutém listu.

Zdenys84 • 28.2. 19:05

Vkládání dat z formuláře na zamknutém listu.

Zdenys84 • 28.2. 19:00