< návrat zpět
MS Excel
Téma: zamčení,odemčení 
Zaslal/a keksik 30.4.2010 13:24
ahoj, potřebovala bych poradit s tímto ůkolem, nějak si s ním nevím rady 
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í.
Uzamčeno - nelze přidávat nové příspěvky.
Poki(30.4.2010 15:42)#001573
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 SubcitovatJeza.m(30.4.2010 15:47)#001574 
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@
citovatkeksik(30.4.2010 16:09)#001576 
dík moc
a ukol to neni jen je jedna z uloh k procviceni k testu...
citovat
RSS nejnovější články