Shranjevanje v Excelu 2007

[BJ]

Pozdravljeni!
V predlogi (- narejena v Excel XP) imam makroje. Predlogo sem shranil v novi obliki(Excel 2007) s končnico .xltm. Ko pa shranim predlogo kot delovni zvezek, v tem ni več makrojev
Hvala!

[admin]

Kaj točno ste naredili. Opišite postopek od izdelave predloge dalje. Verjetno vam dostop do makrov preprečuje zaščita v Excelu, sami makri pa so še vedno ontri.

[GoldZ]

Pozdravljeni!
V predlogi (- narejena v Excel XP) imam makroje. Predlogo sem shranil v novi obliki(Excel 2007) s končnico .xltm. Ko pa shranim predlogo kot delovni zvezek, v tem ni več makrojev
Hvala!

Tudi delovni zvezek je potrebno shraniti kot z "m" na koncu, recimo

MojZvezek.xlsm.

LP!

[BJ]

Predlogo, katero sem imel narejeno v Excelu XP, sem shranil kot .xltm (Excel 2007). Sedaj, ko iz predloge odprem nov zvezek in ga nato hočem shraniti kot .xlsm, mi javi napako, da to ni mogoče shraniti v tej obliki (.xlsm).

Koda: Izberi vse

Private Sub cmdShrani_Click()
Application.StatusBar = "Pučak, se matram!"
'Shrani delovni zvezek kot je številka nove fakture in zapiše podatke
'v delovni zvezek s podatki izdanih faktur.
Application.DisplayAlerts = False
ActiveWorkbook.Save
Dim myfilename As String
Dim resp As Long
myfilename = "C:\FAKTURE\Arhiv Faktur" & "\" & Range("I6") & ".xlsm"
Application.DisplayAlerts = False
resp = vbYes
If Dir(myfilename) <> "" Then
  resp = MsgBox(Prompt:="Ali želiš narediti zapis podatkov in shraniti račun ?", Buttons:=vbYesNo)
End If
If resp = vbYes Then
Application.Run "Commit"

   
 ActiveWorkbook.SaveAs Filename:= _
        "C:\FAKTURE\Arhiv Faktur" & "\" & Range("I6") & ".xlsm"
 MsgBox "Račun in podatki so shranjeni."
 Application.StatusBar = False
 ActiveWorkbook.Close
Else
  MsgBox "Račun ni shranjen"
End If
End Sub

Če pa zadevo shranim kot .xls, potem v VBA ni nobenih kod
LPB