MS Excel

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

Zaslat odpověď >

Strana: 1 2 další »

marjankaj(22.12.2014 15:55)#022887

A prečo nemôžeš kliknúť priamo na "Uložiť ako"?citovat

eLCHa(22.12.2014 17:36)#022888

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

Stalker(22.12.2014 22:04)#022891

Další jednoduchou možností je nastavit souboru parametr "Jen pro čtení" a je po pérdeli

citovat

Poki(2.1.2015 10:37)#022938

No 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

AL(2.1.2015 11:14)#022940

pokiaľ ovšem užívateľ neotvorí rovno šablónu namiesto File -> New...citovat

Poki(2.1.2015 11:27)#022941

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

AL(2.1.2015 12:08)#022943

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

Poki(4.1.2015 21:28)#022975

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

AL(5.1.2015 1:18)#022977

Poki, tiež ďakujem

citovat

Stoupa(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

Strana: 1 2 další »

Téma: Původní soubor neměnit a ukládat jen jeho kopie

Uživatelské menu

Menu

Formulář Faktura

Formulář Faktura IV

Helios iNuvio

On-line nástroje