MS OFFICE
-
k1571 #974 Úgy látom más sem tud ilyenről.
Egy, makróba "bedrótozott" megoldást tudok javasolni.
Word:
Sub mentes_maskent()
Dim knyvtr(3)
knyvtr(1) = "C:\adatok\"
knyvtr(2) = "C:\users\"
knyvtr(3) = "D:\install\"
konyvtarak = "1.) " + knyvtr(1) + Chr(13) + "2.) " + knyvtr(2) + Chr(13) + "3.) " + knyvtr(3)
a = Int(InputBox(konyvtarak))
If a < 1 Or a > 3 Then
MsgBox ("hibás érték!")
Exit Sub
End If
With Dialogs(wdDialogFileSaveAs)
.Name = knyvtr(a)
.Show
End With
End Sub
Természetesen több könyvtárat is felvehetsz, a megfelelő javításokkal.
Ha ez kész, akkor a "Gyorselérési eszköztárra" jobbklikk -> "Testreszabás" -> "Választható parancsok helye" -> "Makrók" -> kiválasztod a makrót -> "Felvétel" -> átkerül a másik ablakba, ott kijelölöd -> "Módosítás" -> tetszőleges ikont rendelsz hozzá.
Excel:
Egy munkafüzetben létrehozod az alábbi makrót:
Sub mentes_maskent()
Dim knyvtr(3)
knyvtr(1) = "C:\adatok\"
knyvtr(2) = "C:\users\"
knyvtr(3) = "D:\install\"
konyvtarak = "1.) " + knyvtr(1) + Chr(13) + "2.) " + knyvtr(2) + Chr(13) + "3.) " + knyvtr(3)
a = Int(InputBox(konyvtarak))
If a < 1 Or a > 3 Then
MsgBox ("hibás érték!")
Exit Sub
End If
Fajlnev = ActiveWorkbook.Name
Dim fldlg As FileDialog
Set fldlg = Application.FileDialog(msoFileDialogSaveAs)
With fldlg
.Title = "Mentés másként"
.InitialFileName = knyvtr(a) & Fajlnev
End With
fl = fldlg.Show
If fl Then
ActiveWorkbook.SaveAs fldlg.SelectedItems(1)
Fajlnev = ActiveWorkbook.FullName
End If
Application.RecentFiles.Add Name:=Fajlnev
Workbooks("mentes_maskent.xlsm").Close SaveChanges:=False
End Sub
A munkafüzetet elmented "mentes_maskent.xlsm" néven, makróbarát formátumban.
A "Gyorselérési eszköztárban" a Wordhöz hasonlóan belinkeled.
(A könyvtárat, amibe mentetted ezt a fájlt, felveheted az "Excel beállításai" alatt az "Adatvédelmi központ" "Az adatvédelmi központ beállításai" alatt a "Megbízható helyek" listájára", akkor nem fog minden esetben rákérdezni a makrók engedélyezésére.