A prečo nemôžeš kliknúť priamo na "Uložiť ako"?citovat
excel, návod, tipy, funkce, makra, vba, tabulky, šablony
Tipy a triky pro Excel a makra VBA
< návrat zpět
Téma: Původní soubor neměnit a ukládat jen jeho kopie
MS Excel
Téma: Původní soubor neměnit a ukládat jen jeho kopie 
Zaslal/a 22.12.2014 12:49
Ahoj,
chtěl bych udělat, aby po kliknutí na tlačítko "Uložit" se sešit neuložil, ale aby došlo k otevření dialogu "Uložit jako" s přednastavenou cestou a názvem souboru. Chtěl bych, aby původní soubor zůstal nezměněný a ukládaly se jen jeho kopie.
Chtěl jsem to řešit nějak takto:
Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
Dim ulozit As FileDialog
Set ulozit = Application.FileDialog(msoFileDialogSaveAs)
With ulozit
.Title = "Zadejte název souboru"
.InitialFileName = "C:\" & Range("D6") 'v D6 je uložen název souboru
.Show
.Execute
End With
End Sub
ale bohužel to nefunguje.
Za rady děkuji
Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
If Not SaveAsUI Then
Cancel = True
Dim bEvents As Boolean
bEvents = Application.EnableEvents
Application.EnableEvents = False
ThisWorkbook.SaveAs Filename:="C:\" & Range("D6") & ".xlsm", FileFormat:=xlOpenXMLWorkbookMacroEnabled
Application.EnableEvents = bEvents
End If
End Subcitovat
If Not SaveAsUI Then
Cancel = True
Dim bEvents As Boolean
bEvents = Application.EnableEvents
Application.EnableEvents = False
ThisWorkbook.SaveAs Filename:="C:\" & Range("D6") & ".xlsm", FileFormat:=xlOpenXMLWorkbookMacroEnabled
Application.EnableEvents = bEvents
End If
End Subcitovat
Další jednoduchou možností je nastavit souboru parametr "Jen pro čtení" a je po pérdeli 
citovat
citovatNo a presne na toto existuji šablony!
Takze si "vzorovy" sesit ulozte jako sablonu a po jeho upravach se vam vzdy po stisknuti tlacitka "ulozit" zobrazit moznost ulozit jako. Nemuze tedy dojit k prepsani puvodniho "vzoroveho" souboru.citovat
Takze si "vzorovy" sesit ulozte jako sablonu a po jeho upravach se vam vzdy po stisknuti tlacitka "ulozit" zobrazit moznost ulozit jako. Nemuze tedy dojit k prepsani puvodniho "vzoroveho" souboru.citovat
pokiaľ ovšem užívateľ neotvorí rovno šablónu namiesto File -> New...citovat
Naopak, uzivatel prave muze klidne rovnou otevrit sablonu, sablonu totiz nelze zmenit stisknutim "ulozit" - to vzdy povede k zobrazeni nabidky "ulozit jako".
K jeji zmene musi pouzit "ulozit jako" typ souboru sablona.citovat
K jeji zmene musi pouzit "ulozit jako" typ souboru sablona.citovat
poki, práve, že som to skúšal:
1. cvičný súbor som uložil ako šablónu
2. šablónu zavrel a znovu otvoril
3. urobil v nej zmeny a normálne to šlo uložiť
Možno niečo robím špatne, ale šablónu mi zmeniť ide a normálne sa nechá zmenená uložiť pod pôvodným názvom. Žiadny dialóg Save As na mňa nevyskakuje...citovat
1. cvičný súbor som uložil ako šablónu
2. šablónu zavrel a znovu otvoril
3. urobil v nej zmeny a normálne to šlo uložiť
Možno niečo robím špatne, ale šablónu mi zmeniť ide a normálne sa nechá zmenená uložiť pod pôvodným názvom. Žiadny dialóg Save As na mňa nevyskakuje...citovat
Mame pravdu oba :-)
ALuv proces nastane tehdy, když je šablona ulozena v adresari sablon MS Office.
Pokud ale sablonu uložíte jinam (napr. na plochu nebo tam, kde si ukladate souboru konkretniho projektu), bude fungovat postup, který jsem popsal, a tedy jde o (podle me) nejlepší variantu pro zadany problém.
Diky ALe, toto jsem si předtím nikdy neuvedomil
citovat
ALuv proces nastane tehdy, když je šablona ulozena v adresari sablon MS Office.
Pokud ale sablonu uložíte jinam (napr. na plochu nebo tam, kde si ukladate souboru konkretniho projektu), bude fungovat postup, který jsem popsal, a tedy jde o (podle me) nejlepší variantu pro zadany problém.
Diky ALe, toto jsem si předtím nikdy neuvedomil
citovat(4.3.2015 8:28)#023968
Ahoj,
tohle jsem kdysi také řešil, ale s jednou podmínkou:
já v sešitu (který je jakoby šablona bez dat) dělám úpravy/aktualizace, ostatní uživatelé doplňují data. Takže xlt, nebo zaškrtnutá vlastnost souboru "Pouze pro čtení" je tak zase na obtíž pro mně, ale použil jsem makro, kde se může nadefinovat uživatel(é), který má soubor pro zápis a ostatní prostě jen pro čtení
Do Workbooku:
Private Sub Workbook_Open()
Dim strUser As String
strUser = Environ("USERNAME")
Select Case strUser
'Full Access
Case Is = "jméno_uživatele"
If ActiveWorkbook.ReadOnly Then _
ActiveWorkbook.ChangeFileAccess Mode:=xlReadWrite, WritePassword:="admin"
'Limit Access
Case Is <> "jméno_uživatele"
If Not ActiveWorkbook.ReadOnly Then _
ActiveWorkbook.ChangeFileAccess Mode:=xlReadOnly, WritePassword:="admin"
End Select
End Subcitovat
tohle jsem kdysi také řešil, ale s jednou podmínkou:
já v sešitu (který je jakoby šablona bez dat) dělám úpravy/aktualizace, ostatní uživatelé doplňují data. Takže xlt, nebo zaškrtnutá vlastnost souboru "Pouze pro čtení" je tak zase na obtíž pro mně, ale použil jsem makro, kde se může nadefinovat uživatel(é), který má soubor pro zápis a ostatní prostě jen pro čtení
Do Workbooku:
Private Sub Workbook_Open()
Dim strUser As String
strUser = Environ("USERNAME")
Select Case strUser
'Full Access
Case Is = "jméno_uživatele"
If ActiveWorkbook.ReadOnly Then _
ActiveWorkbook.ChangeFileAccess Mode:=xlReadWrite, WritePassword:="admin"
'Limit Access
Case Is <> "jméno_uživatele"
If Not ActiveWorkbook.ReadOnly Then _
ActiveWorkbook.ChangeFileAccess Mode:=xlReadOnly, WritePassword:="admin"
End Select
End Subcitovat
Uživatelské menu
Nejste přihlášen(a)
\n
\nFormulář 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.
RSS nejnovější články