< návrat zpět

MS Excel


Téma: zámek sešitu rss

Zaslal/a 6.10.2011 11:41

Lze do kódu, který mi odesílá mailem přes makro zvolený list ( vytvoří si nový sešit ), nějakým způsobem dostat zamčení tohoto nvého sešitu, ?
Dík

Zaslat odpověď >

icon #006097
Poki
..muzee prilozit soubor nebo aspon ten kod, ktery pouzivate?
a jde vam skutecne o zamek celeho sesitu nebo jen toho odesilaneho listu?citovat
#006100
avatar
Sub mail()
ActiveSheet.Copy

With Application
.Dialogs(xlDialogSendMail).Show _
"bla@bla.cz", _
"Pošta!"
End With

ActiveWorkbook.Close Savechanges:=False
End Sub
.....nový sešit bych potřeboval makrem zamknout ( celý )citovat
icon #006102
Poki
co takhle:
Sub mail()
ActiveSheet.Copy
ActiveWorkbook.Protect "Heslo", True, False
With Application
.Dialogs(xlDialogSendMail).Show _
"blbla@neco.cz", _
"Pošta!"
End With
ActiveWorkbook.Close Savechanges:=False
End Sub
citovat
#006104
avatar
Super a také vím kde jsem dělal chybu...za .Protect jsm psal = dál to samé...
Díky moc !!!citovat
#006133
avatar
Tak bohužel, asi jsem to špatně popsal...sešit je sice zamčený, ale lze ho otevřít a nahlédnout do něj. potřeboval bych ho mít " zašifrovaný ", prostě aby před otevřením chtěl heslo.citovat
#006165
avatar
Zdravím, nevím zda to vyšumělo, nebo to makrem ošetřit nelze...Poki, psal jsem osobní vzkaz, nevím zda jste ho četl...stačilo by napsat jde, nejde, nevím jestli nemám pátrat dál....
Díkycitovat
icon #006166
Poki
aha, tak to jsem spatne pochopil, zkuste tohle:
Sub Heslo_otevreni()
Dim Cesta As String
Dim Nazev As String

Cesta = "c:\Documents and Settings\POKI\Plocha\"
Nazev = "Sesit_" & Date & ".xlsm"
ThisWorkbook.SaveAs Filename:=Cesta & Nazev, FileFormat:=xlOpenXMLWorkbookMacroEnabled, Password:="heslo_o"
End Sub
citovat
#006167
avatar
JJ, začíná se to rýsovat...sešit je zamčený, ale nemohu vyzkoušet ve spojitosti s mailem (až v práci)
Ještě jednou :
v sešitě mám list, který potřebuji dostat do mailu, jako samostatný sešit, odeslat ho a ten co ho chce číst, musí nejprve zadat heslo.
Jak bude makro vypadat celé dohromady ?citovat

Uživatelské menu

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

Menu

Formulář Faktura

Formulář Faktura IV

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

Helios iNuvio

Používáte podnikový systém Helios iNuvio? Potřebujete pomoci se správou nebo vyvinout SQL proceduru? Více informací naleznete na stránce Helios iNuvio.

On-line nástroje