..muzee prilozit soubor nebo aspon ten kod, ktery pouzivate?
a jde vam skutecne o zamek celeho sesitu nebo jen toho odesilaneho listu?citovat
a jde vam skutecne o zamek celeho sesitu nebo jen toho odesilaneho listu?citovat
excel, návod, tipy, funkce, makra, vba, tabulky, šablony
Váš průvodce programem Microsoft Excel a programováním maker ve VBA
< návrat zpět
Téma: zámek sešitu
MS Excel
Téma: zámek sešitu 
Zaslal/a thums 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
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
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
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 Subcitovat
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 Subcitovat
Super a také vím kde jsem dělal chybu...za .Protect jsm psal = dál to samé...
Díky moc !!!citovat
Díky moc !!!citovat
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
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
Díkycitovat
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 Subcitovat
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 Subcitovat
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
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)
\n
\nMenu
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
Určení kraje dle databáze PSČ na základě adresy
elninoslov • 30.4. 13:49
Určení kraje dle databáze PSČ na základě adresy
Pepepe • 30.4. 11:45
Vynásobit hodnoty kurzem - Power Query
Alfan • 26.4. 7:56
Relativní cesta - zdroje Power Query
Alfan • 26.4. 7:54
Vynásobit hodnoty kurzem - Power Query
elninoslov • 26.4. 7:54
Vynásobit hodnoty kurzem - Power Query
lubo • 25.4. 19:18
Relativní cesta - zdroje Power Query
elninoslov • 25.4. 15:12
RSS nejnovější články